Lines 448-453
sub NewSuggestion {
Link Here
|
448 |
|
448 |
|
449 |
$suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate}; |
449 |
$suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate}; |
450 |
|
450 |
|
|
|
451 |
delete $suggestion->{branchcode} if $suggestion->{branchcode} eq ''; |
452 |
|
451 |
my $suggestion_object = Koha::Suggestion->new( $suggestion )->store; |
453 |
my $suggestion_object = Koha::Suggestion->new( $suggestion )->store; |
452 |
my $suggestion_id = $suggestion_object->suggestionid; |
454 |
my $suggestion_id = $suggestion_object->suggestionid; |
453 |
|
455 |
|
454 |
- |
|
|