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

(-)a/C4/Acquisition.pm (-27 / +1 lines)
Lines 56-62 BEGIN { Link Here
56
        &NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders
56
        &NewOrder &DelOrder &ModOrder &GetPendingOrders &GetOrder &GetOrders
57
        &GetOrderNumber &GetLateOrders &GetOrderFromItemnumber
57
        &GetOrderNumber &GetLateOrders &GetOrderFromItemnumber
58
        &SearchOrder &GetHistory &GetRecentAcqui
58
        &SearchOrder &GetHistory &GetRecentAcqui
59
        &ModReceiveOrder &CancelReceipt &ModOrderBiblioitemNumber
59
        &ModReceiveOrder &CancelReceipt
60
        &GetCancelledOrders
60
        &GetCancelledOrders
61
        &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
61
        &GetLastOrderNotReceivedFromSubscriptionid &GetLastOrderReceivedFromSubscriptionid
62
        &NewOrderItem &ModOrderItem &ModItemOrder
62
        &NewOrderItem &ModOrderItem &ModItemOrder
Lines 1266-1296 sub ModItemOrder { Link Here
1266
    return $sth->execute($ordernumber, $itemnumber);
1266
    return $sth->execute($ordernumber, $itemnumber);
1267
}
1267
}
1268
1268
1269
#------------------------------------------------------------#
1270
1271
1272
=head3 ModOrderBibliotemNumber
1273
1274
  &ModOrderBiblioitemNumber($biblioitemnumber,$ordernumber, $biblionumber);
1275
1276
Modifies the biblioitemnumber for an existing order.
1277
Updates the order with order number C<$ordernum> and biblionumber C<$biblionumber>.
1278
1279
=cut
1280
1281
#FIXME: is this used at all?
1282
sub ModOrderBiblioitemNumber {
1283
    my ($biblioitemnumber,$ordernumber, $biblionumber) = @_;
1284
    my $dbh = C4::Context->dbh;
1285
    my $query = "
1286
    UPDATE aqorders
1287
    SET    biblioitemnumber = ?
1288
    WHERE  ordernumber = ?
1289
    AND biblionumber =  ?";
1290
    my $sth = $dbh->prepare($query);
1291
    $sth->execute( $biblioitemnumber, $ordernumber, $biblionumber );
1292
}
1293
1294
=head3 GetCancelledOrders
1269
=head3 GetCancelledOrders
1295
1270
1296
  my @orders = GetCancelledOrders($basketno, $orderby);
1271
  my @orders = GetCancelledOrders($basketno, $orderby);
1297
- 

Return to bug 10091