| 846 |
846 |
}
|
| 847 |
847 |
|
| 848 |
848 |
sub list_language {
|
| 849 |
|
$main::lxdebug->enter_sub();
|
| 850 |
|
|
| 851 |
|
my $form = $main::form;
|
| 852 |
|
my %myconfig = %main::myconfig;
|
| 853 |
|
my $locale = $main::locale;
|
| 854 |
|
|
| 855 |
|
$main::auth->assert('config');
|
|
849 |
$::lxdebug->enter_sub;
|
|
850 |
$::auth->assert('config');
|
| 856 |
851 |
|
| 857 |
852 |
AM->language(\%myconfig, \%$form);
|
| 858 |
853 |
|
| 859 |
|
$form->{callback} = "am.pl?action=list_language";
|
|
854 |
$::form->{callback} = "am.pl?action=list_language";
|
|
855 |
$::form->{title} = $::locale->text('Languages');
|
| 860 |
856 |
|
| 861 |
|
my $callback = $form->escape($form->{callback});
|
|
857 |
$::form->header;
|
| 862 |
858 |
|
| 863 |
|
$form->{title} = $locale->text('Languages');
|
|
859 |
print $::form->parse_html_template('am/language_list');
|
| 864 |
860 |
|
| 865 |
|
my @column_index = qw(description template_code article_code output_numberformat output_dateformat output_longdates);
|
| 866 |
|
my %column_header;
|
| 867 |
|
$column_header{description} =
|
| 868 |
|
qq|<th class=listheading width=60%>|
|
| 869 |
|
. $locale->text('Description')
|
| 870 |
|
. qq|</th>|;
|
| 871 |
|
$column_header{template_code} =
|
| 872 |
|
qq|<th class=listheading width=10%>|
|
| 873 |
|
. $locale->text('Template Code')
|
| 874 |
|
. qq|</th>|;
|
| 875 |
|
$column_header{article_code} =
|
| 876 |
|
qq|<th class=listheading>|
|
| 877 |
|
. $locale->text('Article Code')
|
| 878 |
|
. qq|</th>|;
|
| 879 |
|
$column_header{output_numberformat} =
|
| 880 |
|
qq|<th class=listheading>|
|
| 881 |
|
. $locale->text('Number Format')
|
| 882 |
|
. qq|</th>|;
|
| 883 |
|
$column_header{output_dateformat} =
|
| 884 |
|
qq|<th class=listheading>|
|
| 885 |
|
. $locale->text('Date Format')
|
| 886 |
|
. qq|</th>|;
|
| 887 |
|
$column_header{output_longdates} =
|
| 888 |
|
qq|<th class=listheading>|
|
| 889 |
|
. $locale->text('Long Dates')
|
| 890 |
|
. qq|</th>|;
|
| 891 |
|
|
| 892 |
|
$form->header;
|
| 893 |
|
|
| 894 |
|
print qq|
|
| 895 |
|
<body>
|
| 896 |
|
|
| 897 |
|
<table width=100%>
|
| 898 |
|
<tr>
|
| 899 |
|
<th class=listtop>$form->{title}</th>
|
| 900 |
|
</tr>
|
| 901 |
|
<tr height="5"></tr>
|
| 902 |
|
<tr>
|
| 903 |
|
<td>
|
| 904 |
|
<table width=100%>
|
| 905 |
|
<tr class=listheading>
|
| 906 |
|
|;
|
| 907 |
|
|
| 908 |
|
map { print "$column_header{$_}\n" } @column_index;
|
| 909 |
|
|
| 910 |
|
print qq|
|
| 911 |
|
</tr>
|
| 912 |
|
|;
|
| 913 |
|
|
| 914 |
|
my ($i, %column_data);
|
| 915 |
|
foreach my $ref (@{ $form->{ALL} }) {
|
| 916 |
|
|
| 917 |
|
$i++;
|
| 918 |
|
$i %= 2;
|
| 919 |
|
|
| 920 |
|
print qq|
|
| 921 |
|
<tr valign=top class=listrow$i>
|
| 922 |
|
|;
|
| 923 |
|
|
| 924 |
|
|
| 925 |
|
$column_data{description} =
|
| 926 |
|
qq|<td><a href="am.pl?action=edit_language&id=$ref->{id}&callback=$callback">$ref->{description}</td>|;
|
| 927 |
|
$column_data{template_code} = qq|<td align=right>$ref->{template_code}</td>|;
|
| 928 |
|
$column_data{article_code} =
|
| 929 |
|
qq|<td align=right>$ref->{article_code}</td>|;
|
| 930 |
|
$column_data{output_numberformat} =
|
| 931 |
|
"<td nowrap>" .
|
| 932 |
|
($ref->{output_numberformat} ? $ref->{output_numberformat} :
|
| 933 |
|
$locale->text("use program settings")) .
|
| 934 |
|
"</td>";
|
| 935 |
|
$column_data{output_dateformat} =
|
| 936 |
|
"<td nowrap>" .
|
| 937 |
|
($ref->{output_dateformat} ? $ref->{output_dateformat} :
|
| 938 |
|
$locale->text("use program settings")) .
|
| 939 |
|
"</td>";
|
| 940 |
|
$column_data{output_longdates} =
|
| 941 |
|
"<td nowrap>" .
|
| 942 |
|
($ref->{output_longdates} ? $locale->text("Yes") : $locale->text("No")) .
|
| 943 |
|
"</td>";
|
| 944 |
|
|
| 945 |
|
map { print "$column_data{$_}\n" } @column_index;
|
| 946 |
|
|
| 947 |
|
print qq|
|
| 948 |
|
</tr>
|
| 949 |
|
|;
|
| 950 |
|
}
|
| 951 |
|
|
| 952 |
|
print qq|
|
| 953 |
|
</table>
|
| 954 |
|
</td>
|
| 955 |
|
</tr>
|
| 956 |
|
<tr>
|
| 957 |
|
<td><hr size=3 noshade></td>
|
| 958 |
|
</tr>
|
| 959 |
|
</table>
|
| 960 |
|
|
| 961 |
|
<br>
|
| 962 |
|
<form method=post action=am.pl>
|
| 963 |
|
|
| 964 |
|
<input name=callback type=hidden value="$form->{callback}">
|
| 965 |
|
|
| 966 |
|
<input type=hidden name=type value=language>
|
| 967 |
|
|
| 968 |
|
<input class=submit type=submit name=action value="|
|
| 969 |
|
. $locale->text('Add') . qq|">
|
| 970 |
|
|
| 971 |
|
</form>
|
| 972 |
|
|
| 973 |
|
</body>
|
| 974 |
|
</html>
|
| 975 |
|
|;
|
| 976 |
|
|
| 977 |
|
$main::lxdebug->leave_sub();
|
|
861 |
$::lxdebug->leave_sub;
|
| 978 |
862 |
}
|
| 979 |
863 |
|
| 980 |
864 |
sub language_header {
|
| ... | ... | |
| 1378 |
1262 |
}
|
| 1379 |
1263 |
|
| 1380 |
1264 |
my $linkaccounts;
|
| 1381 |
|
if ( $::instance_conf->get_inventory_system eq 'perpetual' ) { # was !$::lx_office_conf{system}->{eur}) {
|
|
1265 |
if ( $::instance_conf->get_inventory_system eq 'perpetual' ) { # was !$::lx_office_conf{system}->{eur}) { }
|
| 1382 |
1266 |
$linkaccounts = qq|
|
| 1383 |
1267 |
<tr>
|
| 1384 |
1268 |
<th align=right>| . $locale->text('Inventory') . qq|</th>
|
am/list_language in template ausgelagert