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 1400-1406
sub ModReceiveOrder {
Link Here
|
1400 |
my $order_vendornote = $params->{order_vendornote}; |
1399 |
my $order_vendornote = $params->{order_vendornote}; |
1401 |
|
1400 |
|
1402 |
my $dbh = C4::Context->dbh; |
1401 |
my $dbh = C4::Context->dbh; |
1403 |
$datereceived = C4::Dates->output('iso') unless $datereceived; |
1402 |
$datereceived = output_pref({ dt=>dt_from_string, dateonly=>1, dateformat=>'iso' }) unless $datereceived; |
1404 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1403 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1405 |
if ($suggestionid) { |
1404 |
if ($suggestionid) { |
1406 |
ModSuggestion( {suggestionid=>$suggestionid, |
1405 |
ModSuggestion( {suggestionid=>$suggestionid, |
Lines 2726-2732
sub CloseInvoice {
Link Here
|
2726 |
|
2725 |
|
2727 |
Reopen an invoice |
2726 |
Reopen an invoice |
2728 |
|
2727 |
|
2729 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => C4::Dates->new()->output('iso')) |
2728 |
Equivalent to ModInvoice(invoiceid => $invoiceid, closedate => output_pref({ dt=>dt_from_string, dateonly=>1, otputpref=>'iso' })) |
2730 |
|
2729 |
|
2731 |
=cut |
2730 |
=cut |
2732 |
|
2731 |
|
2733 |
- |
|
|