|
Lines 51-57
sub store {
Link Here
|
| 51 |
my ($self) = @_; |
51 |
my ($self) = @_; |
| 52 |
|
52 |
|
| 53 |
$self->STATUS("ASKED") unless $self->STATUS; |
53 |
$self->STATUS("ASKED") unless $self->STATUS; |
| 54 |
my @status_constants = qw(ASKED CHECKED ACCEPTED REJECTED); |
54 |
my @status_constants = qw(ASKED CHECKED ACCEPTED REJECTED ORDERED AVAILABLE); |
| 55 |
Koha::Exceptions::Suggestion::StatusForbidden->throw( STATUS => $self->STATUS ) |
55 |
Koha::Exceptions::Suggestion::StatusForbidden->throw( STATUS => $self->STATUS ) |
| 56 |
unless ( grep { $self->STATUS eq $_ } @status_constants ) |
56 |
unless ( grep { $self->STATUS eq $_ } @status_constants ) |
| 57 |
|| Koha::AuthorisedValues->search( |
57 |
|| Koha::AuthorisedValues->search( |
| 58 |
- |
|
|