|
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 |
- |
|
|