Revision e807eba3
Von Jan Büren vor mehr als 15 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 61 | 61 |
if ($form->{no_assemblies}) {
|
| 62 | 62 |
$filter .= qq| AND (NOT COALESCE(assembly, 'f'))|; |
| 63 | 63 |
} |
| 64 |
if ($form->{assemblies}) {
|
|
| 65 |
$filter .= qq| AND assembly='t'|; # alles was assembly ist rausgeben erweiterung f?r bin/mozilla/wh.pl -> transfer_assembly_update_part |
|
| 66 |
# eigentlich m?chte ich diesen filter abbilden: |
|
| 67 |
# select distinct partnumber from parts inner join assembly on (parts.id = assembly.id) where assembly='t'; |
|
| 68 |
# und so common ist die anweisung gar nicht. wie w?re es mit auslagern in WH.pm? -> get_all_working_assemblies? jb 21.2.2009 |
|
| 69 |
} |
|
| 64 | 70 |
|
| 65 | 71 |
if ($form->{no_services}) {
|
| 66 | 72 |
$filter .= qq| AND (COALESCE(inventory_accno_id, 0) > 0)|; |
| ... | ... | |
| 363 | 369 |
my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
|
| 364 | 370 |
$base_path =~ s|[^/]+$||; |
| 365 | 371 |
$base_path =~ s|/$||; |
| 366 |
|
|
| 367 |
if (opendir $dir, $path) {
|
|
| 372 |
# wo kommt der wert f?r dir her? es wird doch gar nichts ?bergeben? fix f?r strict my $dir jb 21.2. |
|
| 373 |
if (opendir my $dir, $path) {
|
|
| 368 | 374 |
foreach my $file (sort { lc $a cmp lc $b } readdir $dir) {
|
| 369 | 375 |
next if (($file eq '.') || ($file eq '..')); |
| 370 | 376 |
|
| ... | ... | |
| 517 | 523 |
|
| 518 | 524 |
} elsif (ref $key eq 'ARRAY') {
|
| 519 | 525 |
my $found = 0; |
| 520 |
foreach $subkey (@{ $key }) {
|
|
| 526 |
foreach my $subkey (@{ $key }) {
|
|
| 521 | 527 |
if (defined $params->{$subkey}) {
|
| 522 | 528 |
$found = 1; |
| 523 | 529 |
last; |
| ... | ... | |
| 542 | 548 |
|
| 543 | 549 |
} elsif (ref $key eq 'ARRAY') {
|
| 544 | 550 |
my $found = 0; |
| 545 |
foreach $subkey (@{ $key }) {
|
|
| 551 |
foreach my $subkey (@{ $key }) {
|
|
| 546 | 552 |
if (exists $params->{$subkey}) {
|
| 547 | 553 |
$found = 1; |
| 548 | 554 |
last; |
Auch abrufbar als: Unified diff
Holger hat gut aufgepasst, beim Erzeugnis fertigen wurden alle Waren und Dienstleistungen angezeigt. Ich hatte vergessen die entsprechende Abfrage in Common.pm einzuchecken - Ferner ein paar 'my' für späteres strict spendiert (War beim Debug nützlich)