From fa6d109d3534cb65e24dc761b4373b6ef7b528c7 Mon Sep 17 00:00:00 2001
From: Nahuel ANGELINETTI <nahuel.angelinetti@biblibre.com>
Date: Mon, 14 Sep 2009 14:20:12 +0200
Subject: [PATCH] [biblibre-newacq] (bug #3616) fix neworderempty

if there is no budget, neworderempty dies, this must not happen.
This patchs fix it.
---
 acqui/neworderempty.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl
index e475b175b1..f4e13faab2 100755
--- a/acqui/neworderempty.pl
+++ b/acqui/neworderempty.pl
@@ -261,8 +261,10 @@ if ($budget) {    # its a mod ..
     if ( defined $budget->{'sort1_authcat'} ) {    # with custom  Asort* planning values
         $CGIsort1 = GetAuthvalueDropbox( 'sort1', $budget->{'sort1_authcat'}, $data->{'sort1'} );
     }
-} else {
+} elsif(scalar(@$budgets)){
     $CGIsort1 = GetAuthvalueDropbox( 'sort1', @$budgets[0]->{'sort1_authcat'}, '' );
+}else{
+    $CGIsort1 = GetAuthvalueDropbox( 'sort1','', '' );
 }
 
 # if CGIsort is successfully fetched, the use it
@@ -278,9 +280,12 @@ if ($budget) {
     if ( defined $budget->{'sort2_authcat'} ) {
         $CGIsort2 = GetAuthvalueDropbox( 'sort2', $budget->{'sort2_authcat'}, $data->{'sort2'} );
     }
-} else {
+} elsif(scalar(@$budgets)) {
     $CGIsort2 = GetAuthvalueDropbox( 'sort2', @$budgets[0]->{sort2_authcat}, '' );
+}else{
+    $CGIsort2 = GetAuthvalueDropbox( 'sort2','', '' );
 }
+
 if ($CGIsort2) {
     $template->param( CGIsort2 => $CGIsort2 );
 } else {
-- 
2.39.5