version 1.21, 2008/12/11 14:55:27
|
version 1.24, 2010/02/28 23:58:55
|
Line 63 sub BuildSurveyReportsPage {
|
Line 63 sub BuildSurveyReportsPage {
|
); |
); |
&Apache::loncommon::store_course_settings('survey_reports', |
&Apache::loncommon::store_course_settings('survey_reports', |
\%Saveable_Parameters); |
\%Saveable_Parameters); |
&Apache::loncommon::restore_course_settings('survey_resports', |
&Apache::loncommon::restore_course_settings('survey_reports', |
\%Saveable_Parameters); |
\%Saveable_Parameters); |
# |
# |
&Apache::lonstatistics::PrepareClasslist(); |
&Apache::lonstatistics::PrepareClasslist(); |
Line 98 sub BuildSurveyReportsPage {
|
Line 98 sub BuildSurveyReportsPage {
|
# |
# |
$r->print('<hr />'); |
$r->print('<hr />'); |
$r->print('<h4>'. |
$r->print('<h4>'. |
&Apache::lonlocal::locallocaltime(time).','. |
&Apache::lonlocal::locallocaltime(time).', '. |
&Apache::lonstatistics::section_and_enrollment_description(). |
&Apache::lonstatistics::section_and_enrollment_description(). |
'</h4>'); |
'</h4>'); |
$r->rflush(); |
$r->rflush(); |
Line 177 sub SurveyProblemSelector {
|
Line 177 sub SurveyProblemSelector {
|
my @resources = &Apache::lonstathelpers::get_resources($navmap,$seq); |
my @resources = &Apache::lonstathelpers::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)) { |
if (($res->is_survey($part)) || ($res->is_anonsurvey($part))) { |
push(@SurveyProblems,{res=>$res,seq=>$seq,part=>$part}); |
push(@SurveyProblems,{res=>$res,seq=>$seq,part=>$part}); |
last; |
last; |
} |
} |
Line 214 sub SurveyProblemSelector {
|
Line 214 sub SurveyProblemSelector {
|
'<td><span class="LC_nobreak">'. |
'<td><span class="LC_nobreak">'. |
'<label for="'.$id.'">'.$problem->{'res'}->compTitle.' ('.$problem->{'seq'}->compTitle.')'.'</label>'. |
'<label for="'.$id.'">'.$problem->{'res'}->compTitle.' ('.$problem->{'seq'}->compTitle.')'.'</label>'. |
(' 'x2). |
(' 'x2). |
'<a target="preview" href="'.$link.'">'.&mt('View survey').'</a>'.'</span></td></tr>'.$/; |
'<a target="preview" href="'.$link.'">'.&mt('View survey').'</a></span></td></tr>'.$/; |
} |
} |
$Str .= '</table>'; |
$Str .= '</table>'; |
return $Str; |
return $Str; |
Line 339 sub make_text_report {
|
Line 339 sub make_text_report {
|
} else { |
} else { |
$r->print('<p class="LC_warning">' |
$r->print('<p class="LC_warning">' |
.&mt('There is no essay or string response data to output for this survey.') |
.&mt('There is no essay or string response data to output for this survey.') |
.'</h2>'); |
.'</p>'); |
} |
} |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
Line 658 sub CreateInterface {
|
Line 658 sub CreateInterface {
|
$prob_checkbox .= 'checked="checked" '; |
$prob_checkbox .= 'checked="checked" '; |
} |
} |
$prob_checkbox .= 'value="true" />'; |
$prob_checkbox .= 'value="true" />'; |
$Str .= '<td align="right" valign="top">'. |
$Str .= |
'<label><b>'. |
'<td valign="top">' |
&mt('Show problem [_1]',$prob_checkbox).'</b></label><br />'. |
.'<label>' |
'<label><b>'. |
.$prob_checkbox.&mt('Show problem') |
'</td>'; |
.'</label>' |
|
.'</td>'; |
# |
# |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table_row(); |
$Str .= &Apache::loncommon::end_data_table(); |
$Str .= &Apache::loncommon::end_data_table(); |