Fixed some minor bugs.

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

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index 0bb18dc..48acdfb 100755 (executable)
--- a/cgi-files/install.cgi
+++ b/cgi-files/install.cgi
@@ -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.
@@ -219,6 +219,7 @@ body {
 }
 
 input {
+       font-size: 12px;
        background-color: #408080;
        color: #FFFFFF;
        border-color: #102020;
@@ -229,6 +230,7 @@ input {
 }
 
 select {
+       font-size: 12px;
        padding: 3px;
        background-color: #408080;
        color: #FFFFFF;
@@ -1597,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";
@@ -2127,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();
 
@@ -2136,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();