|
Lines 22-28
use Modern::Perl;
Link Here
|
| 22 |
use Carp qw( carp croak ); |
22 |
use Carp qw( carp croak ); |
| 23 |
use Text::CSV_XS; |
23 |
use Text::CSV_XS; |
| 24 |
use C4::Context; |
24 |
use C4::Context; |
| 25 |
use C4::Suggestions qw( GetSuggestion GetSuggestionFromBiblionumber ModSuggestion ); |
25 |
use C4::Suggestions qw( GetSuggestion ModSuggestion ); |
| 26 |
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ); |
26 |
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ); |
| 27 |
use C4::Contract qw( GetContract ); |
27 |
use C4::Contract qw( GetContract ); |
| 28 |
use C4::Log qw( logaction ); |
28 |
use C4::Log qw( logaction ); |
|
Lines 1387-1398
sub ModReceiveOrder {
Link Here
|
| 1387 |
$order->{invoice_unitprice} ||= $order->{unitprice}; |
1387 |
$order->{invoice_unitprice} ||= $order->{unitprice}; |
| 1388 |
$order->{invoice_currency} ||= Koha::Acquisition::Currencies->get_active->currency; |
1388 |
$order->{invoice_currency} ||= Koha::Acquisition::Currencies->get_active->currency; |
| 1389 |
|
1389 |
|
| 1390 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
1390 |
if ( $order->{suggestionid} ) { |
| 1391 |
if ($suggestionid) { |
1391 |
ModSuggestion( |
| 1392 |
ModSuggestion( {suggestionid=>$suggestionid, |
1392 |
{ |
| 1393 |
STATUS=>'AVAILABLE', |
1393 |
suggestionid => $order->{suggestionid}, |
| 1394 |
biblionumber=> $biblionumber} |
1394 |
STATUS => 'AVAILABLE', |
| 1395 |
); |
1395 |
biblionumber => $biblionumber |
|
|
1396 |
} |
| 1397 |
); |
| 1396 |
} |
1398 |
} |
| 1397 |
|
1399 |
|
| 1398 |
my $result_set = $dbh->selectrow_arrayref( |
1400 |
my $result_set = $dbh->selectrow_arrayref( |
| 1399 |
- |
|
|