|
Lines 31-36
use Koha::Email;
Link Here
|
| 31 |
use Koha::Exceptions::Ill; |
31 |
use Koha::Exceptions::Ill; |
| 32 |
use Koha::Illcomments; |
32 |
use Koha::Illcomments; |
| 33 |
use Koha::Illrequestattributes; |
33 |
use Koha::Illrequestattributes; |
|
|
34 |
use Koha::AuthorisedValue; |
| 34 |
use Koha::Patron; |
35 |
use Koha::Patron; |
| 35 |
|
36 |
|
| 36 |
use base qw(Koha::Object); |
37 |
use base qw(Koha::Object); |
|
Lines 109-114
available for request.
Link Here
|
| 109 |
|
110 |
|
| 110 |
=head2 Class methods |
111 |
=head2 Class methods |
| 111 |
|
112 |
|
|
|
113 |
=head3 statusalias |
| 114 |
|
| 115 |
=cut |
| 116 |
|
| 117 |
sub statusalias { |
| 118 |
my ( $self ) = @_; |
| 119 |
return $self->status_alias ? |
| 120 |
Koha::AuthorisedValue->_new_from_dbic( |
| 121 |
scalar $self->_result->status_alias |
| 122 |
) : |
| 123 |
undef; |
| 124 |
} |
| 125 |
|
| 112 |
=head3 illrequestattributes |
126 |
=head3 illrequestattributes |
| 113 |
|
127 |
|
| 114 |
=cut |
128 |
=cut |
|
Lines 142-147
sub patron {
Link Here
|
| 142 |
); |
156 |
); |
| 143 |
} |
157 |
} |
| 144 |
|
158 |
|
|
|
159 |
=head3 status |
| 160 |
|
| 161 |
Overloaded getter/setter for request status, |
| 162 |
also nullifies status_alias |
| 163 |
|
| 164 |
=cut |
| 165 |
|
| 166 |
sub status { |
| 167 |
my ( $self, $newval) = @_; |
| 168 |
if ($newval) { |
| 169 |
$self->status_alias(undef); |
| 170 |
return $self->SUPER::status($newval); |
| 171 |
} |
| 172 |
return $self->SUPER::status; |
| 173 |
} |
| 174 |
|
| 145 |
=head3 load_backend |
175 |
=head3 load_backend |
| 146 |
|
176 |
|
| 147 |
Require "Base.pm" from the relevant ILL backend. |
177 |
Require "Base.pm" from the relevant ILL backend. |
| 148 |
- |
|
|