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