version 1.33, 2002/07/26 16:22:09
|
version 1.34, 2002/07/26 19:49:26
|
Line 51 use Apache::lonchart;
|
Line 51 use Apache::lonchart;
|
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
|
#my $jr; |
|
|
sub CheckFormElement { |
sub CheckFormElement { |
my ($cache, $ENVName, $cacheName, $default)=@_; |
my ($cache, $ENVName, $cacheName, $default)=@_; |
Line 70 sub ProcessFormData{
|
Line 71 sub ProcessFormData{
|
$cache->{'reportKey'} = 'false'; |
$cache->{'reportKey'} = 'false'; |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['sort','download','reportSelected', |
['sort','download', |
|
'reportSelected', |
'StudentAssessmentStudent']); |
'StudentAssessmentStudent']); |
&CheckFormElement($cache, 'Status', 'Status', 'Active'); |
&CheckFormElement($cache, 'Status', 'Status', 'Active'); |
&CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list'); |
&CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list'); |
Line 98 sub ProcessFormData{
|
Line 100 sub ProcessFormData{
|
'StudentAssessmentStudent', 'All Students'); |
'StudentAssessmentStudent', 'All Students'); |
$cache->{'StudentAssessmentStudent'} = |
$cache->{'StudentAssessmentStudent'} = |
&Apache::lonnet::unescape($cache->{'StudentAssessmentStudent'}); |
&Apache::lonnet::unescape($cache->{'StudentAssessmentStudent'}); |
|
&CheckFormElement($cache, 'DefaultColumns', 'DefaultColumns', 'false'); |
|
|
if(defined($ENV{'form.Section'})) { |
if(defined($ENV{'form.Section'})) { |
my @sectionsSelected = (ref($ENV{'form.Section'}) ? |
my @sectionsSelected = (ref($ENV{'form.Section'}) ? |
Line 108 sub ProcessFormData{
|
Line 111 sub ProcessFormData{
|
$cache->{'sectionsSelected'} = $cache->{'sectionList'}; |
$cache->{'sectionsSelected'} = $cache->{'sectionList'}; |
} |
} |
|
|
|
my @headingColumns=(); |
|
my @sequenceColumns=(); |
|
my $foundColumn = 0; |
|
if(defined($ENV{'form.ReselectColumns'})) { |
|
my @reselected = (ref($ENV{'form.ReselectColumns'}) ? |
|
@{$ENV{'form.ReselectColumns'}} |
|
: ($ENV{'form.ReselectColumns'})); |
|
foreach (@reselected) { |
|
if(/HeadingColumn/) { |
|
push(@headingColumns, $_); |
|
$foundColumn = 1; |
|
} elsif(/SequenceColumn/) { |
|
push(@sequenceColumns, $_); |
|
$foundColumn = 1; |
|
} |
|
} |
|
} |
|
|
foreach (keys(%ENV)) { |
foreach (keys(%ENV)) { |
if(/form\.Analyze:::/) { |
if(/form\.Analyze:::/) { |
# $cache->{'reportSelected'} = 'Analyze'; |
# $cache->{'reportSelected'} = 'Analyze'; |
Line 120 sub ProcessFormData{
|
Line 141 sub ProcessFormData{
|
$cache->{'AnalyzeProblem'} = $problem; |
$cache->{'AnalyzeProblem'} = $problem; |
|
|
&CheckFormElement($cache, 'Interval', 'Interval', '1'); |
&CheckFormElement($cache, 'Interval', 'Interval', '1'); |
|
} elsif(/form\.HeadingColumn/) { |
|
my $value = $_; |
|
$value =~ s/form\.//; |
|
push(@headingColumns, $value); |
|
$foundColumn=1; |
|
} elsif(/form\.SequenceColumn/) { |
|
my $value = $_; |
|
$value =~ s/form\.//; |
|
push(@sequenceColumns, $value); |
|
$foundColumn=1; |
} |
} |
} |
} |
|
|
|
if($foundColumn) { |
|
$cache->{'HeadingsFound'} = join(':', @headingColumns); |
|
$cache->{'SequencesFound'} = join(':', @sequenceColumns);; |
|
} |
|
if(!defined($cache->{'HeadingsFound'}) || |
|
$cache->{'DefaultColumns'} ne 'false') { |
|
$cache->{'HeadingsFound'}='HeadingColumnFull Name'; |
|
} |
|
if(!defined($cache->{'SequencesFound'}) || |
|
$cache->{'DefaultColumns'} ne 'false') { |
|
$cache->{'SequencesFound'}='All Sequences'; |
|
} |
|
$cache->{'DefaultColumns'} = 'false'; |
|
|
return; |
return; |
|
|
# Select page to display |
# Select page to display |
Line 603 sub BuildStatistics {
|
Line 648 sub BuildStatistics {
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
|
|
|
# $jr = $r; |
|
|
unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
$ENV{'user.error.msg'}= |
$ENV{'user.error.msg'}= |
$r->uri.":vgr:0:0:Cannot view grades for complete course"; |
$r->uri.":vgr:0:0:Cannot view grades for complete course"; |