Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 359 | 359 |
# calculate onhand |
| 360 | 360 |
if ($form->{"id_$i"}) {
|
| 361 | 361 |
my $part = IC->get_basic_part_info(id => $form->{"id_$i"});
|
| 362 |
my $onhand_color = 'color="#ff0000"' if $part->{onhand} < $part->{rop};
|
|
| 362 |
my $onhand_color = $part->{onhand} < $part->{rop} ? 'color="#ff0000"' : '';
|
|
| 363 | 363 |
push @ROW2, { value => sprintf "<b>%s</b> <font %s>%s %s</font>",
|
| 364 | 364 |
$locale->text('On Hand'),
|
| 365 | 365 |
$onhand_color, |
| ... | ... | |
| 1457 | 1457 |
$extension = 'xls'; |
| 1458 | 1458 |
} |
| 1459 | 1459 |
|
| 1460 |
my $email_extension = '_email' if (($form->{media} eq 'email') && (-f "$myconfig{templates}/$form->{formname}_email$form->{language}${printer_code}.${extension}"));
|
|
| 1460 |
my $email_extension = (($form->{media} eq 'email') && (-f "$myconfig{templates}/$form->{formname}_email$form->{language}${printer_code}.${extension}")) ? '_email' : '';
|
|
| 1461 | 1461 |
|
| 1462 | 1462 |
$form->{IN} = "$form->{formname}${email_extension}$form->{language}${printer_code}.${extension}";
|
| 1463 | 1463 |
|
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.