[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.5.2.14,1.5.2.15

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv26409

Modified Files:
      Tag: rel-1-2
        Reserves2.pm 
Log Message:

fixed bug that caused reservations on items that had quotes in their titles to 
no be charged.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.5.2.14
retrieving revision 1.5.2.15
diff -C2 -r1.5.2.14 -r1.5.2.15
*** Reserves2.pm        28 Nov 2002 10:53:38 -0000      1.5.2.14
--- Reserves2.pm        9 Feb 2003 23:25:13 -0000       1.5.2.15
***************
*** 315,322 ****
  #    print $fee;
      my $nextacctno = &getnextacctno($env,$borrnum,$dbh);   
      my $updquery = "insert into accountlines       
      
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
                                              
                                                          values
!     ($borrnum,$nextacctno,now(),$fee,'Reserve Charge - $title','Res',$fee)";  
        
      my $usth = $dbh->prepare($updquery);                      
      $usth->execute;             
--- 315,323 ----
  #    print $fee;
      my $nextacctno = &getnextacctno($env,$borrnum,$dbh);   
+     my $comment = $dbh->quote("Reserve Charge - $title");
      my $updquery = "insert into accountlines       
      
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding)
                                              
                                                          values
!     ($borrnum,$nextacctno ,now() ,$fee ,$comment ,'Res',$fee)";          
      my $usth = $dbh->prepare($updquery);                      
      $usth->execute;