--- loncom/interface/loncoursegroups.pm 2009/05/11 16:10:33 1.100 +++ 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.100 2009/05/11 16:10:33 bisitz Exp $ +# $Id: loncoursegroups.pm,v 1.103 2009/09/09 04:31:53 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1440,7 +1440,7 @@ sub header { {'add_entries' => $loaditems,}); my $output = <<"END"; $start_page -
+ END if ($action eq 'create' || $action eq 'modify') { @@ -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, @@ -2066,7 +2067,7 @@ sub pick_new_members { &check_uncheck_buttons($r,$formname,'member',$lt{'addm'}); if (@{$available} > 0 && $granularity eq 'Yes') { $r->print(' -
'.$lt{'setf'}.' +
'.$lt{'setf'}.' @@ -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)); @@ -2516,7 +2517,7 @@ sub current_membership { $r->print(' -
'.$lt{'curf'}.' +
'.$lt{'curf'}.'    @@ -2674,7 +2675,7 @@ sub check_uncheck_buttons { $r->print('
- '.$title.' + '.$title.' @@ -2974,7 +2975,7 @@ sub member_privileges_form { $r->print(''); } $r->print( - '
'.&mt($$toolprivs{$tool}{$priv}).'' + '
'.&mt($$toolprivs{$tool}{$priv}).'' .'' .' '