Fixed some minor bugs.

[kiriwrite/.git] / cgi-files / install.cgi

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index 2750d40..48acdfb 100755 (executable)
--- a/cgi-files/install.cgi
+++ b/cgi-files/install.cgi
@@ -4,7 +4,7 @@
 # Kiriwrite Installer Script (install.cgi)                                     #
 # Installation script for Kiriwrite                                            #
 #                                                                              #
-# Version: 0.0.2                                                               #
+# Version: 0.1.0                                                               #
 #                                                                              #
 # Copyright (C) 2005-2007 Steve Brokenshire <sbrokenshire@xestia.co.uk>                #
 #                                                                              #
@@ -26,7 +26,7 @@ use warnings;                         # Write warnings to the HTTP Server Log file.
 
 use utf8;
 use CGI qw(:standard *table *Tr *td);
-use CGI::Carp('fatalsToBrowser');      # Output errors to the browser.
+#use CGI::Carp('fatalsToBrowser');     # Output errors to the browser.
 
 # Setup strings in specific languages. Style should be no spacing for
 # language title and one tabbed spacing for each string.
@@ -110,6 +110,7 @@ $kiriwrite_lang{"en-GB"}{"languagename"}    = "English (British)";
 
        $kiriwrite_lang{"en-GB"}{"errormessagetext"}    = "Please press the back button on your browser or preform the command needed to return to the previous page.";
 
+       $kiriwrite_lang{"en-GB"}{"switch"}              = "Switch";
        $kiriwrite_lang{"en-GB"}{"setting"}             = "Setting";
        $kiriwrite_lang{"en-GB"}{"value"}               = "Value";
        $kiriwrite_lang{"en-GB"}{"filename"}            = "Filename";
@@ -218,6 +219,7 @@ body {
 }
 
 input {
+       font-size: 12px;
        background-color: #408080;
        color: #FFFFFF;
        border-color: #102020;
@@ -228,6 +230,7 @@ input {
 }
 
 select {
+       font-size: 12px;
        padding: 3px;
        background-color: #408080;
        color: #FFFFFF;
@@ -1596,6 +1599,10 @@ $test_list{CheckXMLSimple}{Name}         = "XML::Simple";
 $test_list{CheckXMLSimple}{Type}       = "dependency";
 $test_list{CheckXMLSimple}{Code}       = "XML::Simple";
 
+$test_list{CheckXMLParser}{Name}       = "XML::Parser";
+$test_list{CheckXMLParser}{Type}       = "dependency";
+$test_list{CheckXMLParser}{Code}       = "XML::Parser";
+
 $test_list{CheckTieHash}{Name}         = "Tie::IxHash";
 $test_list{CheckTieHash}{Type}                 = "dependency";
 $test_list{CheckTieHash}{Code}                 = "Tie::IxHash";
@@ -1770,7 +1777,7 @@ foreach $language_name_short (@language_list_short){
 }
 
 print "</select> ";
-print submit('Switch');
+print submit($kiriwrite_lang{$language_selected}{switch});
 
 print end_form;
 print end_td();
@@ -2126,7 +2133,7 @@ print start_td({ -class => "tablename" });
 print $kiriwrite_lang{$language_selected}{presentationmodule};
 print end_td();
 print start_td({ -class => "tabledata" });
-print popup_menu({ -name => 'presmodule', -values => $presentation_modules_ref });
+print popup_menu({ -name => 'presmodule', -values => $presentation_modules_ref, -default => "HTML4S" });
 print end_td();
 print end_Tr();
 
@@ -2135,7 +2142,7 @@ print start_td({ -class => "tablename" });
 print $kiriwrite_lang{$language_selected}{databasemodule};
 print end_td();
 print start_td({ -class => "tabledata" });
-print popup_menu({ -name => 'dbmodule', -values => $database_modules_ref });
+print popup_menu({ -name => 'dbmodule', -values => $database_modules_ref, -default => "SQLite" });
 print end_td();
 print end_Tr();