[LON-CAPA-cvs] cvs: loncom /interface loncreateuser.pm
raeburn
raeburn at source.lon-capa.org
Wed Jan 18 16:00:05 EST 2017
raeburn Wed Jan 18 21:00:05 2017 EDT
Modified files:
/loncom/interface loncreateuser.pm
Log:
- Ad hoc roles for helpdesk personnel.
- Course configuration (available for editing by course owner).
- can override domain defaults for which dh role users can use ad hoc role(s)
in course.
- can override domain defaults set for course-level privileges for ad hoc
role(s).
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.428 loncom/interface/loncreateuser.pm:1.429
--- loncom/interface/loncreateuser.pm:1.428 Mon Jan 2 19:44:06 2017
+++ loncom/interface/loncreateuser.pm Wed Jan 18 21:00:05 2017
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.428 2017/01/02 19:44:06 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.429 2017/01/18 21:00:05 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7446,7 +7446,7 @@
foreach my $item (sort {$a <=> $b } (keys(%ordered))) {
push(@roles_by_num,$ordered{$item});
}
- $r->print('<p>'.$lt{'tfh'}.': <b>'.join('</b>, <b>',map { $description{$_}; } @roles_by_num).'</b>.');
+ $r->print('<p>'.$lt{'tfh'}.': <i>'.join('</i>, <i>',map { $description{$_}; } @roles_by_num).'</i>.');
if ($permission->{'owner'}) {
$r->print('<br />'.$lt{'aco'}.'</p><p>');
$r->print('<input type="hidden" name="state" value="process" />'.
@@ -7572,6 +7572,9 @@
&role_priv_table($role,$permission,$crstype,\%full,\%levels,\%levelscurrent,$overridden{$role}).
'</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>');
}
+ if ($permission->{'owner'}) {
+ $r->print('<p><input type="submit" value="'.&mt('Save changes').'" /></p>');
+ }
} else {
$r->print(&mt('Helpdesk roles have not yet been created in this domain.'));
}
More information about the LON-CAPA-cvs
mailing list