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

[raeburn]

raeburn		Tue Feb  5 15:45:18 2013 EDT

  Modified files:              
    /loncom/interface	resetpw.pm createaccount.pm 
  Log:
  - Administrator e-mail perlvar in loncapa.conf is lonAdmEMail not lonAdminEmail.
  
  
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.30 loncom/interface/resetpw.pm:1.31
--- loncom/interface/resetpw.pm:1.30	Tue Feb  5 15:33:36 2013
+++ loncom/interface/resetpw.pm	Tue Feb  5 15:45:18 2013
@@ -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.30 2013/02/05 15:33:36 raeburn Exp $
+# $Id: resetpw.pm,v 1.31 2013/02/05 15:45:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -438,7 +438,7 @@
             '<p>'
            .&mt('You may wish to send an e-mail to the'
            .' server administrator: [_1] for the [_2] domain.',
-                '<i>'.$Apache::lonnet::perlvar{'AdminEmail'}.'</i>',
+                '<i>'.$Apache::lonnet::perlvar{'AdmEMail'}.'</i>',
                 '<i>'.$domdesc.'</i>')
            .'</p>';
     }
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.54 loncom/interface/createaccount.pm:1.55
--- loncom/interface/createaccount.pm:1.54	Wed Dec  5 18:23:54 2012
+++ loncom/interface/createaccount.pm	Tue Feb  5 15:45:18 2013
@@ -3,7 +3,7 @@
 # institutional log-in ID (institutional authentication required - localauth
 #  or kerberos) or an e-mail address.
 #
-# $Id: createaccount.pm,v 1.54 2012/12/05 18:23:54 bisitz Exp $
+# $Id: createaccount.pm,v 1.55 2013/02/05 15:45:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1168,7 +1168,7 @@
         }
         $msg .= '<br />'.&mt('You may wish to contact the [_1]LON-CAPA helpdesk[_2] for [_3].','<a href="'.$href.'">','</a>',$domdesc).'<br />';
     } else {
-        $msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdminEmail'},$domdesc).'<br />';
+        $msg .= '<br />'.&mt('You may wish to send an e-mail to the server administrator: [_1] for [_2].',$Apache::lonnet::perlvar{'AdmEMail'},$domdesc).'<br />';
     }
     return $msg;
 }