Lines 1002-1032
Returns the empty string if no email address.
Link Here
|
1002 |
=cut |
1002 |
=cut |
1003 |
|
1003 |
|
1004 |
sub notice_email_address{ |
1004 |
sub notice_email_address{ |
1005 |
my ( $self ) = @_; |
1005 |
my ( $self ) = @_; |
1006 |
my $address; |
1006 |
my $address; |
1007 |
|
1007 |
my $guarantor_address; |
1008 |
my $which_address = C4::Context->preference("AutoEmailPrimaryAddress"); |
1008 |
|
1009 |
# if syspref is set to 'first valid' (value == OFF), look up email address |
1009 |
my $which_address = C4::Context->preference("AutoEmailPrimaryAddress"); |
1010 |
if ( $which_address eq 'OFF' ) { |
1010 |
# if syspref is set to 'first valid' (value == OFF), look up email address |
1011 |
$address = $self->first_valid_email_address; |
1011 |
if ( $which_address eq 'OFF' ) { |
1012 |
} else { |
1012 |
$address = $self->first_valid_email_address; |
1013 |
$address = $self->$which_address || ''; |
1013 |
} else { |
1014 |
} |
1014 |
$address = $self->$which_address || ''; |
1015 |
|
1015 |
} |
1016 |
my $use_guarantor = C4::Context->preference('RedirectGuaranteeEmail'); |
1016 |
|
1017 |
if ($use_guarantor) { |
1017 |
my $use_guarantor = C4::Context->preference('RedirectGuaranteeEmail'); |
1018 |
my $guarantor = $self->guarantor; |
1018 |
if ($use_guarantor) { |
1019 |
if ($guarantor) { |
1019 |
my $guarantor = $self->guarantor; |
1020 |
my $guarantor_address = $guarantor->notice_email_address; |
1020 |
if ($guarantor) { |
1021 |
if ($address){ |
1021 |
if ( $which_address eq 'OFF' ) { |
1022 |
$address .= ', '; |
1022 |
$guarantor_address = $guarantor->first_valid_email_address; |
1023 |
} |
1023 |
} else { |
1024 |
$address .= $guarantor_address if $guarantor_address; |
1024 |
$guarantor_address = $guarantor->$which_address || ''; |
1025 |
} |
1025 |
} |
1026 |
} |
1026 |
if ($address){ |
1027 |
return $address; |
1027 |
$address .= ', '; |
|
|
1028 |
} |
1029 |
$address .= $guarantor_address if $guarantor_address; |
1030 |
} |
1031 |
} |
1032 |
return $address; |
1028 |
} |
1033 |
} |
1029 |
|
1034 |
|
|
|
1035 |
|
1030 |
=head3 first_valid_email_address |
1036 |
=head3 first_valid_email_address |
1031 |
|
1037 |
|
1032 |
my $first_valid_email_address = $patron->first_valid_email_address |
1038 |
my $first_valid_email_address = $patron->first_valid_email_address |
1033 |
- |
|
|