|
Lines 299-305
correct category and records the fact that the status has changed
Link Here
|
| 299 |
sub status_alias { |
299 |
sub status_alias { |
| 300 |
my ($self, $new_status_alias) = @_; |
300 |
my ($self, $new_status_alias) = @_; |
| 301 |
|
301 |
|
| 302 |
my $current_status_alias = $self->SUPER::status_alias; |
302 |
my $current_status_alias = $self->get_column('status_alias'); |
| 303 |
|
303 |
|
| 304 |
if ($new_status_alias) { |
304 |
if ($new_status_alias) { |
| 305 |
# Keep a record of the previous status before we change it, |
305 |
# Keep a record of the previous status before we change it, |
|
Lines 334-340
sub status_alias {
Link Here
|
| 334 |
my $alias = Koha::AuthorisedValues->search( |
334 |
my $alias = Koha::AuthorisedValues->search( |
| 335 |
{ |
335 |
{ |
| 336 |
category => 'ILL_STATUS_ALIAS', |
336 |
category => 'ILL_STATUS_ALIAS', |
| 337 |
authorised_value => $self->SUPER::status_alias |
337 |
authorised_value => $current_status_alias |
| 338 |
}, |
338 |
}, |
| 339 |
{}, |
339 |
{}, |
| 340 |
$self->branchcode |
340 |
$self->branchcode |
|
Lines 360-367
and sends a notice if appropriate
Link Here
|
| 360 |
sub status { |
360 |
sub status { |
| 361 |
my ( $self, $new_status) = @_; |
361 |
my ( $self, $new_status) = @_; |
| 362 |
|
362 |
|
| 363 |
my $current_status = $self->SUPER::status; |
363 |
my $current_status = $self->get_column('status'); |
| 364 |
my $current_status_alias = $self->SUPER::status_alias; |
364 |
my $current_status_alias = $self->get_column('status_alias'); |
| 365 |
|
365 |
|
| 366 |
if ($new_status) { |
366 |
if ($new_status) { |
| 367 |
# Keep a record of the previous status before we change it, |
367 |
# Keep a record of the previous status before we change it, |
| 368 |
- |
|
|