Lines 23-28
use Carp;
Link Here
|
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); |
25 |
use C4::Dates qw(format_date format_date_in_iso); |
|
|
26 |
use MARC::Record; |
26 |
use C4::Suggestions; |
27 |
use C4::Suggestions; |
27 |
use C4::Biblio; |
28 |
use C4::Biblio; |
28 |
use C4::Contract; |
29 |
use C4::Contract; |
Lines 1393-1399
sub ModReceiveOrder {
Link Here
|
1393 |
my $order_vendornote = $params->{order_vendornote}; |
1394 |
my $order_vendornote = $params->{order_vendornote}; |
1394 |
|
1395 |
|
1395 |
my $dbh = C4::Context->dbh; |
1396 |
my $dbh = C4::Context->dbh; |
1396 |
$datereceived = C4::Dates->output('iso') unless $datereceived; |
1397 |
$datereceived = output_pref({ dt=>dt_from_string, dateonly=>1, dateformat=>'iso' }) unless $datereceived; |
1397 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1398 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1398 |
if ($suggestionid) { |
1399 |
if ($suggestionid) { |
1399 |
ModSuggestion( {suggestionid=>$suggestionid, |
1400 |
ModSuggestion( {suggestionid=>$suggestionid, |
Lines 2719-2725
sub CloseInvoice {
Link Here
|
2719 |
|
2720 |
|
2720 |
Reopen an invoice |
2721 |
Reopen an invoice |
2721 |
|
2722 |
|
2722 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => C4::Dates->new()->output('iso')) |
2723 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => output_pref({ dt=>dt_from_string, dateonly=>1, otputpref=>'iso' })) |
2723 |
|
2724 |
|
2724 |
=cut |
2725 |
=cut |
2725 |
|
2726 |
|
2726 |
- |
|
|