version 1.33, 2002/07/26 16:22:09
|
version 1.36, 2002/07/29 21:19:44
|
Line 31
|
Line 31
|
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei |
# 11/1,11/4,11/16,12/14,12/16,12/18,12/20,12/31 Behrouz Minaei |
# YEAR=2002 |
# YEAR=2002 |
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei |
# 1/22,2/1,2/6,2/25,3/2,3/6,3/17,3/21,3/22,3/26,4/7,5/6 Behrouz Minaei |
# 5/12,5/14,5/15,5/19,5/26,7/16,25/7 Behrouz Minaei |
# 5/12,5/14,5/15,5/19,5/26,7/16,25/7,29/7 Behrouz Minaei |
# |
# |
### |
### |
|
|
Line 70 sub ProcessFormData{
|
Line 70 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 99 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 110 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 140 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 390 sub Close_PrgWin {
|
Line 434 sub Close_PrgWin {
|
$r->rflush(); |
$r->rflush(); |
} |
} |
|
|
# For loading the colored table for display or un-colored for print |
|
sub setbgcolor { |
|
my $PrintTable=shift; |
|
my %color; |
|
if ($PrintTable){ |
|
$color{"gb"}="#FFFFFF"; |
|
$color{"red"}="#FFFFFF"; |
|
$color{"yellow"}="#FFFFFF"; |
|
$color{"green"}="#FFFFFF"; |
|
$color{"purple"}="#FFFFFF"; |
|
} else { |
|
$color{"gb"}="#DDFFFF"; |
|
$color{"red"}="#FFDDDD"; |
|
$color{"yellow"}="#EEFFCC"; |
|
$color{"green"}="#DDFFDD"; |
|
$color{"purple"}="#FFDDFF"; |
|
} |
|
|
|
return \%color; |
|
} |
|
|
|
sub BuildClasslist { |
sub BuildClasslist { |
my ($cacheDB,$students,$studentInformation,$headings)=@_; |
my ($cacheDB,$students,$studentInformation,$headings)=@_; |
Line 525 sub BuildStatistics {
|
Line 549 sub BuildStatistics {
|
my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}". |
my $cacheDB = "/home/httpd/perl/tmp/$ENV{'user.name'}". |
"_$ENV{'user.domain'}_$courseID\_statistics.db"; |
"_$ENV{'user.domain'}_$courseID\_statistics.db"; |
|
|
my %color=&setbgcolor(0); |
|
my ($returnValue, $students) = &PrepareData($c, $cacheDB, |
my ($returnValue, $students) = &PrepareData($c, $cacheDB, |
\@studentInformation, |
\@studentInformation, |
\@headings); |
\@headings); |
Line 559 sub BuildStatistics {
|
Line 582 sub BuildStatistics {
|
if($GoToPage eq 'Activity Log') { |
if($GoToPage eq 'Activity Log') { |
&Apache::lonproblemstatistics::Activity(); |
&Apache::lonproblemstatistics::Activity(); |
} elsif($GoToPage eq 'Problem Statistics') { |
} elsif($GoToPage eq 'Problem Statistics') { |
$r->print( |
|
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB, |
&Apache::lonproblemstatistics::BuildProblemStatisticsPage($cacheDB, |
$students, |
$students, |
$courseID, |
$courseID, |
$c,$r, |
$c,$r); |
\%color)); |
|
} elsif($GoToPage eq 'Problem Analysis') { |
} elsif($GoToPage eq 'Problem Analysis') { |
$r->print( |
$r->print( |
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB)); |
&Apache::lonproblemanalysis::BuildProblemAnalysisPage($cacheDB)); |
Line 603 sub BuildStatistics {
|
Line 624 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"; |