[Koha-cvs] CVS: koha/C4/Circulation Renewals2.pm,1.2.2.3,1.2.2.4

[Chris Cormack]

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;