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". |