[LON-CAPA-cvs] cvs: loncom /interface resetpw.pm

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 10 Nov 2006 05:34:51 -0000


albertel		Fri Nov 10 00:34:51 2006 EDT

  Modified files:              
    /loncom/interface	resetpw.pm 
  Log:
  - style
  - xhtml
  - improved some translation strigns
  
  
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.3 loncom/interface/resetpw.pm:1.4
--- loncom/interface/resetpw.pm:1.3	Thu Nov  9 21:03:49 2006
+++ loncom/interface/resetpw.pm	Fri Nov 10 00:34:51 2006
@@ -72,7 +72,8 @@
                                          $contact_name,$contact_email);
             } else {
                 my %userinfo = 
-            &Apache::lonnet::get('environment',\@emailtypes,$udom,$uname);
+		    &Apache::lonnet::get('environment',\@emailtypes,
+					 $udom,$uname);
                 my $email = '';
                 my $emailtarget;
                 foreach my $type (@emailtypes) {
@@ -169,10 +170,10 @@
         if ($result eq 'ok') {
             $msg .= &mt("An e-mail message sent to the e-mail address associated with your LON-CAPA account includes the web address for the link you should use to complete the reset process.<br /><br />The link included in the message will be valid for the next <b>two</b> hours.");
         } else {
-            $msg .= ("An error occurred when sending a message to the e-mail address associated with your LON-CAPA account. Please contact the $contact_name ($contact_email) for assistance.");
+            $msg .= ("An error occurred when sending a message to the e-mail address associated with your LON-CAPA account. Please contact the [_1] ([_2]) for assistance.",$contact_name,$contact_email);
         }
     } else {
-        $msg .= &mt("An error occurred creating a token required for the password reset process. Please contact the $contact_name ($contact_email) for assistance.");
+        $msg .= &mt("An error occurred creating a token required for the password reset process. Please contact the [_1] ([_2]) for assistance.",$contact_name,$contact_email);
     }
     return $msg;
 }
@@ -215,7 +216,7 @@
             my $escuri = &HTML::Entities::encode('/adm/resetpw','&<>"');
             $msg .= '<br />'.&mt(' You may wish to contact the <a href="/adm/helpdesk?origurl=[_1]">LON-CAPA helpdesk</a> for the [_2] domain.',$escuri,$domdesc);
         } else {
-            $msg .= '<br />'.&mt(' You may wish to send an e-mail to the server administrator: [_1] for the [_2] domain.',Apache::lonnet::perlvar{'AdminEmail'},$domdesc);
+            $msg .= '<br />'.&mt(' You may wish to send an e-mail to the server administrator: [_1] for the [_2] domain.',$Apache::lonnet::perlvar{'AdminEmail'},$domdesc);
         }
     }
     return $msg;
@@ -253,7 +254,7 @@
                     } else {
                         $msg .= &mt('An error occurred when sending e-mail to [_1] confirming setting of your new password.',$data{'email'});
                     }
-                    $msg .= '<br /<br />'.&mt('<a href="/adm/login">Go to the login page</a>.');
+                    $msg .= '<br /><br />'.&mt('<a href="/adm/login">Go to the login page</a>.');
                 } else {
                     $msg .= &mt('A problem occurred when attempting to reset the password for your account.  Please contact the [_1] - (<a href="mailto:[_2]">[_2]</a>) for assistance.',$contact_name,$contact_email);
                 }