loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

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

version 1.58, 2009/03/25 15:49:53	version 1.59, 2009/05/06 16:19:42
Line 158 sub problem_selector {	Line 158 sub problem_selector {
resptype=>$resptype});	resptype=>$resptype});
my $checked = '';	my $checked = '';
if ($env{'form.problemchoice'} eq $value) {	if ($env{'form.problemchoice'} eq $value) {
$checked = 'checked="checked" ';	$checked = ' checked="checked"';
}	}
my $title = $res->compTitle;	my $title = $res->compTitle;
if (! defined($title) \|\| $title eq '') {	if (! defined($title) \|\| $title eq '') {
($title) = ($res->src =~ m:/([^/]*)$:);	($title) = ($res->src =~ m:/([^/]*)$:);
}	}
$seq_str .= '<tr>'.	$seq_str .= '<tr>'.
qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value" $checked /></td>}.	qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value"$checked /></td>}.
'<td><label for="'.$rb_count.'">'.$resptype.'</label></td>'.	'<td><label for="'.$rb_count.'">'.$resptype.'</label></td>'.
'<td><label for="'.$rb_count.'">'.$title.'</label>';	'<td><label for="'.$rb_count.'">'.$title.'</label>';
if (scalar(@response_ids) > 1) {	if (scalar(@response_ids) > 1) {