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)}); |