--- loncom/lcinstallfile	2009/03/03 12:08:07	1.3
+++ loncom/lcinstallfile	2010/10/12 10:14:25	1.5
@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 #
-## Copyright Michigan State University Board of Trustees
+# Copyright Michigan State University Board of Trustees
+#
+# $Id: lcinstallfile,v 1.5 2010/10/12 10:14:25 foxr Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -22,8 +24,7 @@
 #
 #
 #
-# 2/17/2009 - Ron FOx
-# 
+# 2/17/2009 - Ron Fox
 #
 # http://www.lon-capa.org/
 #
@@ -41,9 +42,7 @@
 
 use strict;
 
-my $LONCAPAHOME = '/home/httpd';	     # Adjust if loncapa isn't installed here.
-
-use lib "/home/httpd/lib/perl";
+use lib "/home/httpd/lib/perl";     # Adjust if loncapa lib isn't installed here.
 use LONCAPA;
 use LONCAPA::Configuration;
 use IO::File;
@@ -70,8 +69,8 @@ my $noprint = 1;
 print ("In lcinstallfile\n") unless $noprint;
 
 my $wwwid=getpwnam('www');
-&disable_root_capability;
-if ($wwwid!=$>) {
+#&disable_root_capability;
+if ($wwwid!=$<) {
     print("User ID mismatch.  This program must be run as user 'www'\n")
 	unless $noprint;
     exit 1;
@@ -181,8 +180,7 @@ sub enable_root_capability {
     if ($wwwid==$>) {
 	($<,$>)=($>,0);
 	($(,$))=($),0);
-    }
-    else {
+    } else {
 	# root capability is already enabled
     }
     print ("Effective uid = $>\n");
@@ -194,8 +192,7 @@ sub disable_root_capability {
     if ($wwwid==$<) {
 	($<,$>)=($>,$<);
 	($(,$))=($),$();
-    }
-    else {
+    } else {
 	# root capability is already disabled
     }
 }