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