|
Lines 18-23
package C4::Acquisition;
Link Here
|
| 18 |
# along with Koha; if not, see <https://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <https://www.gnu.org/licenses>. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
|
|
21 |
|
| 21 |
BEGIN { |
22 |
BEGIN { |
| 22 |
our @EXPORT_OK = qw( |
23 |
our @EXPORT_OK = qw( |
| 23 |
GetBasket NewBasket ReopenBasket ModBasket |
24 |
GetBasket NewBasket ReopenBasket ModBasket |
|
Lines 67-73
BEGIN {
Link Here
|
| 67 |
use Carp qw( carp croak ); |
68 |
use Carp qw( carp croak ); |
| 68 |
use Text::CSV_XS; |
69 |
use Text::CSV_XS; |
| 69 |
use C4::Context; |
70 |
use C4::Context; |
| 70 |
use C4::Suggestions qw( GetSuggestionFromBiblionumber ModSuggestion ); |
71 |
use C4::Suggestions qw( ModSuggestion ); |
| 71 |
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ); |
72 |
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ); |
| 72 |
use C4::Contract qw( GetContract ); |
73 |
use C4::Contract qw( GetContract ); |
| 73 |
use C4::Log qw( logaction ); |
74 |
use C4::Log qw( logaction ); |
|
Lines 1415-1425
sub ModReceiveOrder {
Link Here
|
| 1415 |
$order->{invoice_unitprice} ||= $order->{unitprice}; |
1416 |
$order->{invoice_unitprice} ||= $order->{unitprice}; |
| 1416 |
$order->{invoice_currency} ||= Koha::Acquisition::Currencies->get_active->currency; |
1417 |
$order->{invoice_currency} ||= Koha::Acquisition::Currencies->get_active->currency; |
| 1417 |
|
1418 |
|
| 1418 |
my $suggestionid = GetSuggestionFromBiblionumber($biblionumber); |
1419 |
my $suggestion = Koha::Suggestions->find( { biblionumber => $biblionumber } ); |
| 1419 |
if ($suggestionid) { |
1420 |
if ($suggestion) { |
| 1420 |
ModSuggestion( |
1421 |
ModSuggestion( |
| 1421 |
{ |
1422 |
{ |
| 1422 |
suggestionid => $suggestionid, |
1423 |
suggestionid => $suggestion->suggestionid, |
| 1423 |
STATUS => 'AVAILABLE', |
1424 |
STATUS => 'AVAILABLE', |
| 1424 |
biblionumber => $biblionumber |
1425 |
biblionumber => $biblionumber |
| 1425 |
} |
1426 |
} |