[LON-CAPA-cvs] cvs: loncom /interface resetpw.pm
raeburn
raeburn@source.lon-capa.org
Mon, 23 Feb 2009 20:28:21 -0000
raeburn Mon Feb 23 20:28:21 2009 EDT
Modified files:
/loncom/interface resetpw.pm
Log:
- Change "Proceed" form element from "button" to "submit".
- Add missing &mt().
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.14 loncom/interface/resetpw.pm:1.15
--- loncom/interface/resetpw.pm:1.14 Fri Feb 13 17:20:29 2009
+++ loncom/interface/resetpw.pm Mon Feb 23 20:28:21 2009
@@ -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 @@
<tr><td align="left">$lt{'uemail'}: </td>
<td><input type="text" name="useremail" size="30" /></td></tr>
<tr><td colspan="2" align="left"><br />
- <input type="button" value="$lt{'proc'}" onClick="document.forgotpw.submit()"></td></tr>
+ <input type="submit" value="$lt{'proc'}"></td></tr>
</table>
</form>
|;
@@ -166,10 +166,9 @@
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') {