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 442-448
sub load_backend {
Link Here
|
442 |
$self->{_my_backend} = $backend_plugin->new_ill_backend( |
442 |
$self->{_my_backend} = $backend_plugin->new_ill_backend( |
443 |
{ |
443 |
{ |
444 |
config => $self->_config, |
444 |
config => $self->_config, |
445 |
logger => Koha::Illrequest::Logger->new |
445 |
logger => Koha::ILL::Request::Logger->new |
446 |
} |
446 |
} |
447 |
); |
447 |
); |
448 |
} elsif ($backend_name) { |
448 |
} elsif ($backend_name) { |
Lines 455-461
sub load_backend {
Link Here
|
455 |
$self->{_my_backend} = $backend_class->new( |
455 |
$self->{_my_backend} = $backend_class->new( |
456 |
{ |
456 |
{ |
457 |
config => $self->_config, |
457 |
config => $self->_config, |
458 |
logger => Koha::Illrequest::Logger->new |
458 |
logger => Koha::ILL::Request::Logger->new |
459 |
} |
459 |
} |
460 |
); |
460 |
); |
461 |
} |
461 |
} |
Lines 1673-1679
sub send_patron_notice {
Link Here
|
1673 |
} |
1673 |
} |
1674 |
} |
1674 |
} |
1675 |
if (scalar @success > 0) { |
1675 |
if (scalar @success > 0) { |
1676 |
my $logger = Koha::Illrequest::Logger->new; |
1676 |
my $logger = Koha::ILL::Request::Logger->new; |
1677 |
$logger->log_patron_notice({ |
1677 |
$logger->log_patron_notice({ |
1678 |
request => $self, |
1678 |
request => $self, |
1679 |
notice_code => $notice_code |
1679 |
notice_code => $notice_code |
Lines 1919-1925
sub store {
Link Here
|
1919 |
$attrs->{log_origin} = 'core'; |
1919 |
$attrs->{log_origin} = 'core'; |
1920 |
|
1920 |
|
1921 |
if ($ret && defined $attrs) { |
1921 |
if ($ret && defined $attrs) { |
1922 |
my $logger = Koha::Illrequest::Logger->new; |
1922 |
my $logger = Koha::ILL::Request::Logger->new; |
1923 |
$logger->log_maybe({ |
1923 |
$logger->log_maybe({ |
1924 |
request => $self, |
1924 |
request => $self, |
1925 |
attrs => $attrs |
1925 |
attrs => $attrs |