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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Apr 21 11:31:05 2008
New Revision: 11809

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

Log:
let it render default values

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	Mon Apr 21 11:31:05 2008
@@ -63,7 +63,7 @@
 <p>
 This install wizard will instruct you to config your RT!
 Click "Start Config" below to start!
-<p>
+</p>
 </div>
 
 <form method="post">
@@ -91,6 +91,16 @@
     }
     elsif ( $Run ) {
         $session{InstallConfig} ||= {};
+        for ( qw/DatabaseType DatabaseName DatabaseHost DatabasePort
+                DatabaseUser DatabasePassword DatabaseRequireSSL rtname
+                Organization TimeZone MinimumPasswordLength MaxAttachmentSize
+                OwnerEmail CommentAddress CorrespondAddress MailCommand
+                SendmailArguments SendmailBounceArguments SendmailPath/ ) {
+            no strict 'refs';
+            my $v = "RT::$_";
+            $session{InstallConfig}{$_} ||= $$v;
+        }
+        $session{TimeStamp} = time;
         RT::Interface::Web::Redirect(RT->Config->Get('WebURL') . 'installation/Step1.html');
     
     }