@@ -, +, @@ - New 'statusalias' getter method, returns the request's status_alias - Overloads existing 'status' method, getter/setter accessors intact, --- Koha/Illrequest.pm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) --- a/Koha/Illrequest.pm +++ a/Koha/Illrequest.pm @@ -30,6 +30,7 @@ use Koha::Database; use Koha::Email; use Koha::Exceptions::Ill; use Koha::Illrequestattributes; +use Koha::AuthorisedValue; use Koha::Patron; use base qw(Koha::Object); @@ -108,6 +109,19 @@ available for request. =head2 Class methods +=head3 statusalias + +=cut + +sub statusalias { + my ( $self ) = @_; + return $self->status_alias ? + Koha::AuthorisedValue->_new_from_dbic( + scalar $self->_result->status_alias + ) : + undef; +} + =head3 illrequestattributes =cut @@ -130,6 +144,22 @@ sub patron { ); } +=head3 status + +Overloaded getter/setter for request status, +also nullifies status_alias + +=cut + +sub status { + my ( $self, $newval) = @_; + if ($newval) { + $self->status_alias(undef); + return $self->SUPER::status($newval); + } + return $self->SUPER::status; +} + =head3 load_backend Require "Base.pm" from the relevant ILL backend. --