loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.116, 2005/10/27 23:13:49	version 1.117, 2005/10/27 23:18:21
Line 1440 sub course_select_row {	Line 1440 sub course_select_row {

sub status_select_row {	sub status_select_row {
my ($types,$col_width,$tablecolor,$title) = @_;	my ($types,$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="types" multiple>\n\|;	<select name="types" multiple>\n\|;
foreach my $status_type (sort(keys(%{$types}))) {	foreach my $status_type (sort(keys(%{$types}))) {
Line 1448 sub status_select_row {	Line 1451 sub status_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;
}	}