--- loncom/interface/resetpw.pm 2009/02/13 17:20:29 1.14
+++ loncom/interface/resetpw.pm 2009/02/23 20:28:21 1.15
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Allow access to password changing via a token sent to user's e-mail.
#
-# $Id: resetpw.pm,v 1.14 2009/02/13 17:20:29 bisitz Exp $
+# $Id: resetpw.pm,v 1.15 2009/02/23 20:28:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -142,7 +142,7 @@ sub get_uname {
$lt{'uemail'}:
-
+
|;
@@ -166,10 +166,9 @@ sub send_token {
my $token = &Apache::lonnet::tmpput(\%info,$server,'resetpw');
if ($token !~ /^error/ && $token ne 'no_such_host') {
my $esc_token = &escape($token);
- my $mailmsg = "A request was submitted on ".&Apache::lonlocal::locallocaltime(time)." for a reset of the ".
- "password for your LON-CAPA account.".
- "To complete this process please open a web browser and enter the following ".
- "URL in the address/location box: ".&Apache::lonnet::absolute_url()."/adm/resetpw?token=$esc_token";
+ my $showtime = &Apache::lonlocal::locallocaltime(time);
+ my $reseturl = &Apache::lonnet::absolute_url().'/adm/resetpw?token='.$esc_token;
+ my $mailmsg = &mt('A request was submitted on [_1] for reset of the password for your LON-CAPA account.',$showtime).' '.&mt('To complete this process please open a web browser and enter the following URL in the address/location box: [_1]',$reseturl);
my $result = &send_mail($domdesc,$email,$mailmsg,$contact_name,
$contact_email);
if ($result eq 'ok') {