[Koha-cvs] CVS: koha/C4 Suggestions.pm,1.2,1.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27211/C4

Modified Files:
        Suggestions.pm 
Log Message:
bugfix

Index: Suggestions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Suggestions.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** Suggestions.pm      15 Jul 2004 09:41:03 -0000      1.2
--- Suggestions.pm      12 Aug 2004 14:36:44 -0000      1.3
***************
*** 132,139 ****
  
  sub newsuggestion {
!       my 
($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn)
 = @_;
        my $dbh = C4::Context->dbh;
!       my $sth = $dbh->prepare("insert into suggestions 
(status,suggestedby,title,author,publishercode,note,copyrightdate,volumedesc,publicationyear,place,isbn)
 values ('ASKED',?,?,?,?,?,?,?,?,?,?)");
!       
$sth->execute($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn);
  }
  
--- 132,139 ----
  
  sub newsuggestion {
!       my 
($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,$biblionumber)
 = @_;
        my $dbh = C4::Context->dbh;
!       my $sth = $dbh->prepare("insert into suggestions 
(status,suggestedby,title,author,publishercode,note,copyrightdate,volumedesc,publicationyear,place,isbn,biblionumber)
 values ('ASKED',?,?,?,?,?,?,?,?,?,?,?)");
!       
$sth->execute($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,$biblionumber);
  }