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

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

Return to bug 28844