[Koha-cvs] CVS: koha/C4 Accounts2.pm,1.19,1.20

[Paul POULAIN]

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

Modified Files:
	Accounts2.pm 
Log Message:
code cleaning

Index: Accounts2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts2.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** Accounts2.pm	13 Oct 2002 11:33:06 -0000	1.19
--- Accounts2.pm	13 Dec 2002 10:36:22 -0000	1.20
***************
*** 320,342 ****
      $sth->finish;
      $desc.=" ".$itemnum;
!     $desc=$dbh->quote($desc);
!     $dbh->do(<<EOT);
! 	INSERT INTO	accountlines
! 			(borrowernumber, accountno, date, amount,
! 			 description, accounttype, amountoutstanding,
! 			 itemnumber)
! 	VALUES		($bornum, $accountno, now(), '$amount',
! 			 $desc, '$type', '$amountleft',
! 			 '$data->{'itemnumber'}')
! EOT
    } else {
      $desc=$dbh->quote($desc);
!     $dbh->do(<<EOT);
! 	INSERT INTO	accountlines
! 			(borrowernumber, accountno, date, amount,
! 			 description, accounttype, amountoutstanding)
! 	VALUES		($bornum, $accountno, now(), '$amount',
! 			 $desc, '$type', '$amountleft')
! EOT
    }
  }
--- 320,333 ----
      $sth->finish;
      $desc.=" ".$itemnum;
!     my $sth=$dbh->prepare("INSERT INTO	accountlines
! 			(borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding, itemnumber)
! 	VALUES (?, ?, now(), ?,?, ?,?,?)");
!     $sth->execute($bornum, $accountno, $amount, $desc, $type, $amountleft, $data->{'itemnumber'});
    } else {
      $desc=$dbh->quote($desc);
!     my $sth=$dbh->prepare("INSERT INTO	accountlines
! 			(borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding)
! 			VALUES (?, ?, now(), ?, ?, ?, ?)");
!     $sth->execute($bornum, $accountno, $amount, $desc, $type, $amountleft);
    }
  }