View | Details | Raw Unified | Return to bug 35717
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 1385-1396 sub ModReceiveOrder { Link Here
1385
    $order->{invoice_unitprice} ||= $order->{unitprice};
1385
    $order->{invoice_unitprice} ||= $order->{unitprice};
1386
    $order->{invoice_currency}  ||= Koha::Acquisition::Currencies->get_active->currency;
1386
    $order->{invoice_currency}  ||= Koha::Acquisition::Currencies->get_active->currency;
1387
1387
1388
    my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber );
1388
    if ( $order->{suggestionid} ) {
1389
    if ($suggestionid) {
1389
        ModSuggestion(
1390
        ModSuggestion( {suggestionid=>$suggestionid,
1390
            {
1391
                        STATUS=>'AVAILABLE',
1391
                suggestionid => $order->{suggestionid},
1392
                        biblionumber=> $biblionumber}
1392
                STATUS       => 'AVAILABLE',
1393
                        );
1393
                biblionumber => $biblionumber
1394
            }
1395
        );
1394
    }
1396
    }
1395
1397
1396
    my $result_set = $dbh->selectrow_arrayref(
1398
    my $result_set = $dbh->selectrow_arrayref(
1397
- 

Return to bug 35717