|
Lines 112-126
available for request.
Link Here
|
| 112 |
|
112 |
|
| 113 |
=head3 statusalias |
113 |
=head3 statusalias |
| 114 |
|
114 |
|
|
|
115 |
my $statusalias = $request->statusalias; |
| 116 |
|
| 117 |
Return a request's status alias, if one is defined, otherwise |
| 118 |
return implicit undef |
| 119 |
|
| 115 |
=cut |
120 |
=cut |
| 116 |
|
121 |
|
| 117 |
sub statusalias { |
122 |
sub statusalias { |
| 118 |
my ( $self ) = @_; |
123 |
my ( $self ) = @_; |
| 119 |
return $self->status_alias ? |
124 |
return unless $self->status_alias; |
| 120 |
Koha::AuthorisedValue->_new_from_dbic( |
125 |
return Koha::AuthorisedValue->_new_from_dbic( |
| 121 |
scalar $self->_result->status_alias |
126 |
scalar $self->_result->status_alias |
| 122 |
) : |
127 |
); |
| 123 |
undef; |
|
|
| 124 |
} |
128 |
} |
| 125 |
|
129 |
|
| 126 |
=head3 illrequestattributes |
130 |
=head3 illrequestattributes |
| 127 |
- |
|
|