version 1.4, 2004/08/23 15:03:15
|
version 1.9, 2004/12/13 21:08:09
|
Line 48 use Apache::lonnet();
|
Line 48 use Apache::lonnet();
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Time::HiRes; |
use Time::HiRes; |
|
|
################################################################### |
sub get_data { |
################################################################### |
my ($r,$prog_state,$navmap,$mode) = @_; |
sub get_all_data { |
|
my ($r,$prog_state,$navmap) = @_; |
|
## |
## |
## Compose the query |
## Compose the query |
&Apache::lonhtmlcommon::Update_PrgWin |
&Apache::lonhtmlcommon::Update_PrgWin |
($r,$prog_state,&mt('Composing Query')); |
($r,$prog_state,&mt('Composing Query')); |
# |
# |
my $query; |
my $query = &build_query($mode); |
my $cid = $ENV{'request.course.id'}; |
# Allow the other server to begin processing the data before we ask for it. |
my $domain = $ENV{'course.'.$cid.'.domain'}; |
sleep(5); |
my $home = $ENV{'course.'.$cid.'.home'}; |
&Apache::lonnet::logthis('sending query '.$query); |
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 |
## Send it along |
|
my $home = $ENV{'course.'.$ENV{'request.course.id'}.'.home'}; |
my $reply=&Apache::lonnet::metadata_query($query,undef,undef,[$home]); |
my $reply=&Apache::lonnet::metadata_query($query,undef,undef,[$home]); |
if (ref($reply) ne 'HASH') { |
if (ref($reply) ne 'HASH') { |
$r->print('<h2>'. |
$r->print('<h2>'. |
Line 113 sub get_all_data {
|
Line 90 sub get_all_data {
|
$r->print(&mt('Please try again in a few minutes.')); |
$r->print(&mt('Please try again in a few minutes.')); |
return; |
return; |
} |
} |
|
# $r->print('<h2>'.&mt('Elapsed Time = [_1] seconds', |
|
# time-$starttime).'</h2>'); |
|
$r->rflush(); |
&Apache::lonhtmlcommon::Update_PrgWin |
&Apache::lonhtmlcommon::Update_PrgWin |
($r,$prog_state,&mt('Parsing results')); |
($r,$prog_state,&mt('Parsing results')); |
&output_results($r,$results_file,$navmap); |
# $r->print('<h2>'. |
&Apache::lonhtmlcommon::Update_PrgWin |
# &mt('Reloading this page may result in newer data'). |
($r,$prog_state,&mt('Finished!')); |
# '</h2>'); |
|
&output_results($r,$results_file,$navmap,$mode); |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,$prog_state,&mt('Finished!')); |
return; |
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 { |
sub output_results { |
my ($r,$results_file,$navmap) = @_; |
my ($r,$results_file,$navmap,$mode) = @_; |
|
## |
|
## |
if (! open(ACTIVITYDATA,$results_file)) { |
if (! open(ACTIVITYDATA,$results_file)) { |
$r->print('<h2>'.&mt('Unable to read results file.').'</h2>'. |
$r->print('<h2>'.&mt('Unable to read results file.').'</h2>'. |
'<p>'. |
'<p>'. |
Line 132 sub output_results {
|
Line 161 sub output_results {
|
'</p>'); |
'</p>'); |
return; |
return; |
} |
} |
my $tableheader = |
## |
'<table><tr>'. |
## |
'<th>'.&mt('Resource').'</th>'. |
my $tableheader; |
'<th>'.&mt('Time').'</th>'. |
if ($mode eq 'full_class') { |
'<th>'.&mt('Student').'</th>'. |
$tableheader = |
'<th>'.&mt('Action').'</th>'. |
'<table><tr>'. |
'<th>'.&mt('Originating Server').'</th>'. |
'<th>'.&mt('Resource').'</th>'. |
'<th>'.&mt('Data').'</th>'. |
'<th>'.&mt('Time').'</th>'. |
'</tr>'.$/; |
'<th>'.&mt('Student').'</th>'. |
my $count = 0; |
'<th>'.&mt('Action').'</th>'. |
$r->print($tableheader); |
# '<th>'.&mt('Originating Server').'</th>'. |
|
'<th align="left">'.&mt('Data').'</th>'. |
|
'</tr>'.$/; |
|
} elsif ($mode =~ /^student:(.*):(.*)$/) { |
|
$tableheader = |
|
'<table><tr>'. |
|
'<th>'.&mt('Resource').'</th>'. |
|
'<th>'.&mt('Time').'</th>'. |
|
'<th>'.&mt('Action').'</th>'. |
|
# '<th>'.&mt('Originating Server').'</th>'. |
|
'<th align="left">'.&mt('Data').'</th>'. |
|
'</tr>'.$/; |
|
} |
|
my $count = -1; |
$r->rflush(); |
$r->rflush(); |
|
## |
|
## |
while (my $line = <ACTIVITYDATA>) { |
while (my $line = <ACTIVITYDATA>) { |
|
chomp($line); |
$line = &Apache::lonnet::unescape($line); |
$line = &Apache::lonnet::unescape($line); |
if (++$count % 50 == 0) { |
if (++$count % 50 == 0) { |
$r->print('</table>'.$/); |
if ($count != 0) { |
$r->rflush(); |
$r->print('</table>'.$/); |
|
$r->rflush(); |
|
} |
$r->print($tableheader); |
$r->print($tableheader); |
} |
} |
my ($symb,$timestamp,$student,$action,$machine,$values) = |
my ($symb,$timestamp,$student,$action,$machine,$values); |
map { &Apache::lonnet::unescape($_); } split(',',$line,6); |
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); |
my ($title,$src); |
if ($symb =~ m:^/adm/:) { |
if ($symb =~ m:^/adm/:) { |
$title = $symb; |
$title = $symb; |
$src = $symb; |
$src = $symb; |
} elsif ($symb eq '/prtspool/') { |
|
$title = "Printout"; |
|
$src = undef; |
|
} else { |
} else { |
my $nav_res = $navmap->getBySymb($symb); |
my $nav_res = $navmap->getBySymb($symb); |
if (defined($nav_res)) { |
if (defined($nav_res)) { |
$title = $nav_res->title(); |
$title = $nav_res->title(); |
$src = $nav_res->src(); |
$src = $nav_res->src(); |
} else { |
} else { |
$title = 'unable to retrieve title'; |
if ($src =~ m|^/res|) { |
$src = '/dev/null'; |
$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 $class = ''; |
my %classes; |
|
my $class_count=0; |
|
if (! exists($classes{$symb})) { |
|
$classes{$symb} = $class_count++; |
|
} |
|
my $class = 'a';#.$classes{$symb}; |
# |
# |
if ($symb eq '/printout/') { |
if ($symb eq '/prtspool/') { |
$class = 'print'; |
$class = 'print'; |
$title = 'retrieve printout'; |
$title = 'retrieve printout'; |
} elsif ($symb =~ m|^/adm/([^/]+)|) { |
} elsif ($symb =~ m|^/adm/([^/]+)|) { |
Line 188 sub output_results {
|
Line 252 sub output_results {
|
$title = 'untitled'; |
$title = 'untitled'; |
$class = 'warning'; |
$class = 'warning'; |
} |
} |
$r->print('<tr class="'.$class.'">'. |
# Clean up the values |
'<td><a href="'.$src.'">'.$title.'</a>'.'</td>'. |
$values =~ s/counter=\d+$//; |
'<td><nobr>'.$timestamp.'</nobr></td>'. |
# |
'<td>'.$student.'</td>'. |
# Build the row for output |
'<td>'.$action.'</td>'. |
my $tablerow = qq{<tr class="$class">}; |
'<td>'.$machine.'</td>'. |
if ($src =~ m|^/adm/|) { |
'<td>'.($class?$symb:'').'</td>'.'</tr>'.$/); |
$tablerow .= |
# '<td>'.$symb.'</td>'.'</tr>'.$/); |
'<td><nobr>'.$title.'</td>'; |
|
} else { |
|
$tablerow .= |
|
'<td><nobr>'. |
|
'<a href="'.$src.'">'.$title.'</a>'. |
|
'</nobr></td>'; |
|
} |
|
$tablerow .= '<td><nobr>'.$timestamp.'</nobr></td>'; |
|
if ($mode eq 'full_class') { |
|
$tablerow.='<td>'.$student.'</td>'; |
|
} |
|
$tablerow .= |
|
'<td>'.$action.'</td>'. |
|
# '<td>'.$machine.'</td>'. |
|
'<td>'.$values.'</td>'. |
|
'</tr>'; |
|
$r->print($tablerow.$/); |
} |
} |
$r->print('</table>'.$/); |
$r->print('</table>'.$/) if (! $count % 50); |
close(ACTIVITYDATA); |
close(ACTIVITYDATA); |
return; |
return; |
} |
} |
|
|
sub get_student_data {} |
################################################################### |
sub html_output_student_data {} |
################################################################### |
sub html_output_class_data {} |
|
|
|
sub request_data_update { |
sub request_data_update { |
my $command = 'prepare activity log'; |
my $command = 'prepare activity log'; |
my $cid = $ENV{'request.course.id'}; |
my $cid = $ENV{'request.course.id'}; |
my $domain = $ENV{'course.'.$cid.'.domain'}; |
my $domain = $ENV{'course.'.$cid.'.domain'}; |
my $home = $ENV{'course.'.$cid.'.home'}; |
my $home = $ENV{'course.'.$cid.'.home'}; |
my $course = $ENV{'course.'.$cid.'.num'}; |
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, |
my $result = &Apache::lonnet::metadata_query($command,$course,$domain, |
[$home]); |
[$home]); |
return $result; |
return $result; |
Line 220 sub request_data_update {
|
Line 298 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 { |
sub styles { |
return <<END; |
return <<END; |
<STYLE TYPE="text/css"> |
<style type="text/css"> |
|
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; } |
|
</style> |
|
END |
|
} |
|
|
|
sub developer_centric_styles { |
|
return <<END; |
|
<style type="text/css"> |
tr.warning { background-color: red; } |
tr.warning { background-color: red; } |
tr.chat { background-color: yellow; } |
tr.chat { background-color: yellow; } |
tr.chatfetch { background-color: yellow; } |
tr.chatfetch { background-color: yellow; } |
|
tr.evaluate { background-color: red; } |
tr.navmaps { background-color: \#777777; } |
tr.navmaps { background-color: \#777777; } |
tr.roles { background-color: \#999999; } |
tr.roles { background-color: \#999999; } |
tr.flip { background-color: \#BBBBBB; } |
tr.flip { background-color: \#BBBBBB; } |
tr.adm { background-color: green; } |
tr.adm { background-color: green; } |
tr.print { background-color: blue; } |
tr.print { background-color: blue; } |
|
tr.parmset { background-color: \#000088; } |
tr.printout { background-color: blue; } |
tr.printout { background-color: blue; } |
</STYLE> |
tr.grades { background-color: \#CCCCCC; } |
|
</style> |
END |
END |
} |
} |
|
|
Line 313 sub handler {
|
Line 419 sub handler {
|
if (ref($result) eq 'HASH') { |
if (ref($result) eq 'HASH') { |
$result = join(' ',map { $_.'=>'.$result->{$_}; } keys(%$result)); |
$result = join(' ',map { $_.'=>'.$result->{$_}; } keys(%$result)); |
} |
} |
&Apache::lonnet::logthis('result from request_data_update: '.$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 |
# a student |
# a student |
&get_all_data($r,\%prog_state,$navmap); |
my ($sname,$sdom) = split(':',$ENV{'form.selected_student'}); |
|
if ($sname =~ /^\w*$/ && $sdom =~ /^\w*$/) { |
|
$r->print('<h2>'. |
|
&mt('Recent activity of [_1]@[_2]',$sname,$sdom). |
|
'</h2>'); |
|
$r->print('<p>'.&mt(<<END).'</p>'); |
|
Compiling student activity data can take a long time. |
|
It may be necessary to reload this page to get the most current information. |
|
END |
|
&get_data($r,\%prog_state,$navmap, |
|
'student:'.$ENV{'form.selected_student'}); |
|
} else { |
|
$r->print('<h2>'.&mt('Unable to process for [_1]@[_2]', |
|
$sname,$sdom).'</h2>'); |
|
} |
} else { |
} else { |
# For now, just show all the data instead of limiting it to one student |
# For now, just show all the data instead of limiting it to one student |
&get_all_data($r,\%prog_state,$navmap); |
&get_data($r,\%prog_state,$navmap,'full_class'); |
} |
} |
# |
# |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Done')); |
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Done')); |