[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