income_accno_3 expense_accno_3 );
$column_header{up} =
- qq|<th class="listheading">|
+ qq|<th class="listheading" width="16">|
. qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">|
. qq|</th>|;
$column_header{down} =
- qq|<th class="listheading">|
+ qq|<th class="listheading" width="16">|
. qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">|
. qq|</th>|;
$column_header{description} =
if ($row) {
my $pref = $form->{ALL}->[$row - 1];
$column_data{up} =
- qq|<td align="center" valign="center">| .
+ qq|<td align="center" valign="center" width="16">| .
qq|<a href="${swap_link}id1=$ref->{id}&id2=$pref->{id}">| .
qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">| .
qq|</a></td>|;
} else {
- $column_data{up} = qq|<td> </td>|;
+ $column_data{up} = qq|<td width="16"> </td>|;
}
if ($row == (scalar(@{ $form->{ALL} }) - 1)) {
- $column_data{down} = qq|<td> </td>|;
+ $column_data{down} = qq|<td width="16"> </td>|;
} else {
my $nref = $form->{ALL}->[$row + 1];
$column_data{down} =
- qq|<td align="center" valign="center">| .
+ qq|<td align="center" valign="center" width="16">| .
qq|<a href="${swap_link}id1=$ref->{id}&id2=$nref->{id}">| .
qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">| .
qq|</a></td>|;
terms_skonto percent_skonto);
$column_header{up} =
- qq|<th class="listheading" align="center" valign="center">|
+ qq|<th class="listheading" align="center" valign="center" width="16">|
. qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">|
. qq|</th>|;
$column_header{down} =
- qq|<th class="listheading" align="center" valign="center">|
+ qq|<th class="listheading" align="center" valign="center" width="16">|
. qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">|
. qq|</th>|;
$column_header{description} =
if ($row) {
my $pref = $form->{ALL}->[$row - 1];
$column_data{up} =
- qq|<td align="center" valign="center">| .
+ qq|<td align="center" valign="center" width="16">| .
qq|<a href="${swap_link}&id1=$ref->{id}&id2=$pref->{id}">| .
qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">| .
qq|</a></td>|;
} else {
- $column_data{up} = qq|<td> </td>|;
+ $column_data{up} = qq|<td width="16"> </td>|;
}
if ($row == (scalar(@{ $form->{ALL} }) - 1)) {
- $column_data{down} = qq|<td> </td>|;
+ $column_data{down} = qq|<td width="16"> </td>|;
} else {
my $nref = $form->{ALL}->[$row + 1];
$column_data{down} =
- qq|<td align="center" valign="center">| .
+ qq|<td align="center" valign="center" width="16">| .
qq|<a href="${swap_link}&id1=$ref->{id}&id2=$nref->{id}">| .
qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">| .
qq|</a></td>|;
}
$countrycodes = "<option>American English\n$countrycodes";
- # use an other input number format than output numberformat
- # look at Form.pm, sub parse_amount
- my $in_numberformat = '';
- $text1 = qq|value="0">| . $locale->text('equal Outputformat');
- $text2 = qq|value="1">| . $locale->text('1000,00 or 1000.00');
- @in_nf = ($text1, $text2);
- foreach $item (@in_nf) {
- $in_numberformat .=
- (substr($item, 7, 1) eq $myconfig{in_numberformat})
- ? "<option selected $item\n"
- : "<option $item\n";
- }
-
foreach $key (keys %{ $form->{IC} }) {
foreach $accno (sort keys %{ $form->{IC}{$key} }) {
$myconfig{$key} .=
<th align=right>| . $locale->text('Output Number Format') . qq|</th>
<td><select name=numberformat>$numberformat</select></td>
</tr>
- <tr>
- <th align=right>| . $locale->text('Input Number Format') . qq|</th>
- <td><select name=in_numberformat>$in_numberformat</select></td>
- </tr>
<tr>
<th align=right>| . $locale->text('Dropdown Limit') . qq|</th>