@@ -, +, @@ --- C4/Suggestions.pm | 2 ++ t/db_dependent/Suggestions.t | 13 ++++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -437,6 +437,7 @@ sub NewSuggestion { accepteddate rejectedby rejecteddate + budgetid ) ) { # Set the fields to NULL if not given. $suggestion->{$field} ||= undef; @@ -475,6 +476,7 @@ sub ModSuggestion { accepteddate rejectedby rejecteddate + budgetid ) ) { # Set the fields to NULL if not given. $suggestion->{$field} = undef --- a/t/db_dependent/Suggestions.t +++ a/t/db_dependent/Suggestions.t @@ -24,7 +24,7 @@ use C4::Budgets; use Koha::DateUtils qw( dt_from_string ); -use Test::More tests => 102; +use Test::More tests => 104; use Test::Warn; BEGIN { @@ -318,6 +318,13 @@ is(@$itemtypes2, 8, "Purchase suggestion itemtypes collected, default AdvancedSe is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved'); -$dbh->rollback; +# Test budgetid fk +$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB +my $my_suggestionid_test_budgetid = NewSuggestion($my_suggestion); +$suggestion = GetSuggestion($my_suggestionid_test_budgetid); +is( $suggestion->{budgetid}, undef, 'NewSuggestion Should set budgetid to NULL if equals an empty string' ); -done_testing; +$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB +ModSuggestion( $my_suggestion ); +$suggestion = GetSuggestion($my_suggestionid_test_budgetid); +is( $suggestion->{budgetid}, undef, 'NewSuggestion Should set budgetid to NULL if equals an empty string' ); --