[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);
    }
  }