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 1905-1910
sub attach_processors {
Link Here
|
1905 |
} |
1905 |
} |
1906 |
} |
1906 |
} |
1907 |
|
1907 |
|
|
|
1908 |
=head3 append_unauthenticated_notes |
1909 |
|
1910 |
append_unauthenticated_notes($metadata); |
1911 |
|
1912 |
Append unauthenticated details to staff and opac notes |
1913 |
|
1914 |
=cut |
1915 |
|
1916 |
sub append_unauthenticated_notes { |
1917 |
my ( $self, $metadata ) = @_; |
1918 |
my $unauthenticated_notes_text = __x( |
1919 |
"Unauthenticated request.\nFirst name: {first_name}.\nLast name: {last_name}.\nEmail: {email}.", |
1920 |
first_name => $metadata->{'unauthenticated_first_name'}, |
1921 |
last_name => $metadata->{'unauthenticated_last_name'}, |
1922 |
email => $metadata->{'unauthenticated_email'} |
1923 |
); |
1924 |
$self->append_to_note($unauthenticated_notes_text); |
1925 |
$self->notesopac($unauthenticated_notes_text)->store; |
1926 |
} |
1927 |
|
1908 |
=head3 append_to_note |
1928 |
=head3 append_to_note |
1909 |
|
1929 |
|
1910 |
append_to_note("Some text"); |
1930 |
append_to_note("Some text"); |
1911 |
- |
|
|