X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/367bf289193a7905c814e756513d0c48f4741e3a..08882e8ce50b1e317d313dac8f27d306dae4492d:/bin/mozilla/am.pl
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 1ebd59816..4d3a88f33 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -1532,7 +1532,7 @@ sub list_language {
$form->{title} = $locale->text('Languages');
- @column_index = qw(description template_code article_code);
+ @column_index = qw(description template_code article_code output_numberformat output_dateformat output_longdates);
$column_header{description} =
qq|| |
@@ -1546,6 +1546,18 @@ sub list_language {
qq| | |
. $locale->text('Article Code')
. qq| | |;
+ $column_header{output_numberformat} =
+ qq||
+ . $locale->text('Number Format')
+ . qq| | |;
+ $column_header{output_dateformat} =
+ qq||
+ . $locale->text('Date Format')
+ . qq| | |;
+ $column_header{output_longdates} =
+ qq||
+ . $locale->text('Long Dates')
+ . qq| | |;
$form->header;
@@ -1584,6 +1596,20 @@ sub list_language {
$column_data{template_code} = qq|$ref->{template_code} | |;
$column_data{article_code} =
qq|$ref->{article_code} | |;
+ $column_data{output_numberformat} =
+ "" .
+ ($ref->{output_numberformat} ? $ref->{output_numberformat} :
+ $locale->text("use program settings")) .
+ " | ";
+ $column_data{output_dateformat} =
+ "" .
+ ($ref->{output_dateformat} ? $ref->{output_dateformat} :
+ $locale->text("use program settings")) .
+ " | ";
+ $column_data{output_longdates} =
+ "" .
+ ($ref->{output_longdates} ? $locale->text("Yes") : $locale->text("No")) .
+ " | ";
map { print "$column_data{$_}\n" } @column_index;
@@ -1646,6 +1672,28 @@ sub language_header {
$form->header;
+ my $numberformat =
+ qq||;
+ foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00)) {
+ $numberformat .=
+ ($item eq $form->{output_numberformat})
+ ? "";
+ }
+
+ my $dateformat =
+ qq||;
+ foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) {
+ $dateformat .=
+ ($item eq $form->{output_dateformat})
+ ? "";
+ }
+
print qq|
@@ -1661,15 +1709,33 @@ sub language_header {
|
| | . $locale->text('Language') . qq| |
- |
+ |
| | . $locale->text('Template Code') . qq| |
- {template_code}> |
+ |
| | . $locale->text('Article Code') . qq| |
- {article_code}> |
+ |
+
+
+ | | . $locale->text('Number Format') . qq| |
+ |
+
+
+ | | . $locale->text('Date Format') . qq| |
+ |
+
+
+ | | . $locale->text('Long Dates') . qq| |
+ {output_longdates} ? " checked" : "") .
+ qq|>| . $locale->text("Yes") .
+ qq|{output_longdates} ? "" : " checked") .
+ qq|>| . $locale->text("No") .
+ qq| |
|