![[BACK]](/icons/back.gif){kind=icon}
Return to createaccount.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to createaccount.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.37, 2009/10/23 16:14:43 | version 1.38, 2010/02/19 15:41:39 |
|---|---|
| Line 645 sub process_mailtoken { | Line 645 sub process_mailtoken { |
| if ($result eq 'ok') { | if ($result eq 'ok') { |
| $msg = $output; | $msg = $output; |
| my $shownow = &Apache::lonlocal::locallocaltime($now); | my $shownow = &Apache::lonlocal::locallocaltime($now); |
| my $mailmsg = &mt('A LON-CAPA account for the institution: [_1] has been created [_2] from IP address: [_3]. If you did not perform this action or authorize it, please contact the [_4] ([_5]).',$domdesc,$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n"; | my $mailmsg = &mt('A LON-CAPA account for the institution: [_1] has been created [_2] from IP address: [_3]. If you did not perform this action or authorize it, please contact the [_4] ([_5]).',$domdesc,$shownow,$ENV{'REMOTE_ADDR'},$contact_name,$contact_email)."\n"; |
| my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'}, | my $mailresult = &Apache::resetpw::send_mail($domdesc,$data{'email'}, |
| $mailmsg,$contact_name, | $mailmsg,$contact_name, |
| $contact_email); | $contact_email); |