--- 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') {