Lines 426-438
Insert a new suggestion on database with value given on input arg.
Link Here
|
426 |
sub NewSuggestion { |
426 |
sub NewSuggestion { |
427 |
my ($suggestion) = @_; |
427 |
my ($suggestion) = @_; |
428 |
|
428 |
|
429 |
my $new_suggestion = { %$suggestion }; |
|
|
430 |
$suggestion->{STATUS} = "ASKED" unless $suggestion->{STATUS}; |
429 |
$suggestion->{STATUS} = "ASKED" unless $suggestion->{STATUS}; |
431 |
$new_suggestion->{status} = $suggestion->{STATUS}; |
|
|
432 |
delete $new_suggestion->{STATUS}; |
433 |
|
430 |
|
434 |
my $rs = Koha::Database->new->schema->resultset('Suggestion'); |
431 |
my $rs = Koha::Database->new->schema->resultset('Suggestion'); |
435 |
return $rs->create($new_suggestion)->id; |
432 |
return $rs->create($suggestion)->id; |
436 |
} |
433 |
} |
437 |
|
434 |
|
438 |
=head2 ModSuggestion |
435 |
=head2 ModSuggestion |
Lines 452-470
sub ModSuggestion {
Link Here
|
452 |
my ($suggestion) = @_; |
449 |
my ($suggestion) = @_; |
453 |
return unless( $suggestion and defined($suggestion->{suggestionid}) ); |
450 |
return unless( $suggestion and defined($suggestion->{suggestionid}) ); |
454 |
|
451 |
|
455 |
my $mod_suggestion = { %$suggestion }; |
|
|
456 |
my $status = $suggestion->{STATUS}; |
457 |
delete $mod_suggestion->{STATUS}; |
458 |
$mod_suggestion->{status} = $status; |
459 |
|
460 |
my $rs = Koha::Database->new->schema->resultset('Suggestion')->find($suggestion->{suggestionid}); |
452 |
my $rs = Koha::Database->new->schema->resultset('Suggestion')->find($suggestion->{suggestionid}); |
461 |
my $status_update_table = 1; |
453 |
my $status_update_table = 1; |
462 |
eval { |
454 |
eval { |
463 |
$rs->update($mod_suggestion); |
455 |
$rs->update($suggestion); |
464 |
}; |
456 |
}; |
465 |
$status_update_table = 0 if( $@ ); |
457 |
$status_update_table = 0 if( $@ ); |
466 |
|
458 |
|
467 |
if ( $status ) { |
459 |
if ( $suggestion->{STATUS} ) { |
468 |
|
460 |
|
469 |
# fetch the entire updated suggestion so that we can populate the letter |
461 |
# fetch the entire updated suggestion so that we can populate the letter |
470 |
my $full_suggestion = GetSuggestion( $suggestion->{suggestionid} ); |
462 |
my $full_suggestion = GetSuggestion( $suggestion->{suggestionid} ); |
471 |
- |
|
|