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

(-)a/C4/Acquisition.pm (-4 / +2 lines)
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
- 

Return to bug 13813