--- loncom/interface/lontrackstudent.pm 2004/08/11 18:41:05 1.1
+++ loncom/interface/lontrackstudent.pm 2004/08/23 15:03:15 1.4
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lontrackstudent.pm,v 1.1 2004/08/11 18:41:05 matthew Exp $
+# $Id: lontrackstudent.pm,v 1.4 2004/08/23 15:03:15 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -50,7 +50,158 @@ use Time::HiRes;
###################################################################
###################################################################
-sub get_all_data {}
+sub get_all_data {
+ my ($r,$prog_state,$navmap) = @_;
+ ##
+ ## Compose the query
+ &Apache::lonhtmlcommon::Update_PrgWin
+ ($r,$prog_state,&mt('Composing Query'));
+ #
+ my $query;
+ my $cid = $ENV{'request.course.id'};
+ my $domain = $ENV{'course.'.$cid.'.domain'};
+ my $home = $ENV{'course.'.$cid.'.home'};
+ my $course = $ENV{'course.'.$cid.'.num'};
+ my $prefix = $course.'_'.$domain.'_';
+ #
+ my $student_table = $prefix.'students';
+ my $res_table = $prefix.'resource';
+ my $action_table = $prefix.'actions';
+ my $machine_table = $prefix.'machine_table';
+ my $activity_table = $prefix.'activity';
+ #
+ $query = qq{
+ SELECT B.resource,A.time,C.student,D.action,E.machine,A.action_values
+ FROM $activity_table AS A
+ LEFT JOIN $res_table AS B ON B.res_id=A.res_id
+ LEFT JOIN $student_table AS C ON C.student_id=A.student_id
+ LEFT JOIN $action_table AS D ON D.action_id=A.action_id
+ LEFT JOIN $machine_table AS E ON E.machine_id=A.machine_id
+ WHERE A.student_id>10
+ ORDER BY A.time ASC
+ LIMIT 5000
+ };
+ $query =~ s|$/||g;
+ &Apache::lonnet::logthis($query);
+ ##
+ ## Send it along
+ my $reply=&Apache::lonnet::metadata_query($query,undef,undef,[$home]);
+ if (ref($reply) ne 'HASH') {
+ $r->print('
'.
+ &mt('Error contacting home server for course: [_1]',
+ $reply).
+ '
');
+ return;
+ }
+ my $results_file = $r->dir_config('lonDaemons').'/tmp/'.$reply->{$home};
+ my $endfile = $results_file.'.end';
+ ##
+ ## Check for the results
+ &Apache::lonhtmlcommon::Update_PrgWin
+ ($r,$prog_state,&mt('Waiting for results'));
+ my $maxtime = 500;
+ my $starttime = time;
+ while (! -e $endfile && (time-$starttime < $maxtime)) {
+ &Apache::lonhtmlcommon::Update_PrgWin
+ ($r,$prog_state,&mt('Waiting up to [_1] seconds for results',
+ $starttime+$maxtime-time));
+ sleep(1);
+ }
+ if (! -e $endfile) {
+ $r->print(''.
+ &mt('Unable to retrieve data.').'
');
+ $r->print(&mt('Please try again in a few minutes.'));
+ return;
+ }
+ &Apache::lonhtmlcommon::Update_PrgWin
+ ($r,$prog_state,&mt('Parsing results'));
+ &output_results($r,$results_file,$navmap);
+ &Apache::lonhtmlcommon::Update_PrgWin
+ ($r,$prog_state,&mt('Finished!'));
+ return;
+}
+
+sub output_results {
+ my ($r,$results_file,$navmap) = @_;
+ if (! open(ACTIVITYDATA,$results_file)) {
+ $r->print(''.&mt('Unable to read results file.').'
'.
+ ''.
+ &mt('This is a serious error and has been logged. '.
+ 'You should contact your system administrator '.
+ 'to resolve this issue.').
+ '
');
+ return;
+ }
+ my $tableheader =
+ ''.
+ ''.&mt('Resource').' | '.
+ ''.&mt('Time').' | '.
+ ''.&mt('Student').' | '.
+ ''.&mt('Action').' | '.
+ ''.&mt('Originating Server').' | '.
+ ''.&mt('Data').' | '.
+ '
'.$/;
+ my $count = 0;
+ $r->print($tableheader);
+ $r->rflush();
+ while (my $line = ) {
+ $line = &Apache::lonnet::unescape($line);
+ if (++$count % 50 == 0) {
+ $r->print('
'.$/);
+ $r->rflush();
+ $r->print($tableheader);
+ }
+ my ($symb,$timestamp,$student,$action,$machine,$values) =
+ map { &Apache::lonnet::unescape($_); } split(',',$line,6);
+ my ($title,$src);
+ if ($symb =~ m:^/adm/:) {
+ $title = $symb;
+ $src = $symb;
+ } elsif ($symb eq '/prtspool/') {
+ $title = "Printout";
+ $src = undef;
+ } else {
+ my $nav_res = $navmap->getBySymb($symb);
+ if (defined($nav_res)) {
+ $title = $nav_res->title();
+ $src = $nav_res->src();
+ } else {
+ $title = 'unable to retrieve title';
+ $src = '/dev/null';
+ }
+ }
+ my $class = '';
+ #
+ if ($symb eq '/printout/') {
+ $class = 'print';
+ $title = 'retrieve printout';
+ } elsif ($symb =~ m|^/adm/([^/]+)|) {
+ $class = $1;
+ } elsif ($symb =~ m|^/adm/|) {
+ $class = 'adm';
+ }
+ if ($title eq 'unable to retrieve title') {
+ $title =~ s/ /\ /g;
+ $class = 'warning';
+ }
+ if (! defined($title) || $title eq '') {
+ $title = 'untitled';
+ $class = 'warning';
+ }
+ $r->print(''.
+ ''.$title.''.' | '.
+ ''.$timestamp.' | '.
+ ''.$student.' | '.
+ ''.$action.' | '.
+ ''.$machine.' | '.
+ ''.($class?$symb:'').' | '.'
'.$/);
+# ''.$symb.' | '.''.$/);
+ }
+ $r->print(''.$/);
+ close(ACTIVITYDATA);
+ return;
+}
+
sub get_student_data {}
sub html_output_student_data {}
sub html_output_class_data {}
@@ -70,6 +221,21 @@ sub request_data_update {
###################################################################
###################################################################
+sub styles {
+ return <
+ tr.warning { background-color: red; }
+ tr.chat { background-color: yellow; }
+ tr.chatfetch { background-color: yellow; }
+ tr.navmaps { background-color: \#777777; }
+ tr.roles { background-color: \#999999; }
+ tr.flip { background-color: \#BBBBBB; }
+ tr.adm { background-color: green; }
+ tr.print { background-color: blue; }
+ tr.printout { background-color: blue; }
+
+END
+}
###################################################################
###################################################################
@@ -110,14 +276,9 @@ sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selected_student']);
#
- # Give the LON-CAPA page header
- $r->print(''.
- &mt('Student Activity').
- "\n".
- &Apache::loncommon::bodytag('Student Activity'));
- $r->rflush();
+ # We will almost always need this...
+ my $navmap = Apache::lonnavmaps::navmap->new();
#
- # Either print out a menu for them or send them to a report
&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/studentactivity',
title=>'Student Activity',
@@ -125,26 +286,47 @@ sub handler {
faq=>139,
bug=>'instructor interface'});
#
+ # Give the LON-CAPA page header
+ $r->print(''.&styles.''.
+ &mt('Student Activity').
+ "\n".
+ &Apache::loncommon::bodytag('Student Activity').
+ &Apache::lonhtmlcommon::breadcrumbs(undef,'Student Activity'));
+ $r->rflush();
+ #
# Begin form output
- $r->print('\n");
$r->print("\n\n");
$r->rflush();