|
Lines 33-39
use Koha::Exceptions::Ill;
Link Here
|
| 33 |
use Koha::ILL::Comments; |
33 |
use Koha::ILL::Comments; |
| 34 |
use Koha::ILL::Request::Attributes; |
34 |
use Koha::ILL::Request::Attributes; |
| 35 |
use Koha::AuthorisedValue; |
35 |
use Koha::AuthorisedValue; |
| 36 |
use Koha::Illrequest::Logger; |
36 |
use Koha::ILL::Request::Logger; |
| 37 |
use Koha::Patron; |
37 |
use Koha::Patron; |
| 38 |
use Koha::ILL::Batches; |
38 |
use Koha::ILL::Batches; |
| 39 |
use Koha::AuthorisedValues; |
39 |
use Koha::AuthorisedValues; |
|
Lines 234-240
sub comments {
Link Here
|
| 234 |
|
234 |
|
| 235 |
sub logs { |
235 |
sub logs { |
| 236 |
my ( $self ) = @_; |
236 |
my ( $self ) = @_; |
| 237 |
my $logger = Koha::Illrequest::Logger->new; |
237 |
my $logger = Koha::ILL::Request::Logger->new; |
| 238 |
return $logger->get_request_logs($self); |
238 |
return $logger->get_request_logs($self); |
| 239 |
} |
239 |
} |
| 240 |
|
240 |
|
|
Lines 317-323
sub status_alias {
Link Here
|
| 317 |
my $ret = $self->SUPER::status_alias($val); |
317 |
my $ret = $self->SUPER::status_alias($val); |
| 318 |
my $val_to_log = $val ? $new_status_alias : scalar $self->status; |
318 |
my $val_to_log = $val ? $new_status_alias : scalar $self->status; |
| 319 |
if ($ret) { |
319 |
if ($ret) { |
| 320 |
my $logger = Koha::Illrequest::Logger->new; |
320 |
my $logger = Koha::ILL::Request::Logger->new; |
| 321 |
$logger->log_status_change({ |
321 |
$logger->log_status_change({ |
| 322 |
request => $self, |
322 |
request => $self, |
| 323 |
value => $val_to_log |
323 |
value => $val_to_log |
|
Lines 379-385
sub status {
Link Here
|
| 379 |
# so we pass -1, which is special cased in the overloaded setter |
379 |
# so we pass -1, which is special cased in the overloaded setter |
| 380 |
$self->status_alias("-1"); |
380 |
$self->status_alias("-1"); |
| 381 |
} else { |
381 |
} else { |
| 382 |
my $logger = Koha::Illrequest::Logger->new; |
382 |
my $logger = Koha::ILL::Request::Logger->new; |
| 383 |
$logger->log_status_change({ |
383 |
$logger->log_status_change({ |
| 384 |
request => $self, |
384 |
request => $self, |
| 385 |
value => $new_status |
385 |
value => $new_status |
|
Lines 444-450
sub load_backend {
Link Here
|
| 444 |
$self->{_my_backend} = $backend_plugin_class->new_backend( |
444 |
$self->{_my_backend} = $backend_plugin_class->new_backend( |
| 445 |
{ |
445 |
{ |
| 446 |
config => $self->_config, |
446 |
config => $self->_config, |
| 447 |
logger => Koha::Illrequest::Logger->new |
447 |
logger => Koha::ILL::Request::Logger->new |
| 448 |
} |
448 |
} |
| 449 |
); |
449 |
); |
| 450 |
} elsif ($backend_name) { |
450 |
} elsif ($backend_name) { |
|
Lines 457-463
sub load_backend {
Link Here
|
| 457 |
$self->{_my_backend} = $backend_class->new( |
457 |
$self->{_my_backend} = $backend_class->new( |
| 458 |
{ |
458 |
{ |
| 459 |
config => $self->_config, |
459 |
config => $self->_config, |
| 460 |
logger => Koha::Illrequest::Logger->new |
460 |
logger => Koha::ILL::Request::Logger->new |
| 461 |
} |
461 |
} |
| 462 |
); |
462 |
); |
| 463 |
} |
463 |
} |
|
Lines 1675-1681
sub send_patron_notice {
Link Here
|
| 1675 |
} |
1675 |
} |
| 1676 |
} |
1676 |
} |
| 1677 |
if (scalar @success > 0) { |
1677 |
if (scalar @success > 0) { |
| 1678 |
my $logger = Koha::Illrequest::Logger->new; |
1678 |
my $logger = Koha::ILL::Request::Logger->new; |
| 1679 |
$logger->log_patron_notice({ |
1679 |
$logger->log_patron_notice({ |
| 1680 |
request => $self, |
1680 |
request => $self, |
| 1681 |
notice_code => $notice_code |
1681 |
notice_code => $notice_code |
|
Lines 1921-1927
sub store {
Link Here
|
| 1921 |
$attrs->{log_origin} = 'core'; |
1921 |
$attrs->{log_origin} = 'core'; |
| 1922 |
|
1922 |
|
| 1923 |
if ($ret && defined $attrs) { |
1923 |
if ($ret && defined $attrs) { |
| 1924 |
my $logger = Koha::Illrequest::Logger->new; |
1924 |
my $logger = Koha::ILL::Request::Logger->new; |
| 1925 |
$logger->log_maybe({ |
1925 |
$logger->log_maybe({ |
| 1926 |
request => $self, |
1926 |
request => $self, |
| 1927 |
attrs => $attrs |
1927 |
attrs => $attrs |