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