--- loncom/interface/Attic/lonchart.pm 2002/06/28 18:06:14 1.44
+++ loncom/interface/Attic/lonchart.pm 2002/07/02 22:06:53 1.53
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonchart.pm,v 1.44 2002/06/28 18:06:14 stredwic Exp $
+# $Id: lonchart.pm,v 1.53 2002/07/02 22:06:53 stredwic Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -46,6 +46,10 @@
#
###
+=pod
+
+=cut
+
package Apache::lonchart;
use strict;
@@ -60,15 +64,19 @@ use GDBM_File;
sub FormatStudentInformation {
my ($cache,$name,$studentInformation,$spacePadding)=@_;
- my $Str='';
+ my $Str='';
- foreach (@$studentInformation) {
- my $data=$cache->{$name.':'.$_};
+ for(my $index=0; $index<(scalar @$studentInformation); $index++) {
+ if(!&ShouldShowColumn($cache, 'heading'.$index)) {
+ next;
+ }
+ my $data=$cache->{$name.':'.$studentInformation->[$index]};
$Str .= $data;
my @dataLength=split(//,$data);
my $length=scalar @dataLength;
- $Str .= (' 'x($cache->{$_.'Length'}-$length));
+ $Str .= (' 'x($cache->{$studentInformation->[$index].'Length'}-
+ $length));
$Str .= $spacePadding;
}
@@ -91,22 +99,15 @@ sub FormatStudentData {
# Handle errors
if($CacheData{$name.':error'} =~ /environment/) {
+ $Str .= '
';
untie(%CacheData);
- $Str .= '';
return $Str;
-# my $errorMessage = $CacheData{$name.':error'};
-# return ''.$sname.' | '.$sdom.
-# ' | '.$errorMessage.' | ';
}
if($CacheData{$name.':error'} =~ /course/) {
+ $Str .= '
';
untie(%CacheData);
- $Str .= '';
- return $Str;
-# my $errorMessage = 'May have no course data or '.
-# $CacheData{$name.':error'};
-# return ''.$sname.' | '.$sdom.
-# ' | '.$errorMessage.' | ';
+ return $Str;
}
# Handle problem data ------------------------------------------------
@@ -116,6 +117,10 @@ sub FormatStudentData {
my $problemsSolved = 0;
my $numberOfParts = 0;
foreach my $sequence (split(/\:/,$CacheData{'orderedSequences'})) {
+ if(!&ShouldShowColumn(\%CacheData, 'sequence'.$sequence)) {
+ next;
+ }
+
my $characterCount=0;
foreach my $problemID (split(/\:/,$CacheData{$sequence.':problems'})) {
my $problem = $CacheData{$problemID.':problem'};
@@ -207,8 +212,10 @@ sub FormatStudentData {
$Str .= $spacePadding;
}
- $Str .= ''.$problemsSolved.
- ' / '.$totalProblems.'';
+ my $outputProblemsSolved = sprintf( "%4d", $problemsSolved );
+ my $outputTotalProblems = sprintf( "%4d", $totalProblems );
+ $Str .= ''.$outputProblemsSolved.
+ ' / '.$outputTotalProblems.'
';
untie(%CacheData);
return $Str;
@@ -216,9 +223,14 @@ sub FormatStudentData {
sub CreateTableHeadings {
my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
- my $Str='';
+ my $Str='';
for(my $index=0; $index<(scalar @$headings); $index++) {
+ if(!&ShouldShowColumn($CacheData, 'heading'.$index)) {
+ next;
+ }
+
+ $Str .= '';
my $data=$$headings[$index];
$Str .= $data;
@@ -227,65 +239,162 @@ sub CreateTableHeadings {
$Str .= (' 'x($CacheData->{$$studentInformation[$index].'Length'}-
$length));
$Str .= $spacePadding;
+ $Str .= ' | ';
}
foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
- $Str .= $CacheData->{$sequence.':title'};
+ if(!&ShouldShowColumn($CacheData, 'sequence'.$sequence)) {
+ next;
+ }
+
+ $Str .= '';
+ my $name = $CacheData->{$sequence.':title'};
+ $Str .= $name;
my @titleLength=split(//,$CacheData->{$sequence.':title'});
my $leftover=$CacheData->{$sequence.':columnWidth'}-
(scalar @titleLength);
$Str .= (' 'x$leftover);
$Str .= $spacePadding;
+ $Str .= ' | ';
}
- $Str .= 'Total Solved/Total Problems';
- $Str .= '';
+ $Str .= 'Total Solved/Total Problems | ';
+ $Str .= '
';
return $Str;
}
+sub CreateColumnSelectionBox {
+ my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
+
+ my $missing=0;
+ my $notThere='| Select column to view:';
+ my $name;
+ $notThere .= ' | ';
+ $notThere .= '';
+ } else {
+ $notThere=' |
| ';
+ }
+
+ return $notThere.' |
';
+}
+
+sub CreateColumnSelectors {
+ my ($CacheData,$studentInformation,$headings,$spacePadding)=@_;
+
+ my $found=0;
+ my ($name, $length, $position);
+ my $present='