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

raeburn raeburn at source.lon-capa.org
Sun Mar 26 18:11:55 EDT 2017


raeburn		Sun Mar 26 22:11:55 2017 EDT

  Modified files:              
    /loncom/interface	loncreateuser.pm 
  Log:
  - coding style -- fixed domain for user access logs.
  
  
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.435 loncom/interface/loncreateuser.pm:1.436
--- loncom/interface/loncreateuser.pm:1.435	Sun Mar 19 18:06:23 2017
+++ loncom/interface/loncreateuser.pm	Sun Mar 26 22:11:54 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.435 2017/03/19 18:06:23 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.436 2017/03/26 22:11:54 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -755,6 +755,7 @@
         }
     } else {
         my $actiontext = $lt{'srad'};
+        my $fixeddom;
         if ($env{'form.action'} eq 'singlestudent') {
             if ($crstype eq 'Community') {
                 $actiontext = $lt{'srme'};
@@ -763,6 +764,7 @@
             }
         } elsif ($env{'form.action'} eq 'accesslogs') {
             $actiontext = $lt{'srva'};
+            $fixeddom = 1;
         } elsif (($env{'form.action'} eq 'singleuser') &&
                  ($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$defdom))) {
             $actiontext = $lt{'srvu'};
@@ -774,7 +776,7 @@
                          '<br clear="all" />');
             }
         }
-        $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,1));
+        $r->print(&entry_form($defdom,$srch,$forcenewuser,$context,$response,$crstype,$fixeddom));
     }
 }
 




More information about the LON-CAPA-cvs mailing list