--- 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 .= ''. - '
'. - '