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

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

Return to bug 36197