--- loncom/cgi/userstatus.pl	2004/09/22 15:00:04	1.11
+++ 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.11 2004/09/22 15:00:04 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;
 
@@ -80,6 +80,7 @@ sub main {
     my @allfiles=(sort(readdir(DIR)));
     foreach my $filename (@allfiles) {
 	if ($filename=~/^\./) { next; }
+	if ($filename=~/^publicuser_/) { next; }
 	my ($dev,$ino,$mode,$nlink,
 	    $uid,$gid,$rdev,$size,
 	    $atime,$mtime,$ctime,
@@ -100,6 +101,8 @@ sub main {
 	    while (my $line=<$fh>) {
 		chomp($line);
 		my ($name,$value)=split(/\=/,$line);
+		$name = &unescape($name);
+		$value = &unescape($value);
 		$userinfo{$name}=$value;
 	    }
 	    $fh->close();