loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.49, 2005/04/08 13:35:50	version 1.50, 2005/04/19 13:59:35
Line 132 Skips 'survey' problems.	Line 132 Skips 'survey' problems.
####################################################	####################################################
####################################################	####################################################
sub problem_selector {	sub problem_selector {
my ($AcceptedResponseTypes) = @_;	my ($AcceptedResponseTypes,$sequence_addendum) = @_;
my $Str;	my $Str;
$Str = "\n<table>\n";	$Str = "\n<table>\n";
my $rb_count =0;	my $rb_count =0;
Line 179 sub problem_selector {	Line 179 sub problem_selector {
}	}
}	}
if ($seq_str ne '') {	if ($seq_str ne '') {
$Str .= '<tr><td>&nbsp</td><td colspan="2"><b>'.$seq->compTitle.'</b></td>'.	$Str .= '<tr><td>&nbsp</td>'.
	'<td colspan="2"><b>'.$seq->compTitle.'</b></td>'.
"</tr>\n".$seq_str;	"</tr>\n".$seq_str;
	if (defined($sequence_addendum)) {
	$Str .= '<tr>'.
	('<td>&nbsp</td>'x2).
	'<td align="right">'.$sequence_addendum.'</td>'.
	"</tr>\n";
	}
}	}
}	}
$Str .= "</table>\n";	$Str .= "</table>\n";