';
+
+ for(my $index=0; $index<(scalar @$headings); $index++) {
+ if(!&ShouldShowColumn($reselected, 'heading', $index)) {
+ next;
+ }
+
+ my $data=$$headings[$index];
+ $Str .= $data;
-# ------------------------------------------------------------ Build page table
-
-sub tracetable {
- my ($rid,$beenhere)=@_;
- unless ($beenhere=~/\&$rid\&/) {
- $beenhere.=$rid.'&';
-# new ... updating the map according to sequence and page
- if (defined($hash{'is_map_'.$rid})) {
- my $cmap=$hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}};
- if ( $cmap eq 'sequence' || $cmap eq 'page' ) {
- $cols[$#cols+1]=0;
- }
- if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
- (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {
- my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
-
- &tracetable($hash{'map_start_'.$hash{'src_'.$rid}},
- '&'.$frid.'&');
-
- if ($hash{'src_'.$frid}) {
- if ($hash{'src_'.$frid}=~
- /\.(problem|exam|quiz|assess|survey|form)$/) {
- $cols[$#cols+1]=$frid;
- }
- }
-
- }
- } else {
- if ($hash{'src_'.$rid}) {
- if ($hash{'src_'.$rid}=~
- /\.(problem|exam|quiz|assess|survey|form)$/) {
- $cols[$#cols+1]=$rid;
- }
- }
- }
- if (defined($hash{'to_'.$rid})) {
- foreach (split(/\,/,$hash{'to_'.$rid})){
- &tracetable($hash{'goesto_'.$_},$beenhere);
- }
- }
+ my @dataLength=split(//,$data);
+ my $length=scalar @dataLength;
+ $Str .= (' 'x($CacheData->{$$studentInformation[$index].'Length'}-
+ $length));
+ $Str .= $spacePadding;
}
-}
-sub usection {
- my ($udom,$unam,$courseid,$ActiveFlag)=@_;
- $courseid=~s/\_/\//g;
- $courseid=~s/^(\w)/\/$1/;
+ foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
+ if(!&ShouldShowColumn($reselected, 'sequence', $sequence)) {
+ next;
+ }
- my %result=&Apache::lonnet::dump('roles',$udom,$unam);
+ 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;
+ }
- my($checkForError)=keys (%result);
- if($checkForError =~ /^(con_lost|error|no_such_host)/i) {
- return -1;
+ $Str .= 'Total Solved/Total Problems';
+ $Str .= '
';
+
+ return $Str;
+}
+
+sub CreateColumnSelectionBox {
+ my ($CacheData,$studentInformation,$headings,$reselected,$spacePadding)=@_;
+
+ my $missing=0;
+ my $notThere='
Select column to view:';
+ my $name;
+ $notThere .= '
';
+ $notThere .= '';
+ } else {
+ $notThere='
';
+ }
+
+ return $notThere.'
';
}
-sub BuildChart {
-# ----------------------- Get first and last resource, see if there is anything
- my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};
- my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};
- if (($firstres) && ($lastres)) {
-# ----------------------------------------------------------------- Render page
- my $cid=$ENV{'request.course.id'};
- my $chome=$ENV{'course.'.$cid.'.home'};
- my ($cdom,$cnum)=split(/\_/,$cid);
-# ---------------------------------------------- Read class list and row labels
- my %classlist=&Apache::lonnet::dump('classlist',$cdom,$cnum);
-
- my($checkForError)=keys (%classlist);
- if($checkForError =~ /^(con_lost|error|no_such_host)/i) {
- $r->print('
Could not access course data
');
- } else {
- my $now=time;
- foreach my $name (keys (%classlist)) {
- my $value=$classlist{$name};
- my ($end,$start)=split(/\:/,$value);
- my $active=1;
- my $Status=$ENV{'form.status'};
- $Status = ($Status) ? $Status : 'Active';
- if ( ( ($end) && $now > $end ) &&
- ( ($Status eq 'Active') ) ) { $active=0; }
- if ( ($Status eq 'Expired') &&
- ($end == 0 || $now < $end) ) { $active=0; }
- if ($active) {
- my $thisindex=$#students+1;
- $students[$thisindex]=$name;
- my ($sname,$sdom)=split(/\:/,$name);
- $PreCol[$thisindex]=$sname.':';
- my $ssec=&usection($sdom,$sname,$cid,$Status);
- if ($ssec==-1) {
- $rowlabels[$thisindex]=
- 'Data not available: '.$name;
- } else {
- my %reply=&Apache::lonnet::idrget($sdom,$sname);
- my $reply=&Apache::lonnet::get('environment',
- ['lastname','generation'
- ,'firstname'
- ,'middlename'],
- $sdom,$sname);
- #$ssec=(int($ssec)) ? int($ssec) : $ssec;
- my $sec=sprintf('%3s',$ssec);
- $rowlabels[$thisindex]=$sec.' '.$reply{$sname}.' ';
- $PreCol[$thisindex] .= $reply.':'.$sec;
- my $i=0;
- foreach (split(/\&/,$reply)) {
- $i++;
- if ( $_ ne '') {
- $rowlabels[$thisindex].=&Apache::lonnet::unescape($_).' ';
- }
- if ($i == 2) {
- chop($rowlabels[$thisindex]);
- $rowlabels[$thisindex].=', ';
- }
- }
- }
- }
- }
- }
+sub CreateColumnSelectors {
+ my ($CacheData,$studentInformation,$headings,$reselected,$spacePadding)=@_;
+
+ my $found=0;
+ my ($name, $length, $position);
+ my $present='
');
- &CreateForm();
- $r->rflush();
-
-# --------------- Find all assessments and put them into some linear-like order
- &tracetable($firstres,'&'.$lastres.'&');
-# ----------------------------------------------------------------- Start table
-
- $r->print('
');
- my $index;
- for ($index=0;$index<=$#students;$index++) {
- my $Str=&ExtractStudentData($index,$cid);
- $r->print($Str.' ');
- $r->rflush();
- $CachData{$PreCol[$index]}=$Str;
+ foreach my $sequence (split(/\:/,$CacheData->{'orderedSequences'})) {
+ if(!&ShouldShowColumn($reselected, 'sequence', $sequence)) {
+ next;
}
- $r->print('