View | Details | Raw Unified | Return to bug 15036
Collapse All | Expand All

(-)a/C4/Acquisition.pm (-35 / +12 lines)
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
- 

Return to bug 15036