loncom/interface/loncoursegroups.pm - diff

Return to loncoursegroups.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.99, 2009/05/07 16:36:33	version 1.101, 2009/05/11 16:51:27
Line 1440 sub header {	Line 1440 sub header {
{'add_entries' => $loaditems,});	{'add_entries' => $loaditems,});
my $output = <<"END";	my $output = <<"END";
$start_page	$start_page
<form method="POST" name="$state">	<form method="post" name="$state">

END	END
if ($action eq 'create' \|\| $action eq 'modify') {	if ($action eq 'create' \|\| $action eq 'modify') {
Line 2958 sub member_privileges_form {	Line 2958 sub member_privileges_form {
foreach my $tool (@{$tools}) {	foreach my $tool (@{$tools}) {
if (@{$showboxes{$tool}} > 0) {	if (@{$showboxes{$tool}} > 0) {
$r->print('<td valign="top">');	$r->print('<td valign="top">');
$r->print('<table class="thinborder"><tr>'.	$r->print('<fieldset><legend>'.&mt($tool).'</legend>');
'<th colspan="'.$colspan.'">'.	$r->print('<table><tr>');
&mt($tool).'</th></tr><tr>');
my $privcount = 0;	my $privcount = 0;
foreach my $priv (@{$showboxes{$tool}}) {	foreach my $priv (@{$showboxes{$tool}}) {
$privcount ++;	$privcount ++;
Line 2995 sub member_privileges_form {	Line 2994 sub member_privileges_form {
}	}
}	}
}	}
$r->print('</tr></table></td><td> </td>');	$r->print('</tr></table></fieldset></td><td> </td>');
}	}
}	}
$r->print('</tr></table>');	$r->print('</tr></table>');