[Koha-cvs] CVS: koha/misc fines2.pl,1.9,1.9.2.1

[MJ Ray]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv19312/misc

Modified Files:
      Tag: rel_2_0
        fines2.pl 
Log Message:
DBI call fix for bug 662

Index: fines2.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fines2.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -r1.9 -r1.9.2.1
*** fines2.pl   13 Oct 2002 10:44:59 -0000      1.9
--- fines2.pl   18 Dec 2003 00:04:13 -0000      1.9.2.1
***************
*** 110,116 ****
                                                   #
         my $dbh = C4::Context->dbh;
!        my $query="Select * from borrowers where 
borrowernumber='$borrower->{'guarantor'}'";
!        my $sth=$dbh->prepare($query);
!        $sth->execute;
         my $tdata=$sth->fetchrow_hashref;
         $sth->finish;
--- 110,115 ----
                                                   #
         my $dbh = C4::Context->dbh;
!        my $sth=$dbh->prepare("Select * from borrowers where 
borrowernumber=?");
!        $sth->execute($borrower->{'guarantor'});
         my $tdata=$sth->fetchrow_hashref;
         $sth->finish;
***************
*** 138,157 ****
                # this should be a separate function
                #
!         $item->{'title'}=~ s/\'/\\'/g;
!         my $query="Insert into accountlines
          (borrowernumber,itemnumber,accountno,date,amount,
          description,accounttype,amountoutstanding) values
!         ($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'},
!         '$accountno',now(),'$cost','Lost item $item->{'title'} 
$item->{'barcode'} $due','L','$cost')";
!         my $sth=$dbh->prepare($query);
!         $sth->execute;
          $sth->finish;
!         $query="update items set itemlost=2 where 
itemnumber='$data->[$i]->{'itemnumber'}'";
!         $sth=$dbh->prepare($query);
!         $sth->execute;
          $sth->finish;
-       } else { # FIXME
-                # this should be deleted
-                  #
        }
        }
--- 137,150 ----
                # this should be a separate function
                #
!         my $sth=$dbh->prepare("Insert into accountlines
          (borrowernumber,itemnumber,accountno,date,amount,
          description,accounttype,amountoutstanding) values
!         (?,?,?,now(),?,?,'L',?)");
!         
$sth->execute($data->[$i]->{'borrowernumber'},$data->[$i]->{'itemnumber'},
!         $accountno,$cost,"Lost item $item->{'title'} $item->{'barcode'} 
$due",$cost);
          $sth->finish;
!         $sth=$dbh->prepare("update items set itemlost=2 where itemnumber=?");
!         $sth->execute($data->[$i]->{'itemnumber'});
          $sth->finish;
        }
        }