Lines 1046-1057
sub CanBookBeIssued {
Link Here
|
1046 |
# issued to someone else |
1046 |
# issued to someone else |
1047 |
my $currborinfo = C4::Members::GetMember( borrowernumber => $issue->{borrowernumber} ); |
1047 |
my $currborinfo = C4::Members::GetMember( borrowernumber => $issue->{borrowernumber} ); |
1048 |
|
1048 |
|
1049 |
# warn "=>.$currborinfo->{'firstname'} $currborinfo->{'surname'} ($currborinfo->{'cardnumber'})"; |
1049 |
|
1050 |
$needsconfirmation{ISSUED_TO_ANOTHER} = 1; |
1050 |
my ( $can_be_returned, $message ) = CanBookBeReturned( $item, C4::Context->userenv->{branch} ); |
1051 |
$needsconfirmation{issued_firstname} = $currborinfo->{'firstname'}; |
1051 |
|
1052 |
$needsconfirmation{issued_surname} = $currborinfo->{'surname'}; |
1052 |
unless ( $can_be_returned ) { |
1053 |
$needsconfirmation{issued_cardnumber} = $currborinfo->{'cardnumber'}; |
1053 |
$issuingimpossible{RETURN_IMPOSSIBLE} = 1; |
1054 |
$needsconfirmation{issued_borrowernumber} = $currborinfo->{'borrowernumber'}; |
1054 |
$issuingimpossible{branch_to_return} = $message; |
|
|
1055 |
} else { |
1056 |
$needsconfirmation{ISSUED_TO_ANOTHER} = 1; |
1057 |
$needsconfirmation{issued_firstname} = $currborinfo->{'firstname'}; |
1058 |
$needsconfirmation{issued_surname} = $currborinfo->{'surname'}; |
1059 |
$needsconfirmation{issued_cardnumber} = $currborinfo->{'cardnumber'}; |
1060 |
$needsconfirmation{issued_borrowernumber} = $currborinfo->{'borrowernumber'}; |
1061 |
} |
1055 |
} |
1062 |
} |
1056 |
|
1063 |
|
1057 |
unless ( $ignore_reserves ) { |
1064 |
unless ( $ignore_reserves ) { |