X-Git-Url: http://Server1/repobrowser/?a=blobdiff_plain;f=cgi-files%2Finstall.cgi;h=48acdfb5e7907d40880da233da98f4bbebce60a8;hb=e98d8e14ef7407ac692cd7c428aaeb7966c76bc2;hp=d6df2ec1d5c2c68a787a3437681b1538ad6461f0;hpb=619a8b2bf4dd5962a191c154966d9467d76325ad;p=kiriwrite%2F.git

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index d6df2ec..48acdfb 100755
--- 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.
@@ -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();