[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.32,1.33

[Chris Cormack]

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

Modified Files:
	Catalogue.pm 
Log Message:
Fixing a bug that was breaking adding or modifying suppliers



Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** Catalogue.pm	24 Apr 2003 18:28:40 -0000	1.32
--- Catalogue.pm	30 May 2003 21:22:49 -0000	1.33
***************
*** 962,980 ****
     my $dbh = C4::Context->dbh;
     my $query="Update aqbooksellers set
!    name='$data->{'name'}',address1='$data->{'address1'}',address2='$data->{'address2'}',
!    address3='$data->{'address3'}',address4='$data->{'address4'}',postal='$data->{'postal'}',
!    phone='$data->{'phone'}',fax='$data->{'fax'}',url='$data->{'url'}',
!    contact='$data->{'contact'}',contpos='$data->{'contpos'}',
!    contphone='$data->{'contphone'}', contfax='$data->{'contfax'}', contaltphone=
!    '$data->{'contaltphone'}', contemail='$data->{'contemail'}', contnotes=
!    '$data->{'contnotes'}', active=$data->{'active'},
!    listprice='$data->{'listprice'}', invoiceprice='$data->{'invoiceprice'}',
!    gstreg=$data->{'gstreg'}, listincgst=$data->{'listincgst'},
!    invoiceincgst=$data->{'invoiceincgst'}, specialty='$data->{'specialty'}',
!    discount='$data->{'discount'}',invoicedisc='$data->{'invoicedisc'}',
!    nocalc='$data->{'nocalc'}'
!    where id='$data->{'id'}'";
     my $sth=$dbh->prepare($query);
!    $sth->execute;
     $sth->finish;
  #   print $query;
--- 962,982 ----
     my $dbh = C4::Context->dbh;
     my $query="Update aqbooksellers set
!    name=?,address1=?,address2=?,address3=?,address4=?,postal=?,
!    phone=?,fax=?,url=?,contact=?,contpos=?,contphone=?,contfax=?,contaltphone=?,
!    contemail=?,contnotes=?,active=?,
!    listprice=?, invoiceprice=?,gstreg=?, listincgst=?,
!    invoiceincgst=?, specialty=?,discount=?,invoicedisc=?,
!    nocalc=?
!    where id=?";
     my $sth=$dbh->prepare($query);
!    $sth->execute($data->{'name'},$data->{'address1'},$data->{'address2'},
!    $data->{'address3'},$data->{'address4'},$data->{'postal'},$data->{'phone'},
!    $data->{'fax'},$data->{'url'},$data->{'contact'},$data->{'contpos'},
!    $data->{'contphone'},$data->{'contfax'},$data->{'contaltphone'},
!    $data->{'contemail'},
!    $data->{'contnote'},$data->{'active'},$data->{'listprice'},
!    $data->{'invoiceprice'},$data->{'gstreg'},$data->{'listincgst'},
!    $data->{'invoiceincgst'},$data->{'specialty'},$data->{'discount'},
!    $data->{'invoicedisc'},$data->{'nocalc'},$data->{'id'});
     $sth->finish;
  #   print $query;