Lines 181-194
sub AddBookseller {
Link Here
|
181 |
my $query = q| |
181 |
my $query = q| |
182 |
INSERT INTO aqbooksellers |
182 |
INSERT INTO aqbooksellers |
183 |
( |
183 |
( |
184 |
name, address1, address2, address3, address4, |
184 |
name, address1, address2, address3, address4, |
185 |
postal, phone, accountnumber,fax, url, |
185 |
postal, phone, accountnumber, fax, url, |
186 |
contact, contpos, contphone, contfax, contaltphone, |
186 |
contact, contpos, contphone, contfax, contaltphone, |
187 |
contemail, contnotes, active, listprice, invoiceprice, |
187 |
contemail, contnotes, active, listprice, invoiceprice, |
188 |
gstreg, listincgst, invoiceincgst,gstrate, discount, |
188 |
gstreg, listincgst, invoiceincgst, shippingincgst, |
|
|
189 |
gstrate, sgstrate, discount, |
189 |
notes, deliverytime |
190 |
notes, deliverytime |
190 |
) |
191 |
) |
191 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) | |
192 |
VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) | |
192 |
; |
193 |
; |
193 |
my $sth = $dbh->prepare($query); |
194 |
my $sth = $dbh->prepare($query); |
194 |
$sth->execute( |
195 |
$sth->execute( |
Lines 204-210
sub AddBookseller {
Link Here
|
204 |
$data->{active} ,$data->{listprice}, |
205 |
$data->{active} ,$data->{listprice}, |
205 |
$data->{invoiceprice} ,$data->{gstreg}, |
206 |
$data->{invoiceprice} ,$data->{gstreg}, |
206 |
$data->{listincgst} ,$data->{invoiceincgst}, |
207 |
$data->{listincgst} ,$data->{invoiceincgst}, |
207 |
$data->{gstrate} ,$data->{discount}, |
208 |
$data->{shippingincgst} ,$data->{gstrate}, |
|
|
209 |
$data->{sgstrate} ,$data->{discount}, |
208 |
$data->{notes} ,$data->{deliverytime}, |
210 |
$data->{notes} ,$data->{deliverytime}, |
209 |
); |
211 |
); |
210 |
|
212 |
|
Lines 238-245
sub ModBookseller {
Link Here
|
238 |
postal=?,phone=?,accountnumber=?,fax=?,url=?,contact=?,contpos=?, |
240 |
postal=?,phone=?,accountnumber=?,fax=?,url=?,contact=?,contpos=?, |
239 |
contphone=?,contfax=?,contaltphone=?,contemail=?, |
241 |
contphone=?,contfax=?,contaltphone=?,contemail=?, |
240 |
contnotes=?,active=?,listprice=?, invoiceprice=?, |
242 |
contnotes=?,active=?,listprice=?, invoiceprice=?, |
241 |
gstreg=?,listincgst=?,invoiceincgst=?, |
243 |
gstreg=?,listincgst=?,invoiceincgst=?,shippingincgst=?, |
242 |
discount=?,notes=?,gstrate=?,deliverytime=? |
244 |
discount=?,notes=?,gstrate=?,sgstrate=?,deliverytime=? |
243 |
WHERE id=?'; |
245 |
WHERE id=?'; |
244 |
my $sth = $dbh->prepare($query); |
246 |
my $sth = $dbh->prepare($query); |
245 |
return $sth->execute( |
247 |
return $sth->execute( |
Lines 255-262
sub ModBookseller {
Link Here
|
255 |
$data->{'active'}, $data->{'listprice'}, |
257 |
$data->{'active'}, $data->{'listprice'}, |
256 |
$data->{'invoiceprice'}, $data->{'gstreg'}, |
258 |
$data->{'invoiceprice'}, $data->{'gstreg'}, |
257 |
$data->{'listincgst'}, $data->{'invoiceincgst'}, |
259 |
$data->{'listincgst'}, $data->{'invoiceincgst'}, |
|
|
260 |
$data->{'shippingincgst'}, |
258 |
$data->{'discount'}, $data->{'notes'}, |
261 |
$data->{'discount'}, $data->{'notes'}, |
259 |
$data->{'gstrate'}, |
262 |
$data->{'gstrate'}, $data->{'sgstrate'}, |
260 |
$data->{deliverytime}, |
263 |
$data->{deliverytime}, |
261 |
$data->{'id'} |
264 |
$data->{'id'} |
262 |
); |
265 |
); |