[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.32,1.33
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.32,1.33 |
Date: |
Fri, 30 May 2003 14:22:52 -0700 |
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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Catalogue.pm,1.32,1.33,
Chris Cormack <=