View | Details | Raw Unified | Return to bug 20581
Collapse All | Expand All

(-)a/Koha/Illrequest.pm (-1 / +30 lines)
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
- 

Return to bug 20581