Revision e7214232
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1563 | 1563 |
} |
| 1564 | 1564 |
$sth->finish; |
| 1565 | 1565 |
|
| 1566 |
# get adr |
|
| 1567 |
$query = qq|SELECT id, adr_description, adr_code |
|
| 1568 |
FROM adr|; |
|
| 1569 |
$sth = $dbh->prepare($query); |
|
| 1570 |
$sth->execute || $form->dberror($query); |
|
| 1571 |
|
|
| 1572 |
|
|
| 1573 |
$self->{ADR} = [];
|
|
| 1574 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 1575 |
push @{ $self->{ADR} }, $ref;
|
|
| 1576 |
} |
|
| 1577 |
$sth->finish; |
|
| 1578 | 1566 |
$dbh->disconnect; |
| 1579 | 1567 |
$main::lxdebug->leave_sub(); |
| 1580 | 1568 |
} |
Auch abrufbar als: Unified diff
ADR entfernt (kam aus Kundenprojekt und ist nicht fuer die allgemeine Lx-Office-Variante gedacht).