Lines 977-988
sub add_request {
Link Here
|
977 |
|
977 |
|
978 |
my ( $self, $params ) = @_; |
978 |
my ( $self, $params ) = @_; |
979 |
|
979 |
|
|
|
980 |
my $unauthenticated_request = |
981 |
C4::Context->preference("ILLOpacUnauthenticatedRequest") && !$params->{other}->{'cardnumber'}; |
982 |
|
980 |
# ...Populate Illrequestattributes |
983 |
# ...Populate Illrequestattributes |
981 |
# generate $request_details |
984 |
# generate $request_details |
982 |
my $request_details = _get_request_details( $params, $params->{other} ); |
985 |
my $request_details = _get_request_details( $params, $params->{other} ); |
983 |
|
986 |
|
984 |
my ( $brw_count, $brw ) = |
987 |
my ( $brw_count, $brw ) = |
985 |
_validate_borrower( $params->{other}->{'cardnumber'} ); |
988 |
_validate_borrower( $params->{other}->{'cardnumber'} ) unless $unauthenticated_request; |
986 |
|
989 |
|
987 |
## Create request |
990 |
## Create request |
988 |
|
991 |
|
Lines 992-998
sub add_request {
Link Here
|
992 |
# ...Populate Illrequest |
995 |
# ...Populate Illrequest |
993 |
my $request = $params->{request}; |
996 |
my $request = $params->{request}; |
994 |
$request->biblio_id($biblionumber) unless $biblionumber == 0; |
997 |
$request->biblio_id($biblionumber) unless $biblionumber == 0; |
995 |
$request->borrowernumber( $brw->borrowernumber ); |
998 |
$request->borrowernumber( $brw ? $brw->borrowernumber : undef ); |
996 |
$request->branchcode( $params->{other}->{branchcode} ); |
999 |
$request->branchcode( $params->{other}->{branchcode} ); |
997 |
$request->status( $unauthenticated_request ? 'UNAUTH' : 'NEW'); |
1000 |
$request->status( $unauthenticated_request ? 'UNAUTH' : 'NEW'); |
998 |
$request->backend( $params->{other}->{backend} ); |
1001 |
$request->backend( $params->{other}->{backend} ); |
Lines 1017-1022
sub add_request {
Link Here
|
1017 |
} |
1020 |
} |
1018 |
} |
1021 |
} |
1019 |
|
1022 |
|
|
|
1023 |
if ($unauthenticated_request) { |
1024 |
my $unauthenticated_notes_text = |
1025 |
"Unauthenticated request.\nFirst name: $params->{other}->{'unauthenticated_first_name'}" |
1026 |
. ".\nLast name: $params->{other}->{'unauthenticated_last_name'}." |
1027 |
. "\nEmail: $params->{other}->{'unauthenticated_email'}."; |
1028 |
$request->append_to_note($unauthenticated_notes_text); |
1029 |
$request->notesopac($unauthenticated_notes_text)->store; |
1030 |
} |
1031 |
|
1020 |
return $request; |
1032 |
return $request; |
1021 |
} |
1033 |
} |
1022 |
|
1034 |
|
1023 |
- |
|
|