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

(-)a/acqui/addorderiso2709.pl (-4 / +3 lines)
Lines 41-47 use C4::Biblio qw( Link Here
41
    TransformHtmlToXml
41
    TransformHtmlToXml
42
);
42
);
43
use C4::Items qw( PrepareItemrecordDisplay AddItemFromMarc );
43
use C4::Items qw( PrepareItemrecordDisplay AddItemFromMarc );
44
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
44
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget );
45
use C4::Suggestions;    # GetSuggestion
45
use C4::Suggestions;    # GetSuggestion
46
use C4::Members;
46
use C4::Members;
47
47
Lines 508-514 sub import_biblios_list { Link Here
508
        my $sort2 = $infos->{sort2};
508
        my $sort2 = $infos->{sort2};
509
        my $budget_id;
509
        my $budget_id;
510
        if($budget_code) {
510
        if($budget_code) {
511
            my $biblio_budget = GetBudgetByCode($budget_code);
511
            my $biblio_budget = GetBudget($budget_code);
512
            if($biblio_budget) {
512
            if($biblio_budget) {
513
                $budget_id = $biblio_budget->{budget_id};
513
                $budget_id = $biblio_budget->{budget_id};
514
            }
514
            }
Lines 534-540 sub import_biblios_list { Link Here
534
                my $item_budget_code = $iteminfos->{budget_code};
534
                my $item_budget_code = $iteminfos->{budget_code};
535
                my $item_budget_id;
535
                my $item_budget_id;
536
                if ( $iteminfos->{budget_code} ) {
536
                if ( $iteminfos->{budget_code} ) {
537
                    my $item_budget = GetBudgetByCode( $iteminfos->{budget_code} );
537
                    my $item_budget = GetBudget( $iteminfos->{budget_code} );
538
                    if ( $item_budget ) {
538
                    if ( $item_budget ) {
539
                        $item_budget_id = $item_budget->{budget_id};
539
                        $item_budget_id = $item_budget->{budget_id};
540
                    }
540
                    }
541
- 

Return to bug 34717