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(__ __x); |
37 |
use Koha::I18N qw(__); |
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-1962
sub attach_processors {
Link Here
|
1939 |
} |
1939 |
} |
1940 |
} |
1940 |
} |
1941 |
|
1941 |
|
1942 |
=head3 append_unauthenticated_notes |
1942 |
=head3 add_unauthenticated_data |
1943 |
|
1943 |
|
1944 |
append_unauthenticated_notes($metadata); |
1944 |
add_unauthenticated_data($metadata); |
1945 |
|
1945 |
|
1946 |
Append unauthenticated details to staff and opac notes |
1946 |
Adds unauthenticated data as I<Koha::ILL::Request::Attributes> |
1947 |
|
1947 |
|
1948 |
=cut |
1948 |
=cut |
1949 |
|
1949 |
|
1950 |
sub append_unauthenticated_notes { |
1950 |
sub add_unauthenticated_data { |
1951 |
my ( $self, $metadata ) = @_; |
1951 |
my ( $self, $metadata ) = @_; |
1952 |
my $unauthenticated_notes_text = __x( |
1952 |
|
1953 |
"Unauthenticated request.\nFirst name: {first_name}.\nLast name: {last_name}.\nEmail: {email}.", |
1953 |
my $extended_attributes = $self->extended_attributes( |
1954 |
first_name => $metadata->{'unauthenticated_first_name'}, |
1954 |
[ |
1955 |
last_name => $metadata->{'unauthenticated_last_name'}, |
1955 |
{ |
1956 |
email => $metadata->{'unauthenticated_email'} |
1956 |
type => 'unauthenticated_first_name', |
|
|
1957 |
value => $metadata->{'unauthenticated_first_name'}, |
1958 |
}, |
1959 |
{ |
1960 |
type => 'unauthenticated_last_name', |
1961 |
value => $metadata->{'unauthenticated_last_name'}, |
1962 |
}, |
1963 |
{ |
1964 |
type => 'unauthenticated_email', |
1965 |
value => $metadata->{'unauthenticated_email'}, |
1966 |
}, |
1967 |
] |
1957 |
); |
1968 |
); |
1958 |
$self->append_to_note($unauthenticated_notes_text); |
|
|
1959 |
$self->notesopac($unauthenticated_notes_text)->store; |
1960 |
} |
1969 |
} |
1961 |
|
1970 |
|
1962 |
=head3 unauth_request_data_check |
1971 |
=head3 unauth_request_data_check |