Lines 34-40
use Koha::Cache::Memory::Lite;
Link Here
|
34 |
use Koha::Database; |
34 |
use Koha::Database; |
35 |
use Koha::DateUtils qw( dt_from_string ); |
35 |
use Koha::DateUtils qw( dt_from_string ); |
36 |
use Koha::Exceptions::Ill; |
36 |
use Koha::Exceptions::Ill; |
37 |
use Koha::I18N qw(__); |
37 |
use Koha::I18N qw(__ __x); |
38 |
use Koha::ILL::Backend::Standard; |
38 |
use Koha::ILL::Backend::Standard; |
39 |
use Koha::ILL::Batches; |
39 |
use Koha::ILL::Batches; |
40 |
use Koha::ILL::Comments; |
40 |
use Koha::ILL::Comments; |
Lines 1939-1944
sub attach_processors {
Link Here
|
1939 |
} |
1939 |
} |
1940 |
} |
1940 |
} |
1941 |
|
1941 |
|
|
|
1942 |
=head3 append_unauthenticated_notes |
1943 |
|
1944 |
append_unauthenticated_notes($metadata); |
1945 |
|
1946 |
Append unauthenticated details to staff and opac notes |
1947 |
|
1948 |
=cut |
1949 |
|
1950 |
sub append_unauthenticated_notes { |
1951 |
my ( $self, $metadata ) = @_; |
1952 |
my $unauthenticated_notes_text = __x( |
1953 |
"Unauthenticated request.\nFirst name: {first_name}.\nLast name: {last_name}.\nEmail: {email}.", |
1954 |
first_name => $metadata->{'unauthenticated_first_name'}, |
1955 |
last_name => $metadata->{'unauthenticated_last_name'}, |
1956 |
email => $metadata->{'unauthenticated_email'} |
1957 |
); |
1958 |
$self->append_to_note($unauthenticated_notes_text); |
1959 |
$self->notesopac($unauthenticated_notes_text)->store; |
1960 |
} |
1961 |
|
1942 |
=head3 append_to_note |
1962 |
=head3 append_to_note |
1943 |
|
1963 |
|
1944 |
append_to_note("Some text"); |
1964 |
append_to_note("Some text"); |
1945 |
- |
|
|