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 |
- |
|
|