loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.108, 2006/05/05 20:03:43	version 1.109, 2006/05/30 12:46:50
Line 60 use Apache::lonlocal;	Line 60 use Apache::lonlocal;
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;
use Apache::lonstathelpers();	use Apache::lonstathelpers();
use Time::HiRes;	use Time::HiRes;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;


my @StatsArray;	my @StatsArray;
my %SeqStat; # keys are symbs, values are hash refs	my %SeqStat; # keys are symbs, values are hash refs
Line 1565 sub get_statistics {	Line 1568 sub get_statistics {
$data->{'container'} = $sequence->compTitle;	$data->{'container'} = $sequence->compTitle;
$data->{'title'} = $resource->compTitle;	$data->{'title'} = $resource->compTitle;
$data->{'title.link'} = $resource->src.'?symb='.	$data->{'title.link'} = $resource->src.'?symb='.
&Apache::lonnet::escape($resource->symb);	&escape($resource->symb);
#	#
if ($SelectedFields{'deg_of_disc'}) {	if ($SelectedFields{'deg_of_disc'}) {
$data->{'deg_of_disc'} =	$data->{'deg_of_disc'} =