Lines 979-990
sub add_request {
Link Here
|
979 |
|
979 |
|
980 |
my ( $self, $params ) = @_; |
980 |
my ( $self, $params ) = @_; |
981 |
|
981 |
|
|
|
982 |
my $unauthenticated_request = |
983 |
C4::Context->preference("ILLOpacUnauthenticatedRequest") && !$params->{other}->{'cardnumber'}; |
984 |
|
982 |
# ...Populate Illrequestattributes |
985 |
# ...Populate Illrequestattributes |
983 |
# generate $request_details |
986 |
# generate $request_details |
984 |
my $request_details = _get_request_details( $params, $params->{other} ); |
987 |
my $request_details = _get_request_details( $params, $params->{other} ); |
985 |
|
988 |
|
986 |
my ( $brw_count, $brw ) = |
989 |
my ( $brw_count, $brw ) = _validate_borrower( $params->{other}->{'cardnumber'} ) unless $unauthenticated_request; |
987 |
_validate_borrower( $params->{other}->{'cardnumber'} ); |
|
|
988 |
|
990 |
|
989 |
## Create request |
991 |
## Create request |
990 |
|
992 |
|
Lines 994-1000
sub add_request {
Link Here
|
994 |
# ...Populate Illrequest |
996 |
# ...Populate Illrequest |
995 |
my $request = $params->{request}; |
997 |
my $request = $params->{request}; |
996 |
$request->biblio_id($biblionumber) unless $biblionumber == 0; |
998 |
$request->biblio_id($biblionumber) unless $biblionumber == 0; |
997 |
$request->borrowernumber( $brw->borrowernumber ); |
999 |
$request->borrowernumber( $brw ? $brw->borrowernumber : undef ); |
998 |
$request->branchcode( $params->{other}->{branchcode} ); |
1000 |
$request->branchcode( $params->{other}->{branchcode} ); |
999 |
$request->status( $unauthenticated_request ? 'UNAUTH' : 'NEW' ); |
1001 |
$request->status( $unauthenticated_request ? 'UNAUTH' : 'NEW' ); |
1000 |
$request->backend( $params->{other}->{backend} ); |
1002 |
$request->backend( $params->{other}->{backend} ); |
Lines 1013-1018
sub add_request {
Link Here
|
1013 |
} keys %{$request_details}; |
1015 |
} keys %{$request_details}; |
1014 |
$request->extended_attributes( \@request_details_array ); |
1016 |
$request->extended_attributes( \@request_details_array ); |
1015 |
|
1017 |
|
|
|
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 |
|
1016 |
return $request; |
1027 |
return $request; |
1017 |
} |
1028 |
} |
1018 |
|
1029 |
|
1019 |
- |
|
|