[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/C4 Accounts2.pm,1.7,1.8
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/C4 Accounts2.pm,1.7,1.8 |
Date: |
Tue, 15 May 2001 16:05:45 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv21906/C4
Modified Files:
Accounts2.pm
Log Message:
More little bug fixes in the manual credits section
Index: Accounts2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** Accounts2.pm 2001/05/09 23:22:10 1.7
--- Accounts2.pm 2001/05/15 23:05:43 1.8
***************
*** 201,205 ****
my $date = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
my $bor="$borrower->{'firstname'} $borrower->{'surname'}
$borrower->{'cardnumber'}";
! my $upitem="Update items set itemnotes='Paid for by $bor $date' where
itemnumber='$itemnum'";
$sth=$dbh->prepare($upitem);
$sth->execute;
--- 201,205 ----
my $date = (1900+$datearr[5])."-".($datearr[4]+1)."-".$datearr[3];
my $bor="$borrower->{'firstname'} $borrower->{'surname'}
$borrower->{'cardnumber'}";
! my $upitem="Update items set paidfor='Paid for by $bor $date' where
itemnumber='$itemnum'";
$sth=$dbh->prepare($upitem);
$sth->execute;
***************
*** 216,220 ****
my $amountleft=$amount;
! if ($type eq 'C' || $type eq 'BAY'){
my $amount2=$amount*-1;
$amountleft=fixcredit('',$bornum,$amount2);
--- 216,220 ----
my $amountleft=$amount;
! if ($type eq 'C' || $type eq 'BAY' || $type eq 'WORK'){
my $amount2=$amount*-1;
$amountleft=fixcredit('',$bornum,$amount2);
***************
*** 262,266 ****
# get lines with outstanding amounts to offset
my $query = "select * from accountlines
! where (borrowernumber = '$bornumber') and (amountoutstanding<>0)
order by date";
my $sth = $dbh->prepare($query);
--- 262,266 ----
# get lines with outstanding amounts to offset
my $query = "select * from accountlines
! where (borrowernumber = '$bornumber') and (amountoutstanding >0)
order by date";
my $sth = $dbh->prepare($query);
***************
*** 273,277 ****
$amountleft = $amountleft - $accdata->{'amountoutstanding'};
} else {
! $newamtos = $accdata->{'amountoutstanding'} + $amountleft;
$amountleft = 0;
}
--- 273,277 ----
$amountleft = $amountleft - $accdata->{'amountoutstanding'};
} else {
! $newamtos = $accdata->{'amountoutstanding'} - $amountleft;
$amountleft = 0;
}
- [Koha-devel] CVS: koha/C4 Accounts2.pm,1.7,1.8,
Chris Cormack <=