--- loncom/interface/lontrackstudent.pm 2004/08/11 23:37:36 1.2
+++ loncom/interface/lontrackstudent.pm 2004/10/05 13:40:16 1.7
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lontrackstudent.pm,v 1.2 2004/08/11 23:37:36 matthew Exp $
+# $Id: lontrackstudent.pm,v 1.7 2004/10/05 13:40:16 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -48,40 +48,18 @@ use Apache::lonnet();
use Apache::lonlocal;
use Time::HiRes;
-###################################################################
-###################################################################
-sub get_all_data {
- my ($r,$prog_state,$navmap) = @_;
+sub get_data {
+ my ($r,$prog_state,$navmap,$mode) = @_;
##
## 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
- };
- $query =~ s|$/||g;
- # &Apache::lonnet::logthis($query);
+ my $query = &build_query($mode);
+ &Apache::lonnet::logthis('sending query '.$query);
##
## Send it along
+ my $home = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
my $reply=&Apache::lonnet::metadata_query($query,undef,undef,[$home]);
if (ref($reply) ne 'HASH') {
$r->print(''.
@@ -99,9 +77,10 @@ sub get_all_data {
my $maxtime = 500;
my $starttime = time;
while (! -e $endfile && (time-$starttime < $maxtime)) {
- sleep(1);
&Apache::lonhtmlcommon::Update_PrgWin
- ($r,$prog_state,&mt('Waiting for results'));
+ ($r,$prog_state,&mt('Waiting up to [_1] seconds for results',
+ $starttime+$maxtime-time));
+ sleep(1);
}
if (! -e $endfile) {
$r->print(''.
@@ -109,77 +88,207 @@ sub get_all_data {
$r->print(&mt('Please try again in a few minutes.'));
return;
}
+# $r->print(''.&mt('Elapsed Time = [_1] seconds',
+# time-$starttime).'
');
+ $r->rflush();
&Apache::lonhtmlcommon::Update_PrgWin
($r,$prog_state,&mt('Parsing results'));
+# $r->print(''.
+# &mt('Reloading this page may result in newer data').
+# '
');
+ &output_results($r,$results_file,$navmap,$mode);
+ &Apache::lonhtmlcommon::Update_PrgWin($r,$prog_state,&mt('Finished!'));
+ return;
+}
+
+sub build_query {
+ my ($mode) = @_;
+ 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';
+ #
+ my $query;
+ if ($mode eq 'full_class') {
+ $query = qq{
+ SELECT B.resource,A.time,C.student,A.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 $machine_table AS E ON E.machine_id=A.machine_id
+ WHERE A.student_id>10
+ ORDER BY A.time DESC
+ LIMIT 500
+ };
+ } elsif ($mode =~ /^student:(.*):(.*)$/) {
+ my $student = $1.':'.$2;
+ $query = qq{
+ SELECT B.resource,A.time,A.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 $machine_table AS E ON E.machine_id=A.machine_id
+ WHERE C.student='$student'
+ ORDER BY A.time DESC
+ LIMIT 500
+ };
+ }
+ $query =~ s|$/||g;
+ return $query;
+}
+
+###################################################################
+###################################################################
+sub output_results {
+ my ($r,$results_file,$navmap,$mode) = @_;
+ ##
+ ##
if (! open(ACTIVITYDATA,$results_file)) {
- $r->print(''.
- &mt('Unable to read results file. This is a serious error and has been logged. You should contact your system administrator to resolve this issue. If you are the system administrator, I feel sorry for you.').
- '
');
+ $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);
+ ##
+ ##
+ my $tableheader;
+ if ($mode eq 'full_class') {
+ $tableheader =
+ ''.
+ '| '.&mt('Resource').' | '.
+ ''.&mt('Time').' | '.
+ ''.&mt('Student').' | '.
+ ''.&mt('Action').' | '.
+ # ''.&mt('Originating Server').' | '.
+ ''.&mt('Data').' | '.
+ '
'.$/;
+ } elsif ($mode =~ /^student:(.*):(.*)$/) {
+ $tableheader =
+ ''.
+ '| '.&mt('Resource').' | '.
+ ''.&mt('Time').' | '.
+ ''.&mt('Action').' | '.
+ # ''.&mt('Originating Server').' | '.
+ ''.&mt('Data').' | '.
+ '
'.$/;
+ }
+ my $count = -1;
$r->rflush();
+ ##
+ ##
while (my $line = ) {
+ chomp($line);
$line = &Apache::lonnet::unescape($line);
if (++$count % 50 == 0) {
- $r->print('
'.$/);
- $r->rflush();
+ if ($count != 0) {
+ $r->print('
'.$/);
+ $r->rflush();
+ }
$r->print($tableheader);
}
- my ($symb,$timestamp,$student,$action,$machine,$values) =
- map { &Apache::lonnet::unescape($_); } split(',',$line,6);
+ my ($symb,$timestamp,$student,$action,$machine,$values);
+ if ($mode eq 'full_class') {
+ ($symb,$timestamp,$student,$action,$machine,$values) =
+ map { &Apache::lonnet::unescape($_); } split(',',$line,6);
+ } else {
+ ($symb,$timestamp,$action,$machine,$values) =
+ map { &Apache::lonnet::unescape($_); } split(',',$line,5);
+ }
my ($title,$src);
- if ($symb =~ m:^/(res|adm)/:) {
+ if ($symb =~ m:^/adm/:) {
$title = $symb;
$src = $symb;
} else {
- # We may need to add 'uploaded/' to the symb
- #
- # Hey, guess what - navmaps->getBySymb
- # does not work with uploaded resources/new style courses/something
- # The fact that our symbs do not have uploaded/ prepended to them
- # then they (most often but not always) should, is likely to be
- # a puzzle too.
- #my $nav_res = $navmap->getBySymb($symb);
- $title = 'resource title goes here'; # $nav_res->title();
- $src = '/dev/null'; # $nav_res->src();
- }
- $r->print(''.
- '| '.''.$title.''.' | '.
- ''.$timestamp.' | '.
- ''.$student.' | '.
- ''.$action.' | '.
- ''.$machine.' | '.
- ''.$values.' | '.'
'.$/);
+ my $nav_res = $navmap->getBySymb($symb);
+ if (defined($nav_res)) {
+ $title = $nav_res->title();
+ $src = $nav_res->src();
+ } else {
+ if ($src =~ m|^/res|) {
+ $title = $src;
+ } elsif ($values =~ /^\s*$/ &&
+ (! defined($src) || $src =~ /^\s*$/)) {
+ next;
+ } elsif ($values =~ /^\s*$/) {
+ $values = $src;
+ } else {
+ $title = 'unable to retrieve title';
+ $src = '/dev/null';
+ }
+ }
+ }
+ my %classes;
+ my $class_count=0;
+ if (! exists($classes{$symb})) {
+ $classes{$symb} = $class_count++;
+ }
+ my $class = 'a';#.$classes{$symb};
+ #
+ if ($symb eq '/prtspool/') {
+ $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';
+ }
+ # Clean up the values
+ $values =~ s/counter=\d+$//;
+ #
+ # Build the row for output
+ my $tablerow = qq{};
+ if ($src =~ m|^/adm/|) {
+ $tablerow .=
+ '| '.$title.' | ';
+ } else {
+ $tablerow .=
+ ''.
+ ''.$title.''.
+ ' | ';
+ }
+ $tablerow .= ''.$timestamp.' | ';
+ if ($mode eq 'full_class') {
+ $tablerow.=''.$student.' | ';
+ }
+ $tablerow .=
+ ''.$action.' | '.
+# ''.$machine.' | '.
+ ''.$values.' | '.
+ '
';
+ $r->print($tablerow.$/);
}
- $r->print('
'.$/);
+ $r->print(''.$/) if (! $count % 50);
close(ACTIVITYDATA);
- &Apache::lonhtmlcommon::Update_PrgWin
- ($r,$prog_state,&mt('Finished!'));
return;
}
-sub get_student_data {}
-sub html_output_student_data {}
-sub html_output_class_data {}
-
+###################################################################
+###################################################################
sub request_data_update {
my $command = 'prepare activity log';
my $cid = $ENV{'request.course.id'};
my $domain = $ENV{'course.'.$cid.'.domain'};
my $home = $ENV{'course.'.$cid.'.home'};
my $course = $ENV{'course.'.$cid.'.num'};
- &Apache::lonnet::logthis($command.' '.$course.' '.$domain.' '.$home);
+# &Apache::lonnet::logthis($command.' '.$course.' '.$domain.' '.$home);
my $result = &Apache::lonnet::metadata_query($command,$course,$domain,
[$home]);
return $result;
@@ -187,7 +296,50 @@ sub request_data_update {
###################################################################
###################################################################
+sub pick_student {
+ my ($r) = @_;
+ $r->print("Sorry, cannot display classlist at this time. Come back another time.");
+ return;
+}
+###################################################################
+###################################################################
+sub styles {
+ return <
+ tr.warning { background-color: \#CCCCCC; }
+ tr.chat { background-color: \#CCCCCC; }
+ tr.chatfetch { background-color: \#CCCCCC; }
+ tr.navmaps { background-color: \#CCCCCC; }
+ tr.roles { background-color: \#CCCCCC; }
+ tr.flip { background-color: \#CCCCCC; }
+ tr.adm { background-color: \#CCCCCC; }
+ tr.print { background-color: \#CCCCCC; }
+ tr.printout { background-color: \#CCCCCC; }
+ tr.parmset { background-color: \#CCCCCC; }
+ tr.grades { background-color: \#CCCCCC; }
+
+END
+}
+
+sub developer_centric_styles {
+ return <
+ tr.warning { background-color: red; }
+ tr.chat { background-color: yellow; }
+ tr.chatfetch { background-color: yellow; }
+ tr.evaluate { background-color: red; }
+ 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.parmset { background-color: \#000088; }
+ tr.printout { background-color: blue; }
+ tr.grades { background-color: \#CCCCCC; }
+
+END
+}
###################################################################
###################################################################
@@ -239,7 +391,7 @@ sub handler {
bug=>'instructor interface'});
#
# Give the LON-CAPA page header
- $r->print(''.
+ $r->print('<html><head>'.&styles.'<title>'.
&mt('Student Activity').
"\n".
&Apache::loncommon::bodytag('Student Activity').
@@ -265,21 +417,28 @@ sub handler {
if (ref($result) eq 'HASH') {
$result = join(' ',map { $_.'=>'.$result->{$_}; } keys(%$result));
}
- $r->print(''.$result.'
');
#
- if (! exists($ENV{'form.selected_student'})) {
- # Choose a student
- $r->print('If you worked here you would be done by now');
+ if (exists($ENV{'form.selected_student'})) {
+ # For now, just show all the data, in the future allow selection of
+ # a student
+ my ($sname,$sdom) = split(':',$ENV{'form.selected_student'});
+ if ($sname =~ /^\w*$/ && $sdom =~ /^\w*$/) {
+ $r->print(''.
+ &mt('Recent activity of [_1]@[_2]',$sname,$sdom).
+ '
');
+ &get_data($r,\%prog_state,$navmap,
+ 'student:'.$ENV{'form.selected_student'});
+ } else {
+ $r->print(''.&mt('Unable to process for [_1]@[_2]',
+ $sname,$sdom).'
');
+ }
} else {
- # Show a students activity
- $r->print('I would like to have something to show you but I do not.');
+ # For now, just show all the data instead of limiting it to one student
+ &get_data($r,\%prog_state,$navmap,'full_class');
}
#
- &get_all_data($r,\%prog_state,$navmap);
-
-# &Apache::lonhtmlcommon::Update_PrgWin
-# ($r,\%prog_state,&mt('Done'));
-
+ &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Done'));
+ &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
#
$r->print("\n");
$r->print("\n