loncom/interface/statistics/lonsubmissiontimeanalysis.pm - diff

Return to lonsubmissiontimeanalysis.pm CVS log

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

version 1.4, 2003/11/11 22:14:28	version 1.5, 2003/12/10 23:06:57
Line 364 sub ProblemSelector {	Line 364 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:/([^/]*)$:);
	}
	# &Apache::lonnet::logthis('title = :'.$title.':');
$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> ';
} else {	} else {
	my $title = $res->{'title'};
	if (! defined($title) \|\| $title eq '') {
	($title) = ($res->{'src'} =~ m:/([^/]*)$:);
	}
$seq_str .= '<tr><td>'.	$seq_str .= '<tr><td>'.
' '.'</td><td>'.	' '.'</td><td>'.
'<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a>'.	'<a href="'.$res->{'src'}.'">'.$title.'</a>'.
"</td></tr>\n";	"</td></tr>\n";
foreach my $part (@{$res->{'parts'}}) {	foreach my $part (@{$res->{'parts'}}) {
my $value = &Apache::lonnet::escape	my $value = &Apache::lonnet::escape