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

(-)a/C4/Acquisition.pm (-5 / +3 lines)
Lines 22-35 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;
29
use C4::Contract;
28
use C4::Contract;
30
use C4::Debug;
29
use C4::Debug;
31
use C4::Templates qw(gettemplate);
30
use C4::Templates qw(gettemplate);
32
use Koha::DateUtils qw( dt_from_string output_pref );
31
use Koha::DateUtils;
33
use Koha::Acquisition::Order;
32
use Koha::Acquisition::Order;
34
use Koha::Acquisition::Bookseller;
33
use Koha::Acquisition::Bookseller;
35
use Koha::Number::Price;
34
use Koha::Number::Price;
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, otputpref=>'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