[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.34,1.35

[Pierre Cauchois]

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

Modified Files:
        Catalogue.pm 
Log Message:
small fixes (sql query formatting problems)


Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha//koha/C4/Catalogue.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -r1.34 -r1.35
*** Catalogue.pm        16 Jun 2003 09:19:44 -0000      1.34
--- Catalogue.pm        10 Jul 2003 10:19:21 -0000      1.35
***************
*** 188,215 ****
    }
    my $dbh = C4::Context->dbh;
!   my $query="insert into aqorders (biblionumber,title,basketno,
    
quantity,listprice,booksellerid,entrydate,requisitionedby,authorisedby,notes,
    
biblioitemnumber,rrp,ecost,gst,unitprice,subscription,booksellerinvoicenumber)
! 
!   values
!   ($bibnum,'$title',$basket,$quantity,$listprice,'$supplier',now(),
!   '$who','$who','$notes',$bibitemnum,'$rrp','$ecost','$gst','$cost',
!   '$sub','$invoice')";
!   my $sth=$dbh->prepare($query);
! #  print $query;
!   $sth->execute;
    $sth->finish;
!   $query="select * from aqorders where
!   biblionumber=$bibnum and basketno=$basket and ordernumber >=$ordnum";
!   $sth=$dbh->prepare($query);
!   $sth->execute;
    my $data=$sth->fetchrow_hashref;
    $sth->finish;
    $ordnum=$data->{'ordernumber'};
!   $query="insert into aqorderbreakdown (ordernumber,bookfundid) values
!   ($ordnum,'$bookfund')";
!   $sth=$dbh->prepare($query);
  #  print $query;
!   $sth->execute;
    $sth->finish;
  }
--- 188,209 ----
    }
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("insert into aqorders (biblionumber,title,basketno,
    
quantity,listprice,booksellerid,entrydate,requisitionedby,authorisedby,notes,
    
biblioitemnumber,rrp,ecost,gst,unitprice,subscription,booksellerinvoicenumber)
!   values (?,?,?,?,?,?,now(),?,?,?,?,?,?,?,?,?,?)");
!   $sth->execute($bibnum,$title,$basket,$quantity,$listprice,$supplier,
!   $who,$who,$notes,$bibitemnum,$rrp,$ecost,$gst,$cost,
!   $sub,$invoice);
    $sth->finish;
!   $sth=$dbh->prepare("select * from aqorders where
!   biblionumber=? and basketno=? and ordernumber >=?");
!   $sth->execute($bibnum,$basket,$ordnum);
    my $data=$sth->fetchrow_hashref;
    $sth->finish;
    $ordnum=$data->{'ordernumber'};
!   $sth=$dbh->prepare("insert into aqorderbreakdown (ordernumber,bookfundid) 
values
!   (?,?)");
  #  print $query;
!   $sth->execute($ordnum,$bookfund);
    $sth->finish;
  }