loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.101, 2009/05/11 16:51:27	version 1.101.4.1, 2010/01/25 22:19:55
Line 1888 sub choose_members_form {	Line 1888 sub choose_members_form {
}	}
}	}
&privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs,	&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,	my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx,
$stored,$memimg,$users,$userdata,	$stored,$memimg,$users,$userdata,
$granularity,\%origmembers,$gpterm,	$granularity,\%origmembers,$gpterm,
Line 2297 sub default_privileges {	Line 2298 sub default_privileges {
&Apache::lonhtmlcommon::row_title($lt{'func'},undef,	&Apache::lonhtmlcommon::row_title($lt{'func'},undef,
'LC_groups_functionality'));	'LC_groups_functionality'));
my @tableHeader;	my @tableHeader;
foreach my $key (sort(keys(%{$functions}))){	if ((ref($functions) eq 'HASH') && (ref($tools) eq 'ARRAY')) {
push (@tableHeader,&mt(${$functions}{$key}));	@tableHeader = map { $functions->{$_}; } @{$tools};
}	}
$r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));	$r->print(join('</td><td class="LC_groups_functionality">', @tableHeader));
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
my $fixed = '';	my $fixed = '';