loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23.2.2.2.2, 2012/02/14 00:34:48	version 1.23.2.2.2.3, 2012/02/14 15:48:55
Line 259 sub send_token {	Line 259 sub send_token {
}	}

sub send_mail {	sub send_mail {
my ($domdesc,$email,$mailmsg,$contact_name,$contact_email) = @_;	my ($domdesc,$email,$mailmsg,$contact_name,$contact_email,$subject) = @_;
	if ($subject eq '') {
	$subject = &mt('Your LON-CAPA account');
	}
my $outcome;	my $outcome;
my $requestmail = "To: $email\n".	my $requestmail = "To: $email\n".
"From: $contact_name <$contact_email>\n".	"From: $contact_name <$contact_email>\n".
"Subject: ".&mt('Your LON-CAPA account')."\n".	"Subject: $subject\n".
"Content-type: text/plain\;charset=UTF-8\n".	"Content-type: text/plain\;charset=UTF-8\n".
"\n\n".$mailmsg."\n\n".	"\n\n".$mailmsg."\n\n".
&mt('[_1] LON-CAPA support team',$domdesc)."\n".	&mt('[_1] LON-CAPA support team',$domdesc)."\n".