|
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 |
- |
|
|