--- loncom/cgi/userstatus.pl	2006/06/02 21:39:02	1.12.2.1
+++ loncom/cgi/userstatus.pl	2006/06/02 21:36:21	1.13
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # User Status
-# $Id: userstatus.pl,v 1.12.2.1 2006/06/02 21:39:02 albertel Exp $
+# $Id: userstatus.pl,v 1.13 2006/06/02 21:36:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -30,7 +30,7 @@ $|=1;
 use strict;
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
-
+use LONCAPA;
 use HTTP::Headers;
 use IO::File;
 
@@ -211,18 +211,3 @@ sub showact {
     print("</tr></table>\n");
 }
 
-# -------------------------------------------------------- Escape Special Chars
-
-sub escape {
-    my $str=shift;
-    $str =~ s/(\W)/"%".unpack('H2',$1)/eg;
-    return $str;
-}
-
-# ----------------------------------------------------- Un-Escape Special Chars
-
-sub unescape {
-    my $str=shift;
-    $str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-    return $str;
-}