version 1.12, 2004/12/30 16:34:05
|
version 1.13, 2005/02/09 21:21:08
|
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 523 sub handler {
|
Line 524 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 |