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 |