|
Lines 236-259
close a basket (becomes unmodifiable, except for receives)
Link Here
|
| 236 |
sub CloseBasket { |
236 |
sub CloseBasket { |
| 237 |
my ($basketno) = @_; |
237 |
my ($basketno) = @_; |
| 238 |
my $dbh = C4::Context->dbh; |
238 |
my $dbh = C4::Context->dbh; |
| 239 |
my $query = " |
239 |
$dbh->do('UPDATE aqbasket SET closedate=now() WHERE basketno=?', {}, $basketno ); |
| 240 |
UPDATE aqbasket |
|
|
| 241 |
SET closedate=now() |
| 242 |
WHERE basketno=? |
| 243 |
"; |
| 244 |
my $sth = $dbh->prepare($query); |
| 245 |
$sth->execute($basketno); |
| 246 |
|
240 |
|
| 247 |
my @orders = GetOrders($basketno); |
241 |
$dbh->do( q{UPDATE aqorders SET orderstatus = 'ordered' WHERE basketno = ? AND orderstatus != 'complete'}, |
| 248 |
foreach my $order (@orders) { |
242 |
{}, $basketno); |
| 249 |
$query = qq{ |
243 |
return; |
| 250 |
UPDATE aqorders |
|
|
| 251 |
SET orderstatus = 'ordered' |
| 252 |
WHERE ordernumber = ?; |
| 253 |
}; |
| 254 |
$sth = $dbh->prepare($query); |
| 255 |
$sth->execute($order->{'ordernumber'}); |
| 256 |
} |
| 257 |
} |
244 |
} |
| 258 |
|
245 |
|
| 259 |
=head3 ReopenBasket |
246 |
=head3 ReopenBasket |
|
Lines 267-290
reopen a basket
Link Here
|
| 267 |
sub ReopenBasket { |
254 |
sub ReopenBasket { |
| 268 |
my ($basketno) = @_; |
255 |
my ($basketno) = @_; |
| 269 |
my $dbh = C4::Context->dbh; |
256 |
my $dbh = C4::Context->dbh; |
| 270 |
my $query = " |
257 |
$dbh->do( q{UPDATE aqbasket SET closedate=NULL WHERE basketno=?}, {}, $basketno ); |
| 271 |
UPDATE aqbasket |
|
|
| 272 |
SET closedate=NULL |
| 273 |
WHERE basketno=? |
| 274 |
"; |
| 275 |
my $sth = $dbh->prepare($query); |
| 276 |
$sth->execute($basketno); |
| 277 |
|
258 |
|
| 278 |
my @orders = GetOrders($basketno); |
259 |
$dbh->do( q{ |
| 279 |
foreach my $order (@orders) { |
260 |
UPDATE aqorders |
| 280 |
$query = qq{ |
261 |
SET orderstatus = 'new' |
| 281 |
UPDATE aqorders |
262 |
WHERE basketno = ? |
| 282 |
SET orderstatus = 'new' |
263 |
AND orderstatus != 'complete' |
| 283 |
WHERE ordernumber = ?; |
264 |
}, {}, $basketno); |
| 284 |
}; |
265 |
return; |
| 285 |
$sth = $dbh->prepare($query); |
|
|
| 286 |
$sth->execute($order->{'ordernumber'}); |
| 287 |
} |
| 288 |
} |
266 |
} |
| 289 |
|
267 |
|
| 290 |
#------------------------------------------------------------# |
268 |
#------------------------------------------------------------# |
| 291 |
- |
|
|