version 1.9, 2003/02/25 20:47:47
|
version 1.10, 2006/05/30 12:46:49
|
Line 32 use strict;
|
Line 32 use strict;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use GDBM_File; |
use GDBM_File; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
|
|
|
|
sub BuildPercentageGraph { |
sub BuildPercentageGraph { |
Line 327 sub TableData {
|
Line 330 sub TableData {
|
|
|
foreach my $name (sort(split(':::', $percentage->{$_}))) { |
foreach my $name (sort(split(':::', $percentage->{$_}))) { |
$Ptr .= '<a href="/adm/statistics?reportSelected='; |
$Ptr .= '<a href="/adm/statistics?reportSelected='; |
$Ptr .= &Apache::lonnet::escape('Student Assessment'); |
$Ptr .= &escape('Student Assessment'); |
$Ptr .= '&StudentAssessmentStudent='; |
$Ptr .= '&StudentAssessmentStudent='; |
$Ptr .= &Apache::lonnet::escape($cache->{$name.':fullname'}).'">'; |
$Ptr .= &escape($cache->{$name.':fullname'}).'">'; |
$Ptr .= $cache->{$name.':fullname'}; |
$Ptr .= $cache->{$name.':fullname'}; |
$Ptr .= '</a>,  '; |
$Ptr .= '</a>,  '; |
} |
} |