loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.109 and 1.111

version 1.109, 2006/05/30 12:46:50	version 1.111, 2006/12/06 22:22:38
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;	use LONCAPA;


Line 617 sub CreateInterface {	Line 616 sub CreateInterface {
$Str .= '<tr>';	$Str .= '<tr>';
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Groups').'</b></td>';
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Access Status').'</b></td>';
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';
$Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>';	$Str .= '<td align="center"><b>'.&mt('Statistics').'</b></td>';
$Str .= '<td rowspan="2">'.	$Str .= '<td rowspan="2">'.
Line 1586 sub get_statistics {	Line 1585 sub get_statistics {
$data->{'urlres'}=$urlres;	$data->{'urlres'}=$urlres;
my %storestats =	my %storestats =
&LONCAPA::lonmetadata::dynamic_metadata_storage($data);	&LONCAPA::lonmetadata::dynamic_metadata_storage($data);
my ($dom,$user) = $urlres=~/^(\w+)\/(\w+)/;	my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});
&Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);	&Apache::lonnet::put('nohist_resevaldata',\%storestats,$dom,$user);
}	}
#	#

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.109
changed lines
	Added in v.1.111