--- loncom/interface/loncoursegroups.pm 2009/06/05 12:49:50 1.102 +++ loncom/interface/loncoursegroups.pm 2009/09/09 04:31:53 1.103 @@ -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 @@ sub choose_members_form { } } &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 @@ sub default_privileges { 'LC_groups_functionality')); my @tableHeader; foreach my $key (sort(keys(%{$functions}))){ - push (@tableHeader,&mt(${$functions}{$key})); + push (@tableHeader,&mt($functions->{$key})); } $r->print(join('', @tableHeader)); $r->print(&Apache::lonhtmlcommon::row_closure(1));