From: Paul Poulain <[email protected]>

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 <[email protected]>
---
 suggestion/suggestion.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index 96b2869..9023cd2 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}) ;
-- 
1.6.3.3

_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches

Reply via email to