--- loncom/Attic/lchtmldir	2008/05/30 13:37:48	1.21
+++ loncom/Attic/lchtmldir	2010/10/12 09:53:45	1.22
@@ -2,7 +2,7 @@
 
 # The Learning Online Network with CAPA
 #
-# $Id: lchtmldir,v 1.21 2008/05/30 13:37:48 raeburn Exp $
+# $Id: lchtmldir,v 1.22 2010/10/12 09:53:45 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,7 +78,7 @@ use LONCAPA qw(:match);
 $ENV{'PATH'} = '/bin:/usr/bin:/usr/local/sbin:/home/httpd/perl';
 delete @ENV{qw{IFS CDPATH ENV BASH_ENV}};
 
-my $DEBUG = 1;                         # .nonzero -> Debug printing enabled.
+my $DEBUG = 0;                         # .nonzero -> Debug printing enabled.
 my $path_sep = "/";		# Unix like operating systems.
 
 
@@ -88,8 +88,8 @@ if ($DEBUG) {
     print("Checking uid...\n");
 }
 my $wwwid = getpwnam('www');
-&DisableRoot;
-if($wwwid != $>) {
+
+if($wwwid != $<) {
     if ($DEBUG) {
 	print("User ID incorrect.  This program must be run as user 'www'\n");
     }