|
Lines 278-284
correct category and records the fact that the status has changed
Link Here
|
| 278 |
sub status_alias { |
278 |
sub status_alias { |
| 279 |
my ($self, $new_status_alias) = @_; |
279 |
my ($self, $new_status_alias) = @_; |
| 280 |
|
280 |
|
| 281 |
my $current_status_alias = $self->SUPER::status_alias; |
281 |
my $current_status_alias = $self->get_column('status_alias'); |
| 282 |
|
282 |
|
| 283 |
if ($new_status_alias) { |
283 |
if ($new_status_alias) { |
| 284 |
# Keep a record of the previous status before we change it, |
284 |
# Keep a record of the previous status before we change it, |
|
Lines 313-319
sub status_alias {
Link Here
|
| 313 |
my $alias = Koha::AuthorisedValues->search( |
313 |
my $alias = Koha::AuthorisedValues->search( |
| 314 |
{ |
314 |
{ |
| 315 |
category => 'ILL_STATUS_ALIAS', |
315 |
category => 'ILL_STATUS_ALIAS', |
| 316 |
authorised_value => $self->SUPER::status_alias |
316 |
authorised_value => $current_status_alias |
| 317 |
}, |
317 |
}, |
| 318 |
{}, |
318 |
{}, |
| 319 |
$self->branchcode |
319 |
$self->branchcode |
|
Lines 339-346
and sends a notice if appropriate
Link Here
|
| 339 |
sub status { |
339 |
sub status { |
| 340 |
my ( $self, $new_status) = @_; |
340 |
my ( $self, $new_status) = @_; |
| 341 |
|
341 |
|
| 342 |
my $current_status = $self->SUPER::status; |
342 |
my $current_status = $self->get_column('status'); |
| 343 |
my $current_status_alias = $self->SUPER::status_alias; |
343 |
my $current_status_alias = $self->get_column('status_alias'); |
| 344 |
|
344 |
|
| 345 |
if ($new_status) { |
345 |
if ($new_status) { |
| 346 |
# Keep a record of the previous status before we change it, |
346 |
# Keep a record of the previous status before we change it, |
| 347 |
- |
|
|