[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));