Revision bc6ceee1
Von Philip Reetz vor etwa 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 80 | 80 |
|
| 81 | 81 |
# get taxkeys and description |
| 82 | 82 |
$query = qq?SELECT id, taxkey,id||'--'||taxkey AS tax, taxdescription |
| 83 |
FROM tax?; |
|
| 83 |
FROM tax ORDER BY taxkey?;
|
|
| 84 | 84 |
$sth = $dbh->prepare($query); |
| 85 | 85 |
$sth->execute || $form->dberror($query); |
| 86 |
|
|
| 87 |
$ref = $sth->fetchrow_hashref(NAME_lc);
|
|
| 88 |
|
|
| 86 |
|
|
| 87 |
$form->{TAXKEY} = [];
|
|
| 88 |
|
|
| 89 | 89 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 90 | 90 |
push @{ $form->{TAXKEY} }, $ref;
|
| 91 | 91 |
} |
Auch abrufbar als: Unified diff
Speichern von Konten ein wenig debugged