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 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=>DateTime->now(), 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=>DateTime->now(), dateonly=>1, otputpref=>'iso' }))
2730
2729
2731
=cut
2730
=cut
2732
2731
2733
- 

Return to bug 13813