[BACK]Return to lontrackstudent.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lontrackstudent.pm between versions 1.12 and 1.13

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
Removed from v.1.12  
changed lines
  Added in v.1.13

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