version 1.60, 2010/02/28 23:58:55
|
version 1.61, 2010/04/17 22:48:56
|
Line 135 Skips 'survey' problems.
|
Line 135 Skips 'survey' problems.
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
sub problem_selector { |
sub problem_selector { |
my ($AcceptedResponseTypes,$sequence_addendum) = @_; |
my ($AcceptedResponseTypes,$sequence_addendum,$symbmode) = @_; |
my $Str; |
my $Str; |
$Str = "\n<table>\n"; |
$Str = &Apache::loncommon::start_data_table(); |
my $rb_count =0; |
my $rb_count =0; |
my ($navmap,@sequences) = |
my ($navmap,@sequences) = |
&Apache::lonstatistics::selected_sequences_with_assessments('all'); |
&Apache::lonstatistics::selected_sequences_with_assessments('all'); |
Line 164 sub problem_selector {
|
Line 164 sub problem_selector {
|
if (! defined($title) || $title eq '') { |
if (! defined($title) || $title eq '') { |
($title) = ($res->src =~ m:/([^/]*)$:); |
($title) = ($res->src =~ m:/([^/]*)$:); |
} |
} |
$seq_str .= '<tr>'. |
$seq_str .= &Apache::loncommon::start_data_table_row(). |
qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value"$checked /></td>}. |
($symbmode? |
|
'<td><input type="radio" id="'.$rb_count.'" name="symb" value="'.&HTML::Entities::encode($res->symb,'<>&"').'" '.$checked.' /></td>' |
|
:qq{<td><input type="radio" id="$rb_count" name="problemchoice" value="$value"$checked /></td>}). |
'<td><label for="'.$rb_count.'">'.$resptype.'</label></td>'. |
'<td><label for="'.$rb_count.'">'.$resptype.'</label></td>'. |
'<td><label for="'.$rb_count.'">'.$title.'</label>'; |
'<td><label for="'.$rb_count.'">'.$title.'</label>'; |
if (scalar(@response_ids) > 1) { |
if (scalar(@response_ids) > 1) { |
Line 174 sub problem_selector {
|
Line 176 sub problem_selector {
|
my $link = $res->link.'?symb='.&escape($res->shown_symb); |
my $link = $res->link.'?symb='.&escape($res->shown_symb); |
$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></tr>\n"; |
$seq_str .= "</td>". &Apache::loncommon::end_data_table_row()."\n"; |
$rb_count++; |
$rb_count++; |
} |
} |
} |
} |
} |
} |
} |
} |
if ($seq_str ne '') { |
if ($seq_str ne '') { |
$Str .= '<tr><td> </td>'. |
$Str .= &Apache::loncommon::start_data_table_header_row(). |
'<td colspan="2"><b>'.$seq->compTitle.'</b></td>'. |
'<th colspan="3">'.$seq->compTitle.'</th>'. |
"</tr>\n".$seq_str; |
&Apache::loncommon::end_data_table_header_row()."\n".$seq_str; |
if (defined($sequence_addendum)) { |
if (defined($sequence_addendum)) { |
$Str .= '<tr>'. |
$Str .= &Apache::loncommon::start_data_table_header_row(). |
('<td> </td>'x2). |
('<td> </td>'x2). |
'<td align="right">'.$sequence_addendum.'</td>'. |
'<td align="right">'.$sequence_addendum.'</td>'. |
"</tr>\n"; |
&Apache::loncommon::end_data_table_header_row()."\n"; |
} |
} |
} |
} |
} |
} |
$Str .= "</table>\n"; |
$Str .= &Apache::loncommon::end_data_table()."\n"; |
return $Str; |
return $Str; |
} |
} |
|
|