|
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, 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 |
- |
|
|