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

raeburn raeburn at source.lon-capa.org
Tue Feb 5 10:33:36 EST 2013


raeburn		Tue Feb  5 15:33:36 2013 EDT

  Modified files:              
    /loncom/interface	resetpw.pm 
  Log:
  - Coding style.  White space changes only.
    - Standard LON-CAPA indent is 4 spaces. 
  
  
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.29 loncom/interface/resetpw.pm:1.30
--- loncom/interface/resetpw.pm:1.29	Fri Feb  1 17:39:22 2013
+++ loncom/interface/resetpw.pm	Tue Feb  5 15:33:36 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.29 2013/02/01 17:39:22 bisitz Exp $
+# $Id: resetpw.pm,v 1.30 2013/02/05 15:33:36 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -429,19 +429,19 @@
                    '<a href="javascript:history.go(-1)">','</a>'));
     my $msg2 = '';
     if ($contact_email ne '') {
-            my $escuri = &HTML::Entities::encode('/adm/resetpw','&<>"');
-            push(@msg, &mt('Contact the [_1]LON-CAPA helpdesk[_2] for the institution: [_3]',
-                           '<a href="/adm/helpdesk?origurl='.$escuri.'">',
-                           '</a>','<i>'.$domdesc.'</i>'));
-        } else {
-            $msg2 =
-                '<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>'.$domdesc.'</i>')
-                .'</p>';
-        }
+        my $escuri = &HTML::Entities::encode('/adm/resetpw','&<>"');
+        push(@msg, &mt('Contact the [_1]LON-CAPA helpdesk[_2] for the institution: [_3]',
+                       '<a href="/adm/helpdesk?origurl='.$escuri.'">',
+                       '</a>','<i>'.$domdesc.'</i>'));
+    } else {
+        $msg2 =
+            '<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>'.$domdesc.'</i>')
+           .'</p>';
+    }
 
     return &Apache::lonhtmlcommon::actionbox(\@msg).$msg2;
 




More information about the LON-CAPA-cvs mailing list