Revision 58b14f96
Von Stephan Köhler vor fast 19 Jahren hinzugefügt
SL/PE.pm | ||
---|---|---|
332 | 332 |
WHERE $where |
333 | 333 |
ORDER BY $sortorder|; |
334 | 334 |
} |
335 |
print STDERR "asdfasdf-$query\n"; |
|
336 | 335 |
|
337 | 336 |
$sth = $dbh->prepare($query); |
338 | 337 |
$sth->execute || $form->dberror($query); |
... | ... | |
385 | 384 |
# |
386 | 385 |
sub get_pricegroup { |
387 | 386 |
$main::lxdebug->enter_sub(); |
388 |
print STDERR "PE.pm-get_pricegroup\n"; |
|
387 |
|
|
389 | 388 |
my ($self, $myconfig, $form) = @_; |
390 | 389 |
|
391 | 390 |
# connect to database |
... | ... | |
416 | 415 |
$sth->finish; |
417 | 416 |
|
418 | 417 |
$dbh->disconnect; |
419 |
#print (STDERR " ", Dumper($form)); |
|
418 |
|
|
420 | 419 |
$main::lxdebug->leave_sub(); |
421 | 420 |
} |
422 | 421 |
|
Auch abrufbar als: Unified diff
Preisgruppen Kommentar entfernt, nach Perltidy formatiert