Revision d641058f
Von Bernd Bleßmann vor etwa 2 Jahren hinzugefügt
bin/mozilla/oe.pl | ||
---|---|---|
1154 | 1154 |
%column_defs_cvars, |
1155 | 1155 |
); |
1156 | 1156 |
|
1157 |
foreach my $name (qw(id transdate reqdate quonumber ordnumber cusordnumber name employee salesman shipvia transaction_description shippingpoint taxzone insertdate payment_terms department intnotes order_status)) { |
|
1157 |
foreach my $name (qw(id transdate reqdate quonumber ordnumber cusordnumber |
|
1158 |
name employee salesman shipvia transaction_description |
|
1159 |
shippingpoint taxzone insertdate payment_terms department |
|
1160 |
intnotes order_status)) { |
|
1158 | 1161 |
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir}; |
1159 | 1162 |
$column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir"; |
1160 | 1163 |
} |
1161 | 1164 |
|
1162 |
my %column_alignment = map { $_ => 'right' } qw(netamount tax amount curr remaining_amount remaining_netamount order_probability expected_billing_date expected_netamount); |
|
1165 |
my %column_alignment = |
|
1166 |
map { $_ => 'right' } qw(netamount tax amount curr |
|
1167 |
remaining_amount remaining_netamount |
|
1168 |
order_probability expected_billing_date |
|
1169 |
expected_netamount); |
|
1163 | 1170 |
|
1164 | 1171 |
$form->{"l_type"} = "Y"; |
1165 | 1172 |
map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns; |
Auch abrufbar als: Unified diff
Kosmetik: gaaaanz lange Zeilen umgebrochen