version 1.4, 2004/08/23 15:03:15
|
version 1.5, 2004/08/25 15:53:34
|
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'}; |
&Apache::lonnet::logthis('sending query '.$query); |
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 |
## 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 88 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 5000 |
|
}; |
|
} 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 5000 |
|
}; |
|
} |
|
$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 157 sub output_results {
|
'</p>'); |
'</p>'); |
return; |
return; |
} |
} |
my $tableheader = |
my $tableheader; |
|
if ($mode eq 'full_class') { |
|
$tableheader = |
|
'<table><tr>'. |
|
'<th>count</th>'. |
|
'<th>'.&mt('Resource').'</th>'. |
|
'<th>'.&mt('Time').'</th>'. |
|
'<th>'.&mt('Student').'</th>'. |
|
'<th>'.&mt('Action').'</th>'. |
|
'<th>'.&mt('Originating Server').'</th>'. |
|
'<th>'.&mt('Data').'</th>'. |
|
'</tr>'.$/; |
|
} elsif ($mode =~ /^student:/) { |
'<table><tr>'. |
'<table><tr>'. |
'<th>'.&mt('Resource').'</th>'. |
'<th>'.&mt('Resource').'</th>'. |
'<th>'.&mt('Time').'</th>'. |
'<th>'.&mt('Time').'</th>'. |
'<th>'.&mt('Student').'</th>'. |
|
'<th>'.&mt('Action').'</th>'. |
'<th>'.&mt('Action').'</th>'. |
'<th>'.&mt('Originating Server').'</th>'. |
'<th>'.&mt('Originating Server').'</th>'. |
'<th>'.&mt('Data').'</th>'. |
'<th>'.&mt('Data').'</th>'. |
'</tr>'.$/; |
'</tr>'.$/; |
my $count = 0; |
} |
$r->print($tableheader); |
my $count = -1; |
$r->rflush(); |
$r->rflush(); |
while (my $line = <ACTIVITYDATA>) { |
while (my $line = <ACTIVITYDATA>) { |
$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)) { |
Line 172 sub output_results {
|
Line 213 sub output_results {
|
} |
} |
my $class = ''; |
my $class = ''; |
# |
# |
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 229 sub output_results {
|
$title = 'untitled'; |
$title = 'untitled'; |
$class = 'warning'; |
$class = 'warning'; |
} |
} |
$r->print('<tr class="'.$class.'">'. |
if ($values =~ /^counter=\d+$/) { |
'<td><a href="'.$src.'">'.$title.'</a>'.'</td>'. |
$values = ''; |
'<td><nobr>'.$timestamp.'</nobr></td>'. |
} |
'<td>'.$student.'</td>'. |
if ($mode eq 'full_class') { |
'<td>'.$action.'</td>'. |
$r->print('<tr class="'.$class.'">'. |
'<td>'.$machine.'</td>'. |
'<td>'.$count.'</td>'. |
'<td>'.($class?$symb:'').'</td>'.'</tr>'.$/); |
'<td><a href="'.$src.'">'.$title.'</a>'.'</td>'. |
# '<td>'.$symb.'</td>'.'</tr>'.$/); |
'<td><nobr>'.$timestamp.'</nobr></td>'. |
|
'<td>'.$student.'</td>'. |
|
'<td>'.$action.'</td>'. |
|
'<td>'.$machine.'</td>'. |
|
'<td>'.$values.'</td>'.'</tr>'.$/); |
|
} elsif ($mode =~ /^student:/) { |
|
$r->print('<tr class="'.$class.'">'. |
|
'<td><a href="'.$src.'">'.$title.'</a>'.'</td>'. |
|
'<td><nobr>'.$timestamp.'</nobr></td>'. |
|
'<td>'.$action.'</td>'. |
|
'<td>'.$machine.'</td>'. |
|
'<td>'.$values.'</td>'.'</tr>'.$/); |
|
} |
} |
} |
$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'}; |
Line 220 sub request_data_update {
|
Line 271 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: 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; } |
Line 233 sub styles {
|
Line 291 sub styles {
|
tr.adm { background-color: green; } |
tr.adm { background-color: green; } |
tr.print { background-color: blue; } |
tr.print { background-color: blue; } |
tr.printout { background-color: blue; } |
tr.printout { background-color: blue; } |
</STYLE> |
</style> |
END |
END |
} |
} |
|
|
Line 315 sub handler {
|
Line 373 sub handler {
|
} |
} |
&Apache::lonnet::logthis('result from request_data_update: '.$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'}); |
|
$r->print('<h2>'. |
|
&mt('Recent activity of [_1]@[_2]',$sname,$sdom). |
|
'</h2>'); |
|
&get_data($r,\%prog_state,$navmap, |
|
'student:'.$ENV{'form.selected_student'}); |
} 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')); |