version 1.76.2.1, 2020/08/26 21:50:16
|
version 1.76.2.2, 2020/09/01 15:11:02
|
Line 159 sub problem_selector {
|
Line 159 sub problem_selector {
|
foreach my $seq (@sequences) { |
foreach my $seq (@sequences) { |
my $seq_str = ''; |
my $seq_str = ''; |
foreach my $res (&get_resources($navmap,$seq)) { |
foreach my $res (&get_resources($navmap,$seq)) { |
|
if ($res->src() eq '/res/lib/templates/simpleproblem.problem') { |
|
next if (grep(/^placeholder$/,@{$res->parts})); |
|
} |
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:/([^/]*)$:); |
Line 173 sub problem_selector {
|
Line 176 sub problem_selector {
|
if ($env{'form.problemchoice'} eq $res->symb()) { |
if ($env{'form.problemchoice'} eq $res->symb()) { |
$checked = ' checked="checked"'; |
$checked = ' checked="checked"'; |
} |
} |
|
my $rowspan; |
|
if ($totalresps > 1) { |
|
$rowspan = ' rowspan="'.$totalresps.'"'; |
|
} |
$seq_str .= &Apache::loncommon::start_data_table_row(). |
$seq_str .= &Apache::loncommon::start_data_table_row(). |
'<td rowspan="'.$totalresps.'" style="vertical-align:middle">'. |
'<td'.$rowspan.' style="vertical-align:middle">'. |
'<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'. |
'<label><input type="radio" name="symb" value="'.$value.'"'.$checked.' />'. |
$title.'</label>'; |
$title.'</label>'; |
my $link = $res->link.'?symb='.&escape($res->shown_symb); |
my $link = $res->link.'?symb='.&escape($res->shown_symb); |