version 1.19, 2006/05/01 19:37:34
|
version 1.20, 2006/05/30 12:46:09
|
Line 48 use Apache::lonmysql;
|
Line 48 use Apache::lonmysql;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Time::HiRes; |
use Time::HiRes; |
|
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
|
|
my $num_records=500; |
my $num_records=500; |
|
|
Line 183 sub get_max_time_in_db {
|
Line 185 sub get_max_time_in_db {
|
my $timestr = ''; |
my $timestr = ''; |
while (my $line = <TIMEDATA>) { |
while (my $line = <TIMEDATA>) { |
chomp($line); |
chomp($line); |
$timestr = &Apache::lonnet::unescape($line); |
$timestr = &unescape($line); |
} |
} |
close(TIMEDATA); |
close(TIMEDATA); |
return &Apache::lonmysql::unsqltime($timestr); |
return &Apache::lonmysql::unsqltime($timestr); |
Line 278 sub output_results {
|
Line 280 sub output_results {
|
while (my $line = <ACTIVITYDATA>) { |
while (my $line = <ACTIVITYDATA>) { |
# FIXME: does not pass symbs along :( |
# FIXME: does not pass symbs along :( |
chomp($line); |
chomp($line); |
$line = &Apache::lonnet::unescape($line); |
$line = &unescape($line); |
if (++$count % 50 == 0) { |
if (++$count % 50 == 0) { |
if ($count != 0) { |
if ($count != 0) { |
$r->print('</table>'.$/); |
$r->print('</table>'.$/); |
Line 293 sub output_results {
|
Line 295 sub output_results {
|
($symb,$timestamp,$action,$machine,$values) = split(',',$line,5); |
($symb,$timestamp,$action,$machine,$values) = split(',',$line,5); |
} |
} |
foreach ($symb,$timestamp,$student,$action,$machine) { |
foreach ($symb,$timestamp,$student,$action,$machine) { |
$_=&Apache::lonnet::unescape($_); |
$_=&unescape($_); |
} |
} |
my ($title,$src); |
my ($title,$src); |
if ($symb =~ m:^/adm/:) { |
if ($symb =~ m:^/adm/:) { |
Line 380 sub display_values {
|
Line 382 sub display_values {
|
my %values=map {split('=',$_,-1)} split(/\&/,$values); |
my %values=map {split('=',$_,-1)} split(/\&/,$values); |
foreach my $key (sort(keys(%values))) { |
foreach my $key (sort(keys(%values))) { |
$result.='<tr><td align="right">'. |
$result.='<tr><td align="right">'. |
&Apache::lonnet::unescape($key). |
&unescape($key). |
'</td><td>=</td><td align="left">'. |
'</td><td>=</td><td align="left">'. |
&Apache::lonnet::unescape($values{$key}).'</td></tr>'; |
&unescape($values{$key}).'</td></tr>'; |
} |
} |
$result.='</table>'; |
$result.='</table>'; |
} elsif ($action eq 'POST') { |
} elsif ($action eq 'POST') { |
my %values= |
my %values= |
map {split('=',&Apache::lonnet::unescape($_),-1)} split(/\&/,$values); |
map {split('=',&unescape($_),-1)} split(/\&/,$values); |
foreach my $key (sort(keys(%values))) { |
foreach my $key (sort(keys(%values))) { |
if ($key eq 'counter') { next; } |
if ($key eq 'counter') { next; } |
$result.='<tr><td align="right">'.$key.'</td>'. |
$result.='<tr><td align="right">'.$key.'</td>'. |
Line 395 sub display_values {
|
Line 397 sub display_values {
|
} |
} |
$result.='</table>'; |
$result.='</table>'; |
} else { |
} else { |
$result=&Apache::lonnet::unescape($values) |
$result=&unescape($values) |
} |
} |
return $result; |
return $result; |
} |
} |