loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.119, 2011/01/17 00:19:41	version 1.121, 2012/03/15 20:53:18
Line 644 sub CreateInterface {	Line 644 sub CreateInterface {
$Str .= &Apache::loncommon::end_data_table_row();	$Str .= &Apache::loncommon::end_data_table_row();
$Str .= &Apache::loncommon::end_data_table();	$Str .= &Apache::loncommon::end_data_table();
#	#
$Str .= '<p><span class="LC_nobreak">'
.&mt('Status: [_1]',
'<input type="text" name="stats_status"'
.' size="60" value="" readonly="readonly" />')
.'</span></p>';
#
$Str .= '</p>';	$Str .= '</p>';
$Str .= '<input type="submit" name="GenerateStatistics" value="'.	$Str .= '<input type="submit" name="GenerateStatistics" value="'.
&mt('Generate Statistics').'" />';	&mt('Generate Statistics').'" />';
Line 1595 sub get_statistics {	Line 1589 sub get_statistics {
$data->{'sections'}=$sections;	$data->{'sections'}=$sections;
$data->{'course'} = $env{'request.course.id'};	$data->{'course'} = $env{'request.course.id'};
my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];	my $urlres=(&Apache::lonnet::decode_symb($resource->symb))[2];
$data->{'urlres'}=$urlres;
my %storestats =	my %storestats =
&LONCAPA::lonmetadata::dynamic_metadata_storage($data);	&LONCAPA::lonmetadata::dynamic_metadata_storage($data);
my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});	my ($dom,$user) = ($urlres=~m{^($LONCAPA::domain_re)/($LONCAPA::username_re)});