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

(-)a/Koha/ILL/Backend/Standard.pm (-4 / +14 lines)
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
- 

Return to bug 36197