--- loncom/interface/statistics/lonsurveyreports.pm 2008/12/11 14:55:27 1.21
+++ loncom/interface/statistics/lonsurveyreports.pm 2010/02/28 23:58:55 1.24
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonsurveyreports.pm,v 1.21 2008/12/11 14:55:27 bisitz Exp $
+# $Id: lonsurveyreports.pm,v 1.24 2010/02/28 23:58:55 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -63,7 +63,7 @@ sub BuildSurveyReportsPage {
);
&Apache::loncommon::store_course_settings('survey_reports',
\%Saveable_Parameters);
- &Apache::loncommon::restore_course_settings('survey_resports',
+ &Apache::loncommon::restore_course_settings('survey_reports',
\%Saveable_Parameters);
#
&Apache::lonstatistics::PrepareClasslist();
@@ -98,7 +98,7 @@ sub BuildSurveyReportsPage {
#
$r->print('
');
$r->print(''.
- &Apache::lonlocal::locallocaltime(time).','.
+ &Apache::lonlocal::locallocaltime(time).', '.
&Apache::lonstatistics::section_and_enrollment_description().
'
');
$r->rflush();
@@ -177,7 +177,7 @@ sub SurveyProblemSelector {
my @resources = &Apache::lonstathelpers::get_resources($navmap,$seq);
foreach my $res (@resources) {
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});
last;
}
@@ -214,7 +214,7 @@ sub SurveyProblemSelector {
''.
''.
(' 'x2).
- ''.&mt('View survey').''.' | '.$/;
+ ''.&mt('View survey').''.$/;
}
$Str .= '';
return $Str;
@@ -339,7 +339,7 @@ sub make_text_report {
} else {
$r->print(''
.&mt('There is no essay or string response data to output for this survey.')
- .'');
+ .'
');
}
$r->rflush();
return;
@@ -658,11 +658,12 @@ sub CreateInterface {
$prob_checkbox .= 'checked="checked" ';
}
$prob_checkbox .= 'value="true" />';
- $Str .= ''.
- ' '.
- ' | ';
+ $Str .=
+ ''
+ .''
+ .' | ';
#
$Str .= &Apache::loncommon::end_data_table_row();
$Str .= &Apache::loncommon::end_data_table();