Revision 8d316ac5
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 33 | 33 |
#$locale->text('ea');
|
| 34 | 34 |
|
| 35 | 35 |
use POSIX qw(strftime); |
| 36 |
use List::Util qw(max); |
|
| 36 | 37 |
|
| 37 | 38 |
use SL::IC; |
| 38 | 39 |
use SL::ReportGenerator; |
| ... | ... | |
| 1463 | 1464 |
$form->{eur} = $eur; # config dumps into namespace - yuck
|
| 1464 | 1465 |
$form->{pg_keys} = sub { "$_[0]->{partsgroup}--$_[0]->{id}" };
|
| 1465 | 1466 |
$form->{description_area} = ($form->{rows} = $form->numtextrows($form->{description}, 40)) > 1;
|
| 1467 |
$form->{notes_rows} = max 4, $form->numtextrows($form->{notes}, 40), $form->numtextrows($form->{formel}, 40);
|
|
| 1466 | 1468 |
|
| 1467 | 1469 |
map { $form->{"is_$_"} = ($form->{item} eq $_) } qw(part service assembly);
|
| 1468 | 1470 |
map { $form->{$_} =~ s/"/"/g; } qw(unit);
|
| ... | ... | |
| 1470 | 1472 |
$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS',
|
| 1471 | 1473 |
'partsgroup' => 'all_partsgroup'); |
| 1472 | 1474 |
|
| 1473 |
$rows = 4 if $rows = $form->numtextrows($form->{notes}, 40) < 2;
|
|
| 1474 |
$form->{notes_rows} = $rows;
|
|
| 1475 |
|
|
| 1476 | 1475 |
IC->retrieve_buchungsgruppen(\%myconfig, $form); |
| 1477 | 1476 |
@{ $form->{BUCHUNGSGRUPPEN} } = grep { $_->{id} eq $form->{buchungsgruppen_id} || ($form->{id} && $form->{orphaned}) || !$form->{id} } @{ $form->{BUCHUNGSGRUPPEN} };
|
| 1478 | 1477 |
|
Auch abrufbar als: Unified diff
Aenderung Darstellung Warendialog:
Formel und Bemerkung haben jetzt dieselbe Hoehe, und werden nicht kleiner gemacht als 4.