[Koha-cvs] CVS: koha/C4 Accounts.pm,1.6,1.7
Andrew Arensburger
arensb at users.sourceforge.net
Wed Oct 9 17:25:06 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv26307
Modified Files:
Accounts.pm
Log Message:
Removed trailing whitespace that was breaking the POD.
Index: Accounts.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Accounts.pm 5 Oct 2002 09:47:52 -0000 1.6
--- Accounts.pm 9 Oct 2002 15:25:03 -0000 1.7
***************
*** 1,4 ****
--- 1,5 ----
package C4::Accounts; #assumes C4/Accounts
+ # $Id$
# Copyright 2000-2002 Katipo Communications
***************
*** 29,36 ****
use C4::Interface::AccountsCDK;
use vars qw($VERSION @ISA @EXPORT);
!
# set the version for version checking
$VERSION = 0.01;
!
=head1 NAME
--- 30,37 ----
use C4::Interface::AccountsCDK;
use vars qw($VERSION @ISA @EXPORT);
!
# set the version for version checking
$VERSION = 0.01;
!
=head1 NAME
***************
*** 52,56 ****
=cut
!
@ISA = qw(Exporter);
@EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno);
--- 53,57 ----
=cut
!
@ISA = qw(Exporter);
@EXPORT = qw(&checkaccount &reconcileaccount &getnextacctno);
***************
*** 95,99 ****
# pause();
return($total);
! }
# XXX - POD. Need to figure out C4/Interface/AccountsCDK.pm first,
--- 96,100 ----
# pause();
return($total);
! }
# XXX - POD. Need to figure out C4/Interface/AccountsCDK.pm first,
***************
*** 112,118 ****
$sth->finish();
#get borrower information
! $sth=$dbh->prepare("Select * from accountlines where
! borrowernumber=$bornumber and amountoutstanding<>0 order by date");
! $sth->execute;
#display account information
&clearscreen();
--- 113,119 ----
$sth->finish();
#get borrower information
! $sth=$dbh->prepare("Select * from accountlines where
! borrowernumber=$bornumber and amountoutstanding<>0 order by date");
! $sth->execute;
#display account information
&clearscreen();
***************
*** 139,143 ****
#get amount paid and update database
my ($data,$reason)=
! &accountsdialog($env,"Payment Entry",$borrower,\@accountlines,$total);
if ($data>0) {
&recordpayment($env,$bornumber,$dbh,$data);
--- 140,144 ----
#get amount paid and update database
my ($data,$reason)=
! &accountsdialog($env,"Payment Entry",$borrower,\@accountlines,$total);
if ($data>0) {
&recordpayment($env,$bornumber,$dbh,$data);
***************
*** 163,167 ****
my $nextaccntno = getnextacctno($env,$bornumber,$dbh);
# get lines with outstanding amounts to offset
! my $query = "select * from accountlines
where (borrowernumber = '$bornumber') and (amountoutstanding<>0)
order by date";
--- 164,168 ----
my $nextaccntno = getnextacctno($env,$bornumber,$dbh);
# get lines with outstanding amounts to offset
! my $query = "select * from accountlines
where (borrowernumber = '$bornumber') and (amountoutstanding<>0)
order by date";
***************
*** 183,187 ****
$usth->execute;
$usth->finish;
! $updquery = "insert into accountoffsets
(borrowernumber, accountno, offsetaccount, offsetamount)
values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
--- 184,188 ----
$usth->execute;
$usth->finish;
! $updquery = "insert into accountoffsets
(borrowernumber, accountno, offsetaccount, offsetamount)
values ($bornumber,$accdata->{'accountno'},$nextaccntno,$newamtos)";
***************
*** 197,202 ****
#($bornumber,$nextaccntno,datetime('now'::abstime),0-$data,'Payment,thanks',
#'Pay',0-$amountleft)";
! $updquery = "insert into accountlines
! (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)
values ($bornumber,$nextaccntno,now(),0-$data,'Payment,thanks',
'Pay',0-$amountleft)";
--- 198,203 ----
#($bornumber,$nextaccntno,datetime('now'::abstime),0-$data,'Payment,thanks',
#'Pay',0-$amountleft)";
! $updquery = "insert into accountlines
! (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)
values ($bornumber,$nextaccntno,now(),0-$data,'Payment,thanks',
'Pay',0-$amountleft)";
***************
*** 241,245 ****
return($nextaccntno);
}
!
END { } # module clean-up code here (global destructor)
--- 242,246 ----
return($nextaccntno);
}
!
END { } # module clean-up code here (global destructor)
More information about the Koha-cvs
mailing list