improvement/bugfix : search budget

[koha_fer] / acqui / neworderempty.pl

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index 7fe321a..32b70a5 100755 (executable)
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -97,7 +97,7 @@ my $title        = $input->param('title');
 my $author       = $input->param('author');
 my $copyright    = $input->param('copyright');
 my $bookseller   = GetBookSellerFromId($booksellerid); # FIXME: else ERROR!
-my $ordnum       = $input->param('ordnum');
+my $ordnum       = $input->param('ordnum') || '';
 my $biblionumber = $input->param('biblionumber');
 my $basketno     = $input->param('basketno');
 my $purchaseorder= $input->param('purchaseordernumber');
@@ -233,7 +233,7 @@ my $budget =  GetBudget($budget_id);
 # build budget list
 my %labels;
 my @values;
-my $budgets = GetBudgetHierarchy('1','',$borrower->{'borrowernumber'});
+my $budgets = GetBudgetHierarchy('','',$borrower->{'borrowernumber'});
 foreach my $r (@$budgets) {
     $labels{"$r->{budget_id}"} = $r->{budget_name};
     next if  sprintf ("%00d",  $r->{budget_amount})  ==   0;