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