version 1.215, 2008/11/19 17:38:26
|
version 1.217, 2008/12/06 20:29:18
|
Line 430 sub sendemail {
|
Line 430 sub sendemail {
|
} |
} |
} |
} |
$body= |
$body= |
"*** ".&mt_user($user_lh,'This is an automatic message generated by the LON-CAPA system.')."\n". |
"*** ".&mt_user($user_lh,'This is an automatic e-mail generated by the LON-CAPA system.')."\n". |
"*** ".($senderaddress?&mt_user($user_lh,'You can reply to this message'):&mt_user($user_lh,'Please do not reply to this address.')."\n*** ". |
"*** ".($senderaddress?&mt_user($user_lh,'You can reply to this e-mail'):&mt_user($user_lh,'Please do not reply to this address.')."\n*** ". |
&mt_user($user_lh,'A reply will not be received by the recipient!'))."\n\n".$body; |
&mt_user($user_lh,'A reply will not be received by the recipient!'))."\n\n".$body; |
my $msg = new Mail::Send; |
my $msg = new Mail::Send; |
$msg->to($to); |
$msg->to($to); |
Line 1013 sub user_lang {
|
Line 1013 sub user_lang {
|
} |
} |
} |
} |
} |
} |
my @languages=&Apache::loncommon::get_genlanguages(@userlangs); |
my @languages=&Apache::lonlocal::get_genlanguages(@userlangs); |
my $user_lh = Apache::localize->get_handle(@languages); |
my $user_lh = Apache::localize->get_handle(@languages); |
return $user_lh; |
return $user_lh; |
} |
} |