loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.115, 2005/10/14 18:28:26	version 1.116, 2005/10/27 23:13:49
Line 1333 ENDTWO	Line 1333 ENDTWO

sub role_select_row {	sub role_select_row {
my ($roles,$col_width,$tablecolor,$title) = @_;	my ($roles,$col_width,$tablecolor,$title) = @_;
my $output = &row_title($col_width,$tablecolor,$title);	my $output;
	if (defined($title)) {
	$output = &row_title($col_width,$tablecolor,$title);
	}
$output .= qq\| <td>	$output .= qq\| <td>
<select name="roles" multiple >\n\|;	<select name="roles" multiple >\n\|;
foreach my $role (@$roles) {	foreach my $role (@$roles) {
Line 1347 sub role_select_row {	Line 1350 sub role_select_row {
}	}
$output .= qq\| </select>	$output .= qq\| </select>
</td>\n\|;	</td>\n\|;
$output .= &row_closure();	if (defined($title)) {
	$output .= &row_closure();
	}
return $output;	return $output;
}	}