|
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 |
- |
|
|