From ae281f3712616952d9ef3db6d2ba418f49903603 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Fri, 26 Mar 2010 11:25:34 +0100 Subject: [PATCH] follow-up : remove perl error if the librarian choose no budget the librarian can enter the suggestion without selecting any budget. Searching the budget name in this case resulted in a Perl error Signed-off-by: Henri-Damien LAURENT Signed-off-by: Galen Charlton --- suggestion/suggestion.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl index 96b2869b0f..9023cd2e5b 100755 --- a/suggestion/suggestion.pl +++ b/suggestion/suggestion.pl @@ -167,7 +167,7 @@ if ($op=~/else/) { my $suggestions = &SearchSuggestion($suggestion_ref); foreach my $suggestion (@$suggestions){ - $suggestion->{budget_name}=GetBudget($suggestion->{budgetid})->{budget_name}; + $suggestion->{budget_name}=GetBudget($suggestion->{budgetid})->{budget_name} if $suggestion->{budgetid}; foreach my $date qw(suggesteddate manageddate accepteddate){ if ($suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ){ $suggestion->{$date}=format_date($suggestion->{$date}) ; -- 2.39.5