Revision 8688e71e
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 37 | 37 |
use CGI::Ajax; |
| 38 | 38 |
use List::Util qw(max first); |
| 39 | 39 |
|
| 40 |
use SL::CVar; |
|
| 40 | 41 |
use SL::Common; |
| 41 | 42 |
use SL::CT; |
| 42 | 43 |
use SL::IC; |
| ... | ... | |
| 1412 | 1413 |
$form->{language} = "_" . $form->{language};
|
| 1413 | 1414 |
} |
| 1414 | 1415 |
|
| 1415 |
# Format dates. |
|
| 1416 |
# Format dates and numbers.
|
|
| 1416 | 1417 |
format_dates($output_dateformat, $output_longdates, |
| 1417 | 1418 |
qw(invdate orddate quodate pldate duedate reqdate transdate |
| 1418 | 1419 |
shippingdate deliverydate validitydate paymentdate |
| ... | ... | |
| 1448 | 1449 |
grep({ /^qty_\d+$/
|
| 1449 | 1450 |
} keys(%{$form})));
|
| 1450 | 1451 |
|
| 1452 |
my ($cvar_date_fields, $cvar_number_fields) = CVar->get_field_format_list('module' => 'CT', 'prefix' => 'vc_');
|
|
| 1453 |
|
|
| 1454 |
if (scalar @{ $cvar_date_fields }) {
|
|
| 1455 |
format_dates($output_dateformat, $output_longdates, @{ $cvar_date_fields });
|
|
| 1456 |
} |
|
| 1457 |
|
|
| 1458 |
while (my ($precision, $field_list) = each %{ $cvar_number_fields }) {
|
|
| 1459 |
reformat_numbers($output_numberformat, $precision, @{ $field_list });
|
|
| 1460 |
} |
|
| 1461 |
|
|
| 1451 | 1462 |
$form->{IN} = "$form->{formname}$form->{language}${printer_code}.html";
|
| 1452 | 1463 |
if ($form->{format} eq 'postscript') {
|
| 1453 | 1464 |
$form->{postscript} = 1;
|
Auch abrufbar als: Unified diff
Implementation des Features "Benutzerdefinierte Variablen für Kunden- und Lieferantenstammdaten".