View | Details | Raw Unified | Return to bug 36197
Collapse All | Expand All

(-)a/Koha/ILL/Backend/Standard.pm (-9 / +1 lines)
Lines 1015-1029 sub add_request { Link Here
1015
        }
1015
        }
1016
    } keys %{$request_details};
1016
    } keys %{$request_details};
1017
    $request->extended_attributes( \@request_details_array );
1017
    $request->extended_attributes( \@request_details_array );
1018
1018
    $request->append_unauthenticated_notes( $params->{other} ) if $unauthenticated_request;
1019
    if ($unauthenticated_request) {
1020
        my $unauthenticated_notes_text =
1021
              "Unauthenticated request.\nFirst name: $params->{other}->{'unauthenticated_first_name'}"
1022
            . ".\nLast name: $params->{other}->{'unauthenticated_last_name'}."
1023
            . "\nEmail: $params->{other}->{'unauthenticated_email'}.";
1024
        $request->append_to_note($unauthenticated_notes_text);
1025
        $request->notesopac($unauthenticated_notes_text)->store;
1026
    }
1027
1019
1028
    return $request;
1020
    return $request;
1029
}
1021
}
(-)a/Koha/ILL/Request.pm (-2 / +21 lines)
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
- 

Return to bug 36197