Revision b65a230d
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 145 | 145 |
$form->format_amount(\%myconfig, $form->{exchangerate});
|
| 146 | 146 |
if ($form->{forex}) {
|
| 147 | 147 |
$exchangerate = qq| |
| 148 |
<tr>
|
|
| 149 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 150 |
<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 151 |
</tr>
|
|
| 148 |
<tr>
|
|
| 149 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 150 |
<td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>
|
|
| 151 |
</tr>
|
|
| 152 | 152 |
|; |
| 153 | 153 |
} else {
|
| 154 | 154 |
$exchangerate = qq| |
| 155 |
<tr>
|
|
| 156 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 157 |
<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|
|
| 158 |
</tr>
|
|
| 155 |
<tr>
|
|
| 156 |
<th align=right nowrap>| . $locale->text('Exchangerate') . qq|</th>
|
|
| 157 |
<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|
|
| 158 |
</tr>
|
|
| 159 | 159 |
|; |
| 160 | 160 |
} |
| 161 | 161 |
} |
| ... | ... | |
| 340 | 340 |
<tr> |
| 341 | 341 |
<td> |
| 342 | 342 |
<table width=100%> |
| 343 |
<tr>
|
|
| 344 |
<th class=listheading colspan=$colspan>$invoice</th>
|
|
| 345 |
</tr>
|
|
| 343 |
<tr>
|
|
| 344 |
<th class=listheading colspan=$colspan>$invoice</th>
|
|
| 345 |
</tr>
|
|
| 346 | 346 |
|; |
| 347 | 347 |
|
| 348 | 348 |
$column_data{invnumber} =
|
| ... | ... | |
| 405 | 405 |
$j++; |
| 406 | 406 |
$j %= 2; |
| 407 | 407 |
print qq| |
| 408 |
<tr class=listrow$j>
|
|
| 408 |
<tr class=listrow$j>
|
|
| 409 | 409 |
|; |
| 410 | 410 |
map { print "$column_data{$_}\n" } @column_index;
|
| 411 | 411 |
print qq| |
| ... | ... | |
| 466 | 466 |
$format .= qq| |
| 467 | 467 |
<option value=postscript $form->{DF}{postscript}>|
|
| 468 | 468 |
. $locale->text('Postscript') . qq|
|
| 469 |
<option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF');
|
|
| 469 |
<option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF');
|
|
| 470 | 470 |
} |
| 471 | 471 |
|
| 472 | 472 |
print qq| |
Auch abrufbar als: Unified diff
Tabs aus *.pl Dateien entfernt.