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 |
} |
| bin/mozilla/am.pl | ||
|---|---|---|
| 94 | 94 |
$form->{description} =~ s/\"/"/g;
|
| 95 | 95 |
|
| 96 | 96 |
if (@{ $form->{TAXKEY} }) {
|
| 97 |
$form->{selecttaxkey} = "<option value=0>Keine Steuer 0%\n";
|
|
| 98 | 97 |
foreach $item (@{ $form->{TAXKEY} }) {
|
| 99 | 98 |
if ($item->{tax} == $form->{tax}) {
|
| 100 | 99 |
$form->{selecttaxkey} .=
|
Auch abrufbar als: Unified diff
Speichern von Konten ein wenig debugged