--- status.cgi.original	Fri Mar 12 07:29:34 2004
+++ status.cgi	Fri Mar 12 07:32:21 2004
@@ -5,6 +5,7 @@
 # v1.1: Dec 2003 fixes, removal of hardwiring
 # v1.2: Mar 2004 rewrite, need to fix Queue::GridEngine
 #
+# patch 20040312.2 by Sam Mingolelli <sam@jake8us.org>
 
 use strict;
 use POSIX;
@@ -22,6 +23,7 @@
 my $html_base_url = $test_config->val('webserver','html_base_url');
 my $remote_status = $test_config->val('cluster','remote_status');
 my $sge_root = $test_config->val('cluster','SGE_ROOT');
+my $sge_cell = $test_config->val('cluster','SGE_CELL');
 my $update_time = $test_config->val('config','update_time');
 my $debug = $test_config->val('config','debug');
 my ($xml,$xml_url,$link_url,$html_url,$link_template,$cmd);
@@ -32,8 +34,9 @@
 my $cgi = new CGI;
 
 
-# set the SGE root
+# set the SGE root and cell
 $ENV{SGE_ROOT}=$sge_root;
+$ENV{SGE_CELL}=$sge_cell;
 
 # create a new XML object
 $xml		= XML::Smart->new;