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 |