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

(-)a/Koha/Patron.pm (-4 / +8 lines)
Lines 1028-1033 Returns the empty string if no email address. Link Here
1028
sub notice_email_address{
1028
sub notice_email_address{
1029
    my ( $self ) = @_;
1029
    my ( $self ) = @_;
1030
    my $address;
1030
    my $address;
1031
    my $guarantor_address;
1031
1032
1032
    my $which_address = C4::Context->preference("AutoEmailPrimaryAddress");
1033
    my $which_address = C4::Context->preference("AutoEmailPrimaryAddress");
1033
    # if syspref is set to 'first valid' (value == OFF), look up email address
1034
    # if syspref is set to 'first valid' (value == OFF), look up email address
Lines 1041-1051 sub notice_email_address{ Link Here
1041
    if ($use_guarantor) {
1042
    if ($use_guarantor) {
1042
        my $guarantor = $self->guarantor;
1043
        my $guarantor = $self->guarantor;
1043
        if ($guarantor) {
1044
        if ($guarantor) {
1044
            my $guarantor_address = $guarantor->notice_email_address;
1045
            if ( $which_address eq 'OFF' ) {
1046
                $guarantor_address = $guarantor->first_valid_email_address;
1047
            } else {
1048
                $guarantor_address = $guarantor->$which_address || '';
1049
            }
1045
            if ($address){
1050
            if ($address){
1046
            $address .= ', ';
1051
                $address .= ', ';
1047
            }
1052
            }
1048
            $address .=  $guarantor_address if $guarantor_address;
1053
                $address .=  $guarantor_address if $guarantor_address;
1049
        }
1054
        }
1050
    }
1055
    }
1051
    return $address;
1056
    return $address;
1052
- 

Return to bug 12532