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

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

Return to bug 20581