--- loncom/interface/statistics/Attic/lonclassifystudents.pm	2002/07/27 20:50:15	1.1
+++ loncom/interface/statistics/Attic/lonclassifystudents.pm	2006/05/30 12:46:49	1.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: lonclassifystudents.pm,v 1.1 2002/07/27 20:50:15 minaeibi Exp $
+# $Id: lonclassifystudents.pm,v 1.2 2006/05/30 12:46:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,8 +27,6 @@
 #
 # (Navigate problems for statistical reports
 #
-# YEAR=2002
-# 5/12,7/27  Behrouz Minaei
 #
 ###
 
@@ -39,6 +37,9 @@ use Apache::lonnet();
 use Apache::lonhtmlcommon;
 use Apache::loncoursedata;
 use GDBM_File;
+use lib '/home/httpd/lib/perl/';
+use LONCAPA;
+  
 
 
 #---- Activity log -------------------------------------------------------
@@ -163,7 +164,7 @@ sub Build_log {
     my $count=0;
     while ($line=<FILEID>) {
 	my ($time,$machine,$what)=split(':',$line);
-	$what=&Apache::lonnet::unescape($what);
+	$what=&unescape($what);
 	my @accesses=split('&',$what);
 	           
 	foreach my $access (@accesses) {
@@ -172,7 +173,7 @@ sub Build_log {
 
 	    my ($date,$resource,$who,$domain,$post,@posts)=split(':',$access);
 	    if (!$resource) { next; }
-	    my $res=&Apache::lonnet::unescape($resource);
+	    my $res=&unescape($resource);
 	    if (($res =~ /\.problem/)) {
 		$Activity->{$who.':'.$res}.=$date.'@';
                 #$r->print('<br>'.$time.':'.$who.'---'.$res);
@@ -201,20 +202,20 @@ sub Activity {
     my $Count=0;
     while ($line=<FILEID>) {
 	my ($time,$machine,$what)=split(':',$line);
-	$what=&Apache::lonnet::unescape($what);
+	$what=&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);
+	    my $res=&unescape($resource);
 	    if (($res =~ /\.(sequence|problem|htm|html|page)/)) {
 	    	$Count++;
 ###888		$r->print("<br>$Count) ".localtime($date).": $who --> $res");
 #	        if ($post) { 
 #		    $Count++;
 #		    $r->print("<br><b>$Count) Sent data ".join(':',
-#                              &Apache::lonnet::unescape(@posts)).'</b>');
+#                              &unescape(@posts)).'</b>');
 #		}
 ###888		$r->rflush();
 	    }