Attachment #131094 for bug #12532

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

Lines 1475-1480 sub _send_message_by_email { Link Here

(-)a/C4/Letters.pm (+5 lines)
1475	if !$message->{to_address}	1475	if !$message->{to_address}
1476	\|\| $message->{to_address} ne $email->email->header('To');	1476	\|\| $message->{to_address} ne $email->email->header('To');
1477		1477
		1478	_update_message_from_address($message->{'message_id'},$email->email->header('From') )
		1479	if !$message->{from_address}
		1480	\|\| $message->{from_address} ne $email->email->header('From');
		1481
		1482
1478	try {	1483	try {
1479	$email->send_or_die({ transport => $smtp_server->transport });	1484	$email->send_or_die({ transport => $smtp_server->transport });
1480		1485




        $args->{to} = $params->{to};
    }

    #    Koha::Exceptions::BadParameter->throw(
    #        error     => "Invalid 'to' parameter: " . $args->{to},
    #        parameter => 'to'
    #    ) unless Koha::Email->is_valid( $args->{to} );    # to is mandatory
    my @emails = split(',', $args->{to});
    foreach my $email (@emails) {
       $email =~ s/ //g;
       Koha::Exceptions::BadParameter->throw(
           error     => "Invalid 'to' parameter: ".$email,
	   parameter => 'to'
       ) unless Koha::Email->is_valid($email);
    }
    my $addresses = {};
    $addresses->{reply_to} = $params->{reply_to};
    $addresses->{reply_to} ||= C4::Context->preference('ReplytoDefault')





    my $use_guarantor = C4::Context->preference('RedirectGuaranteeEmail');
    if ($use_guarantor) {
        my @guarantors = map { $_->guarantors->as_list } $self->guarantor_relationships();
        if (@guarantors) {
            foreach my $guarantor (@guarantors) {
                if ( $which_address eq 'OFF' ) {
                    $guarantor_address = $guarantor->first_valid_email_address;
                } else {
                    $guarantor_address = $guarantor->$which_address || '';
                }
                if ($address){
                    $address .= ', ';
                }
                $address .=  $guarantor_address if $guarantor_address;
            }
        }
    }
    return $address;
- 

Return to bug 12532

Lines 118-128 sub create { Link Here

(-)a/Koha/Email.pm (-5 / +12 lines)
118	$args->{to} = $params->{to};	118	$args->{to} = $params->{to};
119	}	119	}
120		120
121	Koha::Exceptions::BadParameter->throw(	121	# Koha::Exceptions::BadParameter->throw(
122	error => "Invalid 'to' parameter: " . $args->{to},	122	# error => "Invalid 'to' parameter: " . $args->{to},
123	parameter => 'to'	123	# parameter => 'to'
124	) unless Koha::Email->is_valid( $args->{to} ); # to is mandatory	124	# ) unless Koha::Email->is_valid( $args->{to} ); # to is mandatory
125		125	my @emails = split(',', $args->{to});
		126	foreach my $email (@emails) {
		127	$email =~ s/ //g;
		128	Koha::Exceptions::BadParameter->throw(
		129	error => "Invalid 'to' parameter: ".$email,
		130	parameter => 'to'
		131	) unless Koha::Email->is_valid($email);
		132	}
126	my $addresses = {};	133	my $addresses = {};
127	$addresses->{reply_to} = $params->{reply_to};	134	$addresses->{reply_to} = $params->{reply_to};
128	$addresses->{reply_to} \|\|= C4::Context->preference('ReplytoDefault')	135	$addresses->{reply_to} \|\|= C4::Context->preference('ReplytoDefault')

Lines 1338-1354 sub notice_email_address{ Link Here

(-)a/Koha/Patron.pm (-11 / +12 lines)
1338		1338
1339	my $use_guarantor = C4::Context->preference('RedirectGuaranteeEmail');	1339	my $use_guarantor = C4::Context->preference('RedirectGuaranteeEmail');
1340	if ($use_guarantor) {	1340	if ($use_guarantor) {
1341	my $guarantor = $self->guarantor;	1341	my @guarantors = map { $_->guarantors->as_list } $self->guarantor_relationships();
1342	if ($guarantor) {	1342	if (@guarantors) {
1343	if ( $which_address eq 'OFF' ) {	1343	foreach my $guarantor (@guarantors) {
1344	$guarantor_address = $guarantor->first_valid_email_address;	1344	if ( $which_address eq 'OFF' ) {
1345	} else {	1345	$guarantor_address = $guarantor->first_valid_email_address;
1346	$guarantor_address = $guarantor->$which_address \|\| '';	1346	} else {
1347	}	1347	$guarantor_address = $guarantor->$which_address \|\| '';
1348	if ($address){	1348	}
1349	$address .= ', ';	1349	if ($address){
1350	}	1350	$address .= ', ';
		1351	}
1351	$address .= $guarantor_address if $guarantor_address;	1352	$address .= $guarantor_address if $guarantor_address;
		1353	}
1352	}	1354	}
1353	}	1355	}
1354	return $address;	1356	return $address;
1355	-