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

diff --git a/cgi-files/install.cgi b/cgi-files/install.cgi
index d6df2ec..22a08aa 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";
@@ -1596,6 +1597,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 +1775,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();