[Koha-cvs] CVS: koha/C4/Circulation Renewals2.pm,1.2.2.3,1.2.2.4
Chris Cormack
rangi at users.sourceforge.net
Thu May 1 01:03:36 CEST 2003
Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1:/tmp/cvs-serv24579/C4/Circulation
Modified Files:
Tag: rel-1-2
Renewals2.pm
Log Message:
Making the same fix over here are in the main trunk.
RE the renewbook bit
Index: Renewals2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals2.pm,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -C2 -r1.2.2.3 -r1.2.2.4
*** Renewals2.pm 14 Aug 2002 18:30:50 -0000 1.2.2.3
--- Renewals2.pm 30 Apr 2003 23:03:21 -0000 1.2.2.4
***************
*** 157,166 ****
my $account="Insert into accountlines
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
! values
! ('$bornum','$accountno',now(),$charge,'Renewal of Rental Item $item->{'title'} $item->{'barcode'}','Rent',$charge,'$itemno')";
$sth=$dbh->prepare($account);
! $sth->execute;
! $sth->finish;
! # print $account;
}
$dbh->disconnect;
--- 157,166 ----
my $account="Insert into accountlines
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
! values
! (?,?,now(),?,?,?,?,?)";
$sth=$dbh->prepare($account);
! $sth->execute($bornum,$accountno,$charge,"Renewal of Rental Item $item->{'title'} $item->{'barcode'}",
! 'Rent',$charge,$itemno)";
! # print $account;
}
$dbh->disconnect;
More information about the Koha-cvs
mailing list