[Rt-commit] r11759 - rt/branches/3.8-TESTING/html/installation

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Apr 17 00:04:17 2008
New Revision: 11759

Modified:
   rt/branches/3.8-TESTING/html/installation/index.html

Log:
refine installation/index.html

Modified: rt/branches/3.8-TESTING/html/installation/index.html
==============================================================================
--- rt/branches/3.8-TESTING/html/installation/index.html	(original)
+++ rt/branches/3.8-TESTING/html/installation/index.html	Thu Apr 17 00:04:17 2008
@@ -50,12 +50,7 @@
 <& /Elements/Tabs, 
     current_toptab => 'Install', Title => 'Install' &>
 
-% if ( $RT::Installed && ! $Force ) {
-<div class="warning">
-    Seems you've already run this wizard, do you want to config it again?
-    click <a href="?Force=1">here</a> to reconfig.
-</div>
-% } else {
+<& /Elements/ListActions, actions => \@results &>
 
 <div class="intro">
 rt introduction...
@@ -65,16 +60,28 @@
 this wizard introduction...
 </div>
 
+% unless ( $locked ) {
 <form method="post">
 <input type="hidden" name="Run" value="1" />
 <& /Elements/Submit, Label => 'Start Config' &>
 </form>
-
 % }
 
 <%init>
+my @results;
+
+my $locked;
+my $file = File::Spec->catfile( $RT::EtcPath, 'RT_SiteConfig.pm' );
+$locked = 1 unless -w $file;
 
-if ( $Run ) {
+if ( $RT::Installed && ! $Force ) {
+    push @results, "Seems you've already run this wizard";
+}
+
+if ( $locked ) {
+    push @results, "Config file $file is locked";
+}
+elsif ( $Run ) {
     $session{InstallConfig} ||= {};
     RT::Interface::Web::Redirect(RT->Config->Get('WebURL') . 'installation/Step1.html');