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

(-)a/C4/Acquisition.pm (-2 / +10 lines)
Lines 1395-1402 sub ModItemOrder { Link Here
1395
            user                 => $user,
1395
            user                 => $user,
1396
            invoice              => $invoice,
1396
            invoice              => $invoice,
1397
            budget_id            => $budget_id,
1397
            budget_id            => $budget_id,
1398
            datereceived         => $datereceived,
1398
            received_itemnumbers => \@received_itemnumbers,
1399
            received_itemnumbers => \@received_itemnumbers,
1399
            order_internalnote   => $order_internalnote,
1400
        }
1400
        }
1401
    );
1401
    );
1402
1402
Lines 1419-1428 sub ModReceiveOrder { Link Here
1419
    my $quantrec       = $params->{quantityreceived};
1419
    my $quantrec       = $params->{quantityreceived};
1420
    my $user           = $params->{user};
1420
    my $user           = $params->{user};
1421
    my $budget_id      = $params->{budget_id};
1421
    my $budget_id      = $params->{budget_id};
1422
    my $datereceived   = $params->{datereceived};
1422
    my $received_items = $params->{received_items};
1423
    my $received_items = $params->{received_items};
1423
1424
1424
    my $dbh = C4::Context->dbh;
1425
    my $dbh = C4::Context->dbh;
1425
    my $datereceived = ( $invoice and $invoice->{datereceived} ) ? $invoice->{datereceived} : dt_from_string;
1426
    $datereceived = output_pref(
1427
        {
1428
            dt => ( $datereceived ? dt_from_string( $datereceived ) : dt_from_string ),
1429
            dateformat => 'iso',
1430
            dateonly => 1,
1431
        }
1432
    );
1433
1426
    my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber );
1434
    my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber );
1427
    if ($suggestionid) {
1435
    if ($suggestionid) {
1428
        ModSuggestion( {suggestionid=>$suggestionid,
1436
        ModSuggestion( {suggestionid=>$suggestionid,
(-)a/acqui/finishreceive.pl (-1 / +1 lines)
Lines 123-128 if ($quantityrec > $origquantityrec ) { Link Here
123
                user             => $user,
123
                user             => $user,
124
                invoice          => $invoice,
124
                invoice          => $invoice,
125
                budget_id        => $bookfund,
125
                budget_id        => $bookfund,
126
                datereceived     => $datereceived,
126
                received_items   => \@received_items,
127
                received_items   => \@received_items,
127
            }
128
            }
128
        );
129
        );
129
- 

Return to bug 24277