[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