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

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

Return to bug 13813