|
Lines 225-230
C<&ModBookseller> with the result.
Link Here
|
| 225 |
|
225 |
|
| 226 |
sub ModBookseller { |
226 |
sub ModBookseller { |
| 227 |
my ($data) = @_; |
227 |
my ($data) = @_; |
|
|
228 |
return unless $data->{'id'}; |
| 228 |
my $dbh = C4::Context->dbh; |
229 |
my $dbh = C4::Context->dbh; |
| 229 |
my $query = 'UPDATE aqbooksellers |
230 |
my $query = 'UPDATE aqbooksellers |
| 230 |
SET name=?,address1=?,address2=?,address3=?,address4=?, |
231 |
SET name=?,address1=?,address2=?,address3=?,address4=?, |
|
Lines 235-241
sub ModBookseller {
Link Here
|
| 235 |
discount=?,notes=?,gstrate=?,deliverytime=? |
236 |
discount=?,notes=?,gstrate=?,deliverytime=? |
| 236 |
WHERE id=?'; |
237 |
WHERE id=?'; |
| 237 |
my $sth = $dbh->prepare($query); |
238 |
my $sth = $dbh->prepare($query); |
| 238 |
$sth->execute( |
239 |
return $sth->execute( |
| 239 |
$data->{'name'}, $data->{'address1'}, |
240 |
$data->{'name'}, $data->{'address1'}, |
| 240 |
$data->{'address2'}, $data->{'address3'}, |
241 |
$data->{'address2'}, $data->{'address3'}, |
| 241 |
$data->{'address4'}, $data->{'postal'}, |
242 |
$data->{'address4'}, $data->{'postal'}, |
|
Lines 253-259
sub ModBookseller {
Link Here
|
| 253 |
$data->{deliverytime}, |
254 |
$data->{deliverytime}, |
| 254 |
$data->{'id'} |
255 |
$data->{'id'} |
| 255 |
); |
256 |
); |
| 256 |
return; |
|
|
| 257 |
} |
257 |
} |
| 258 |
|
258 |
|
| 259 |
=head2 DelBookseller |
259 |
=head2 DelBookseller |