version 1.12, 2004/12/30 16:34:05
|
version 1.14, 2005/02/17 08:29:43
|
Line 44 package Apache::lontrackstudent;
|
Line 44 package Apache::lontrackstudent;
|
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
|
use Apache::lonmysql; |
use Apache::lonnet(); |
use Apache::lonnet(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Time::HiRes; |
use Time::HiRes; |
Line 118 sub table_names {
|
Line 119 sub table_names {
|
my $prefix = $course.'_'.$domain.'_'; |
my $prefix = $course.'_'.$domain.'_'; |
# |
# |
my %tables = |
my %tables = |
( student => $prefix.'students', |
( student =>&Apache::lonmysql::fix_table_name($prefix.'students'), |
res => $prefix.'resource', |
res =>&Apache::lonmysql::fix_table_name($prefix.'resource'), |
machine => $prefix.'machine_table', |
machine =>&Apache::lonmysql::fix_table_name($prefix.'machine_table'), |
activity=> $prefix.'activity', |
activity=>&Apache::lonmysql::fix_table_name($prefix.'activity'), |
); |
); |
return %tables; |
return %tables; |
} |
} |
Line 500 sub handler {
|
Line 501 sub handler {
|
bug=>'instructor interface'}); |
bug=>'instructor interface'}); |
# |
# |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
$r->print('<html><head>'.&styles.'<title>'. |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head>'.&styles().'<title>'. |
&mt('Student Activity'). |
&mt('Student Activity'). |
"</title></head>\n". |
"</title></head>\n". |
&Apache::loncommon::bodytag('Student Activity'). |
&Apache::loncommon::bodytag('Student Activity'). |
Line 523 sub handler {
|
Line 525 sub handler {
|
($r,\%prog_state,&mt('Contacting course home server')); |
($r,\%prog_state,&mt('Contacting course home server')); |
# |
# |
my $result = &request_data_update(); |
my $result = &request_data_update(); |
if (ref($result) eq 'HASH') { |
|
$result = join(' ',map { $_.'=>'.$result->{$_}; } keys(%$result)); |
|
} |
|
# |
# |
if (exists($ENV{'form.selected_student'})) { |
if (exists($ENV{'form.selected_student'})) { |
# For now, just show all the data, in the future allow selection of |
# For now, just show all the data, in the future allow selection of |