Revision 0bb0eb67
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 254 | 254 |
qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|;
|
| 255 | 255 |
} |
| 256 | 256 |
|
| 257 |
(my $qty_dec) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 258 |
$qty_dec = length $qty_dec;
|
|
| 257 |
(my $qty_dec) = ($form->{"qty_$i"} =~ /\.(\d+)/);
|
|
| 258 |
$qty_dec = length $qty_dec; |
|
| 259 | 259 |
|
| 260 | 260 |
$column_data{qty} =
|
| 261 |
qq|<td align=right><input name="qty_$i" size=5 value=|.
|
|
| 262 |
$form->format_amount(\%myconfig, $form->{"qty_$i"}, $qty_dec)
|
|
| 263 |
.qq|></td>|;
|
|
| 261 |
qq|<td align=right><input name="qty_$i" size=5 value=| |
|
| 262 |
. $form->format_amount(\%myconfig, $form->{"qty_$i"}, $qty_dec)
|
|
| 263 |
. qq|></td>|;
|
|
| 264 | 264 |
$column_data{ship} =
|
| 265 | 265 |
qq|<td align=right><input name="ship_$i" size=5 value=| |
| 266 | 266 |
. $form->format_amount(\%myconfig, $form->{"ship_$i"})
|
| ... | ... | |
| 454 | 454 |
} |
| 455 | 455 |
} |
| 456 | 456 |
|
| 457 |
#print (STDERR "HIER", Dumper($prices) ); |
|
| 458 | 457 |
$lxdebug->leave_sub(); |
| 459 | 458 |
} |
| 460 | 459 |
|
Auch abrufbar als: Unified diff
Merge von 641,653 aus unstable: Preisgruppen Teil 3
-Preisgruppen Kommentar entfernt, nach Perltidy formatiert
-Menue Berichte Preisgruppen verschoben, Hola raus & locales angepasst