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.
$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";
$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";
}
print "</select> ";
-print submit('Switch');
+print submit($kiriwrite_lang{$language_selected}{switch});
print end_form;
print end_td();