Revision bc6ceee1
Von Philip Reetz vor mehr als 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
|
||
|
# get taxkeys and description
|
||
|
$query = qq?SELECT id, taxkey,id||'--'||taxkey AS tax, taxdescription
|
||
|
FROM tax?;
|
||
|
FROM tax ORDER BY taxkey?;
|
||
|
$sth = $dbh->prepare($query);
|
||
|
$sth->execute || $form->dberror($query);
|
||
|
|
||
|
$ref = $sth->fetchrow_hashref(NAME_lc);
|
||
|
|
||
|
|
||
|
$form->{TAXKEY} = [];
|
||
|
|
||
|
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
||
|
push @{ $form->{TAXKEY} }, $ref;
|
||
|
}
|
||
| bin/mozilla/am.pl | ||
|---|---|---|
|
$form->{description} =~ s/\"/"/g;
|
||
|
|
||
|
if (@{ $form->{TAXKEY} }) {
|
||
|
$form->{selecttaxkey} = "<option value=0>Keine Steuer 0%\n";
|
||
|
foreach $item (@{ $form->{TAXKEY} }) {
|
||
|
if ($item->{tax} == $form->{tax}) {
|
||
|
$form->{selecttaxkey} .=
|
||
Auch abrufbar als: Unified diff
Speichern von Konten ein wenig debugged