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