[biblibre-newacq] (bug #3616) fix neworderempty

if there is no budget, neworderempty dies, this must not happen.
This patchs fix it.
This commit is contained in:
Nahuel ANGELINETTI 2009-09-14 14:20:12 +02:00 committed by Henri-Damien LAURENT
parent ba09e94b80
commit fa6d109d35

View file

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