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

raeburn raeburn@source.lon-capa.org
Wed, 09 Sep 2009 04:31:53 -0000


raeburn		Wed Sep  9 04:31:53 2009 EDT

  Modified files:              
    /loncom/interface	loncoursegroups.pm 
  Log:
  - Fix headers in user privileges table (step 4), broken in rev 1.92.
  
  
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.102 loncom/interface/loncoursegroups.pm:1.103
--- loncom/interface/loncoursegroups.pm:1.102	Fri Jun  5 12:49:50 2009
+++ loncom/interface/loncoursegroups.pm	Wed Sep  9 04:31:53 2009
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.102 2009/06/05 12:49:50 bisitz Exp $
+# $Id: loncoursegroups.pm,v 1.103 2009/09/09 04:31:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1888,7 +1888,8 @@
         }
     }
     &privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs,
-                          $fixedprivs,\@available,$formname,$gpterm,$ucgpterm);
+                          $fixedprivs,\@available,$formname,$gpterm,$ucgpterm,
+                          $functions);
     my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx,
 				     $stored,$memimg,$users,$userdata,
 				     $granularity,\%origmembers,$gpterm,
@@ -2298,7 +2299,7 @@
      						'LC_groups_functionality'));
     my @tableHeader;
     foreach my $key (sort(keys(%{$functions}))){
-        push (@tableHeader,&mt(${$functions}{$key}));
+        push (@tableHeader,&mt($functions->{$key}));
     }   
  $r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));
     $r->print(&Apache::lonhtmlcommon::row_closure(1));