--- loncom/interface/statistics/lonsurveyreports.pm 2005/03/18 00:20:44 1.7 +++ loncom/interface/statistics/lonsurveyreports.pm 2005/04/07 06:56:24 1.8 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: lonsurveyreports.pm,v 1.7 2005/03/18 00:20:44 matthew Exp $ +# $Id: lonsurveyreports.pm,v 1.8 2005/04/07 06:56:24 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,7 +27,7 @@ package Apache::lonsurveyreports; use strict; -use Apache::lonnet(); +use Apache::lonnet; use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::loncoursedata(); @@ -77,8 +77,8 @@ sub BuildSurveyReportsPage { &Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status'); $r->rflush(); # - if (exists($ENV{'form.problemchoice'}) && - ! exists($ENV{'form.SelectAnother'})) { + if (exists($env{'form.problemchoice'}) && + ! exists($env{'form.SelectAnother'})) { $r->print(' 'x3); foreach my $button (@SubmitButtons) { if ($button->{'name'} eq 'break') { @@ -102,26 +102,26 @@ sub BuildSurveyReportsPage { # # Determine which problem we are to analyze my $current_problem = &Apache::lonstathelpers::get_target_from_id - ($ENV{'form.problemchoice'}); + ($env{'form.problemchoice'}); # my ($navmap,$prev,$curr,$next) = &Apache::lonstathelpers::get_prev_curr_next($current_problem, '.', 'part_survey', ); - if (exists($ENV{'form.PrevProblem'}) && defined($prev)) { + if (exists($env{'form.PrevProblem'}) && defined($prev)) { $current_problem = $prev; - } elsif (exists($ENV{'form.NextProblem'}) && defined($next)) { + } elsif (exists($env{'form.NextProblem'}) && defined($next)) { $current_problem = $next; } else { $current_problem = $curr; } # # Store the current problem choice and send it out in the form - $ENV{'form.problemchoice'} = + $env{'form.problemchoice'} = &Apache::lonstathelpers::make_target_id($current_problem); $r->print(''); + $env{'form.problemchoice'}.'" />'); # if (! defined($current_problem->{'resource'})) { $r->print('resource is undefined'); @@ -129,19 +129,19 @@ sub BuildSurveyReportsPage { my $resource = $current_problem->{'resource'}; $r->print('