Bug 7871: prevents crash when suggestion linked to erased budget
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz> Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
parent
680e92115f
commit
abf03414c3
1 changed files with 4 additions and 1 deletions
|
@ -205,7 +205,10 @@ if ($op=~/else/) {
|
|||
|
||||
my $suggestions = &SearchSuggestion($suggestion_ref);
|
||||
foreach my $suggestion (@$suggestions) {
|
||||
$suggestion->{budget_name} = GetBudget( $suggestion->{budgetid} )->{budget_name} if $suggestion->{budgetid};
|
||||
if ($suggestion->{budgetid}){
|
||||
my $bud = GetBudget( $suggestion->{budgetid} );
|
||||
$suggestion->{budget_name} = $bud->{budget_name} if $bud;
|
||||
}
|
||||
foreach my $date qw(suggesteddate manageddate accepteddate) {
|
||||
if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ) {
|
||||
$suggestion->{$date} = format_date( $suggestion->{$date} );
|
||||
|
|
Loading…
Reference in a new issue