|
Lines 30-35
use Koha::Database;
Link Here
|
| 30 |
use Koha::Email; |
30 |
use Koha::Email; |
| 31 |
use Koha::Exceptions::Ill; |
31 |
use Koha::Exceptions::Ill; |
| 32 |
use Koha::Illrequestattributes; |
32 |
use Koha::Illrequestattributes; |
|
|
33 |
use Koha::AuthorisedValue; |
| 33 |
use Koha::Patron; |
34 |
use Koha::Patron; |
| 34 |
|
35 |
|
| 35 |
use base qw(Koha::Object); |
36 |
use base qw(Koha::Object); |
|
Lines 108-113
available for request.
Link Here
|
| 108 |
|
109 |
|
| 109 |
=head2 Class methods |
110 |
=head2 Class methods |
| 110 |
|
111 |
|
|
|
112 |
=head3 statusalias |
| 113 |
|
| 114 |
=cut |
| 115 |
|
| 116 |
sub statusalias { |
| 117 |
my ( $self ) = @_; |
| 118 |
return $self->status_alias ? |
| 119 |
Koha::AuthorisedValue->_new_from_dbic( |
| 120 |
scalar $self->_result->status_alias |
| 121 |
) : |
| 122 |
undef; |
| 123 |
} |
| 124 |
|
| 111 |
=head3 illrequestattributes |
125 |
=head3 illrequestattributes |
| 112 |
|
126 |
|
| 113 |
=cut |
127 |
=cut |
|
Lines 130-135
sub patron {
Link Here
|
| 130 |
); |
144 |
); |
| 131 |
} |
145 |
} |
| 132 |
|
146 |
|
|
|
147 |
=head3 status |
| 148 |
|
| 149 |
Overloaded getter/setter for request status, |
| 150 |
also nullifies status_alias |
| 151 |
|
| 152 |
=cut |
| 153 |
|
| 154 |
sub status { |
| 155 |
my ( $self, $newval) = @_; |
| 156 |
if ($newval) { |
| 157 |
$self->status_alias(undef); |
| 158 |
return $self->SUPER::status($newval); |
| 159 |
} |
| 160 |
return $self->SUPER::status; |
| 161 |
} |
| 162 |
|
| 133 |
=head3 load_backend |
163 |
=head3 load_backend |
| 134 |
|
164 |
|
| 135 |
Require "Base.pm" from the relevant ILL backend. |
165 |
Require "Base.pm" from the relevant ILL backend. |
| 136 |
- |
|
|