version 1.76.2.1, 2020/08/26 21:50:16
|
version 1.76.2.4, 2020/09/12 20:36:11
|
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:top">'. |
'<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); |
Line 190 sub problem_selector {
|
Line 197 sub problem_selector {
|
my $resptype = $response_types[$i]; |
my $resptype = $response_types[$i]; |
if ($resptype =~ m/$AcceptedResponseTypes/) { |
if ($resptype =~ m/$AcceptedResponseTypes/) { |
if ($byres) { |
if ($byres) { |
unless (exists($partsseen{$part})) { |
if (exists($partsseen{$part})) { |
|
$seq_str .= &Apache::loncommon::continue_data_table_row(); |
|
} else { |
my $parttitle = $part; |
my $parttitle = $part; |
if ($part eq '0') { |
if ($part eq '0') { |
$parttitle = ''; |
$parttitle = ''; |
Line 202 sub problem_selector {
|
Line 211 sub problem_selector {
|
$seq_str .= &Apache::loncommon::continue_data_table_row(); |
$seq_str .= &Apache::loncommon::continue_data_table_row(); |
} |
} |
unless ($partsseen{$part}) { |
unless ($partsseen{$part}) { |
$seq_str .= '<td rowspan="'.scalar(@response_ids).'" style="vertical-align:middle">'. |
my $resprowspan; |
|
if (scalar(@response_ids) > 1) { |
|
$resprowspan = ' rowspan="'.scalar(@response_ids).'"'; |
|
} |
|
$seq_str .= '<td'.$resprowspan.' style="vertical-align:top">'. |
$parttitle.'</td>'; |
$parttitle.'</td>'; |
$partsseen{$part} = scalar(@response_ids); |
$partsseen{$part} = scalar(@response_ids); |
} |
} |
Line 236 sub problem_selector {
|
Line 249 sub problem_selector {
|
$seq_str .= (' 'x2). |
$seq_str .= (' 'x2). |
'<a target="preview" href="'.$link.'">'.&mt('view').'</a>'; |
'<a target="preview" href="'.$link.'">'.&mt('view').'</a>'; |
$seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n"; |
$seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n"; |
$rb_count++; |
|
} |
} |
|
$rb_count++; |
} |
} |
} |
} |
} |
} |
Line 264 sub problem_selector {
|
Line 277 sub problem_selector {
|
} |
} |
} |
} |
$Str .= &Apache::loncommon::end_data_table().&Apache::loncommon::end_scrollbox()."\n"; |
$Str .= &Apache::loncommon::end_data_table().&Apache::loncommon::end_scrollbox()."\n"; |
|
if (!$rb_count) { |
|
if ($byres) { |
|
$Str = '<p class="LC_info">'.&mt('No gradable problems found').'</p>'; |
|
} elsif ($AcceptedResponseTypes eq '.') { |
|
$Str = '<p class="LC_info">'.&mt('No problems found').'</p>'; |
|
} else { |
|
$Str = '<p class="LC_info">'.&mt('No analyzable problems found').'</p>'; |
|
} |
|
} |
return $Str; |
return $Str; |
} |
} |
|
|