--- loncom/init.d/loncontrol	2005/02/14 00:29:48	1.24
+++ loncom/init.d/loncontrol	2005/05/26 20:25:00	1.25
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 #
-# $Id: loncontrol,v 1.24 2005/02/14 00:29:48 albertel Exp $
+# $Id: loncontrol,v 1.25 2005/05/26 20:25:00 albertel Exp $
 #
 # The LearningOnline Network with CAPA
 #
@@ -162,7 +162,7 @@ if (($command eq "restartold") or ($comm
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
 	"\n";
     system("su www -c '/home/httpd/perl/loncron --oldlonc --justcheckdaemons'");
-} elsif (($command eq "restart") or ($command eq "reload")) {
+} elsif ($command eq "restart") {
     print 'Restarting LON-CAPA'."\n";
     print 'Ending LON-CAPA client and daemon processes'."\n";
     foreach my $daemon ('lonsql','lond','lonc','lonhttpd','lonmemcached') {
@@ -193,6 +193,9 @@ if (($command eq "restartold") or ($comm
     print 'Starting LON-CAPA client and daemon processes (please be patient)'.
 	"\n"; 
     system("su www -c '/home/httpd/perl/loncron --justcheckdaemons'");
+} elsif ($command eq "reload") {
+    print 'Reload LON-CAPA config files'."\n";
+    system("su www -c '/home/httpd/perl/loncron --justreload'");
 } elsif ($command eq "status") {
     $response=`/bin/cat /home/httpd/perl/logs/*.pid 2>&1`;
     if ($response=~/No such file or directory/) {