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.
}
input {
+ font-size: 12px;
background-color: #408080;
color: #FFFFFF;
border-color: #102020;
}
select {
+ font-size: 12px;
padding: 3px;
background-color: #408080;
color: #FFFFFF;
$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 $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();
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();