version 1.58, 2009/03/25 15:49:53
|
version 1.62, 2010/06/10 16:14:39
|
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 158 sub problem_selector {
|
Line 158 sub problem_selector {
|
resptype=>$resptype}); |
resptype=>$resptype}); |
my $checked = ''; |
my $checked = ''; |
if ($env{'form.problemchoice'} eq $value) { |
if ($env{'form.problemchoice'} eq $value) { |
$checked = 'checked="checked" '; |
$checked = ' checked="checked"'; |
} |
} |
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:/([^/]*)$:); |
} |
} |
$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; |
} |
} |
|
|
Line 464 sub get_prev_curr_next {
|
Line 466 sub get_prev_curr_next {
|
my @resources = &get_resources($navmap,$seq); |
my @resources = &get_resources($navmap,$seq); |
foreach my $res (@resources) { |
foreach my $res (@resources) { |
foreach my $part (@{$res->parts}) { |
foreach my $part (@{$res->parts}) { |
if ($res->is_survey($part) && ($granularity eq 'part_survey')){ |
if (($res->is_survey($part) || ($res->is_anonsurvey($part))) && |
|
($granularity eq 'part_survey')) { |
push (@Resource, |
push (@Resource, |
{ symb => $res->symb, |
{ symb => $res->symb, |
part => $part, |
part => $part, |
Line 609 sub GetStudentAnswers {
|
Line 612 sub GetStudentAnswers {
|
my $answer = &Apache::lonstathelpers::get_student_answer |
my $answer = &Apache::lonstathelpers::get_student_answer |
($resource,$sname,$sdom,$partid,$respid); |
($resource,$sname,$sdom,$partid,$respid); |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
&mt('last student')); |
'last student'); |
$answers{$answer}++; |
$answers{$answer}++; |
$student->{'answer'} = $answer; |
$student->{'answer'} = $answer; |
} |
} |