|
Lines 184-190
sub statusalias {
Link Here
|
| 184 |
return Koha::AuthorisedValues->search( |
184 |
return Koha::AuthorisedValues->search( |
| 185 |
{ |
185 |
{ |
| 186 |
category => 'ILL_STATUS_ALIAS', |
186 |
category => 'ILL_STATUS_ALIAS', |
| 187 |
authorised_value => $self->SUPER::status_alias |
187 |
authorised_value => $self->get_column('status_alias'), |
| 188 |
}, |
188 |
}, |
| 189 |
{}, |
189 |
{}, |
| 190 |
$self->branchcode |
190 |
$self->branchcode |
|
Lines 315-321
sub status_alias {
Link Here
|
| 315 |
# We need a way of accepting implied undef, so we can nullify |
315 |
# We need a way of accepting implied undef, so we can nullify |
| 316 |
# the status_alias column, when called from $self->status |
316 |
# the status_alias column, when called from $self->status |
| 317 |
my $val = $new_status_alias eq "-1" ? undef : $new_status_alias; |
317 |
my $val = $new_status_alias eq "-1" ? undef : $new_status_alias; |
| 318 |
my $ret = $self->SUPER::status_alias($val); |
318 |
my $ret = $self->set( { status_alias => $val } ); |
| 319 |
my $val_to_log = $val ? $new_status_alias : scalar $self->status; |
319 |
my $val_to_log = $val ? $new_status_alias : scalar $self->status; |
| 320 |
if ($ret) { |
320 |
if ($ret) { |
| 321 |
my $logger = Koha::ILL::Request::Logger->new; |
321 |
my $logger = Koha::ILL::Request::Logger->new; |
|
Lines 369-375
sub status {
Link Here
|
| 369 |
$self->{previous_status} = $current_status_alias ? |
369 |
$self->{previous_status} = $current_status_alias ? |
| 370 |
$current_status_alias : |
370 |
$current_status_alias : |
| 371 |
$current_status; |
371 |
$current_status; |
| 372 |
my $ret = $self->SUPER::status($new_status)->store; |
372 |
my $ret = $self->set( { status => $new_status } )->store; |
| 373 |
if ($current_status_alias) { |
373 |
if ($current_status_alias) { |
| 374 |
# This is hackery to enable us to undefine |
374 |
# This is hackery to enable us to undefine |
| 375 |
# status_alias, since we need to have an overloaded |
375 |
# status_alias, since we need to have an overloaded |
|
Lines 1174-1180
sub get_type {
Link Here
|
| 1174 |
my $attr = $self->extended_attributes->find({ type => 'type'}); |
1174 |
my $attr = $self->extended_attributes->find({ type => 'type'}); |
| 1175 |
return if !$attr; |
1175 |
return if !$attr; |
| 1176 |
return $attr->value; |
1176 |
return $attr->value; |
| 1177 |
}; |
1177 |
} |
| 1178 |
|
1178 |
|
| 1179 |
=head3 get_type_disclaimer_value |
1179 |
=head3 get_type_disclaimer_value |
| 1180 |
|
1180 |
|