Lines 22-28
use Modern::Perl;
Link Here
|
22 |
use Carp; |
22 |
use Carp; |
23 |
use C4::Context; |
23 |
use C4::Context; |
24 |
use C4::Debug; |
24 |
use C4::Debug; |
25 |
use C4::Dates qw(format_date format_date_in_iso); |
|
|
26 |
use MARC::Record; |
25 |
use MARC::Record; |
27 |
use C4::Suggestions; |
26 |
use C4::Suggestions; |
28 |
use C4::Biblio; |
27 |
use C4::Biblio; |
Lines 1387-1393
sub ModReceiveOrder {
Link Here
|
1387 |
my $order_vendornote = $params->{order_vendornote}; |
1386 |
my $order_vendornote = $params->{order_vendornote}; |
1388 |
|
1387 |
|
1389 |
my $dbh = C4::Context->dbh; |
1388 |
my $dbh = C4::Context->dbh; |
1390 |
$datereceived = C4::Dates->output('iso') unless $datereceived; |
1389 |
$datereceived = output_pref({ dt=>dt_from_string, dateonly=>1, dateformat=>'iso' }) unless $datereceived; |
1391 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1390 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1392 |
if ($suggestionid) { |
1391 |
if ($suggestionid) { |
1393 |
ModSuggestion( {suggestionid=>$suggestionid, |
1392 |
ModSuggestion( {suggestionid=>$suggestionid, |
Lines 2713-2719
sub CloseInvoice {
Link Here
|
2713 |
|
2712 |
|
2714 |
Reopen an invoice |
2713 |
Reopen an invoice |
2715 |
|
2714 |
|
2716 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => C4::Dates->new()->output('iso')) |
2715 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => output_pref({ dt=>dt_from_string, dateonly=>1, otputpref=>'iso' })) |
2717 |
|
2716 |
|
2718 |
=cut |
2717 |
=cut |
2719 |
|
2718 |
|
2720 |
- |
|
|