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