) {
+ my ($time,$machine,$what)=split(':',$line);
+ $what=&Apache::lonnet::unescape($what);
+ my @accesses=split('&',$what);
+ foreach my $access (@accesses) {
+ my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
+ if ($who ne $userid) { next; }
+ if (!$resource) { next; }
+ my $res=&Apache::lonnet::unescape($resource);
+ #if (($key=~/\.(\w+)\.(\w+)\.submission$/)) {
+ #if ($meta=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+ # foreach my $Key(split(/\,/,&Apache::lonnet::metadata($meta,'keys'))) {
+ # if ($Key=~/^stores\_(\w+)\_tries$/) {
+
+ # if (($res =~ /^\/res\/adm/)) {
+ $Count++;
+ $r->print("
$Count) $date: $who --> $res");
+ if ($post) {
+ $Count++;
+ $r->print("
$Count) Sent data ".join(':',
+ &Apache::lonnet::unescape(@posts)).'');
+ }
+ $r->rflush();
+ # }
+ ## push (@allaccess,unescape($access));
+ #print $machine;
+ }
+ }
+# @allaccess=sort(@allaccess);
+# $Count=0;
+# foreach my $access (@allaccess) {
+# my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
+# $Count++;
+# $r->print("
$Count) $date: $who --> $resource");
+# $r->rflush();
+# if ($post) {
+# $r->print("
Sent data ".join(':',unescape(@posts)).'');
+# }
+# }
+}
+
+
+
sub InitAnalysis {
my ($rid, $student)=@_;
my ($uname,$udom)=split(/\:/,$student);
@@ -220,9 +274,9 @@ sub DrawTable {
for (my $n=0; $n<=$#Concepts; $n++ ) {
$Str .= "\n"."".
"\n"."".($n+1)." | ".
- "\n"." ".$Concepts[$n]." | ".
- "\n"." ".$data1[$n]." | ".
- "\n"." ".$data2[$n]." | ".
+ "\n".' '.$Concepts[$n]." | ".
+ "\n".' '.$data1[$n]." | ".
+ "\n".' '.$data2[$n]." | ".
"\n"."
";
}
$Str.=' | From:['.localtime($ConceptData{'Int.'.$k}).
@@ -264,7 +318,6 @@ sub DrawGraph {
$Max = int($Max);
} else { $Max = 1; }
-
my $Titr=($ConceptData{'Interval'}>1) ? $Src.'_interval_'.($k+1) : $Src;
# $GData=$Titr.'&Concepts'.'&'.'Answers'.'&'.$Max.'&'.$P_No.'&'.$data1.'&'.$data2;
$GData="$Titr&Concepts&Answers&$Max&$P_No&".
@@ -279,7 +332,7 @@ sub AnalyzeProblem {
my $OpSel='';
my $CurInt = $ENV{'form.interval'};
if ($CurInt eq '') {$CurMap = '1';}
- my $Ptr = 'Select number of intervals'."\n".
+ my $Ptr = ' Select number of intervals'."\n".
' |