loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.49, 2003/11/11 22:14:28	version 1.50, 2003/12/10 23:09:26
Line 1491 sub ProblemSelector {	Line 1491 sub ProblemSelector {
if ($ENV{'form.problemchoice'} eq $value) {	if ($ENV{'form.problemchoice'} eq $value) {
$checked = 'checked ';	$checked = 'checked ';
}	}
	my $title = $res->{'title'};
	if (! defined($title) \|\| $title eq '') {
	($title) = ($res->{'src'} =~ m:/([^/]*)$:);
	}
$seq_str .= '<tr><td>'.	$seq_str .= '<tr><td>'.
'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.	'<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.
'</td><td>'.	'</td><td>'.
'<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a> ';	'<a href="'.$res->{'src'}.'">'.$title.'</a> ';
# '<a href="'.$res->{'src'}.'">'.$resptype.' '.$res->{'title'}.'</a> ';	# '<a href="'.$res->{'src'}.'">'.$resptype.' '.$res->{'title'}.'</a> ';
if ($partdata->{'option'} > 1) {	if ($partdata->{'option'} > 1) {
$seq_str .= &mt('response').' '.$respid;	$seq_str .= &mt('response').' '.$respid;