diff -ruN e-smith-starterwebsite-2.4.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/starterwebsite.pm e-smith-starterwebsite-2.4.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/starterwebsite.pm
--- e-smith-starterwebsite-2.4.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/starterwebsite.pm	2003-01-06 09:50:25.000000000 -0800
+++ e-smith-starterwebsite-2.4.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/starterwebsite.pm	2014-03-27 01:17:53.000000000 -0700
@@ -135,8 +135,9 @@
   my ($fm) = @_;
   
   my $q = $fm->{'cgi'};
+  my $primary_location = ' /home/e-smith/files/ibays/Primary/html/index.htm';
 
-    if (! open (WR, ">/home/e-smith/files/primary/html/index.htm"))
+    if (! open (WR, ">$primary_location"))
     {
       $fm->{cgi}->param( -name  => 'initial_message', -value => 'OPEN_INDEX_FAIL');
       $fm->{cgi}->param( -name => 'wherenext', -value => 'Done' );
@@ -225,8 +226,8 @@
     close WR;
 
     esmith::util::chownFile("admin", "shared",
-	"/home/e-smith/files/primary/html/index.htm");
-    chmod 0640, "/home/e-smith/files/primary/html/index.htm";
+        $primary_location);
+    chmod 0640, $primary_location;
 
 
   #$fm->{cgi}->param( -name  => 'initial_message', -value => 'CHANGE_SUCCEEDED');