|
Lines 57-63
sub request {
Link Here
|
| 57 |
) unless $self->borrower->can_request_article; |
57 |
) unless $self->borrower->can_request_article; |
| 58 |
|
58 |
|
| 59 |
$self->status(Koha::ArticleRequest::Status::Requested); |
59 |
$self->status(Koha::ArticleRequest::Status::Requested); |
| 60 |
$self->SUPER::store(); |
60 |
$self->store(); |
| 61 |
$self->notify(); |
61 |
$self->notify(); |
| 62 |
return $self; |
62 |
return $self; |
| 63 |
} |
63 |
} |
|
Lines 74-80
sub set_pending {
Link Here
|
| 74 |
my ($self) = @_; |
74 |
my ($self) = @_; |
| 75 |
|
75 |
|
| 76 |
$self->status(Koha::ArticleRequest::Status::Pending); |
76 |
$self->status(Koha::ArticleRequest::Status::Pending); |
| 77 |
$self->SUPER::store(); |
77 |
$self->store(); |
| 78 |
$self->notify(); |
78 |
$self->notify(); |
| 79 |
return $self; |
79 |
return $self; |
| 80 |
} |
80 |
} |
|
Lines 204-210
sub store {
Link Here
|
| 204 |
return $self->SUPER::store; |
204 |
return $self->SUPER::store; |
| 205 |
} else { |
205 |
} else { |
| 206 |
$self->created_on( dt_from_string() ); |
206 |
$self->created_on( dt_from_string() ); |
| 207 |
return $self->request; |
207 |
return $self->SUPER::store; |
| 208 |
} |
208 |
} |
| 209 |
} |
209 |
} |
| 210 |
|
210 |
|
| 211 |
- |
|
|