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

Return to bug 28844