Revision 5ebbc846
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
SL/IC.pm | ||
---|---|---|
1519 | 1519 |
} |
1520 | 1520 |
$sth->finish; |
1521 | 1521 |
|
1522 |
if ($form->{id}) { |
|
1523 |
$query = qq|SELECT weightunit |
|
1524 |
FROM defaults|; |
|
1525 |
$sth = $dbh->prepare($query); |
|
1526 |
$sth->execute || $form->dberror($query); |
|
1527 |
|
|
1528 |
($form->{weightunit}) = $sth->fetchrow_array; |
|
1529 |
$sth->finish; |
|
1530 |
|
|
1531 |
} else { |
|
1532 |
$query = qq|SELECT weightunit, current_date |
|
1533 |
FROM defaults|; |
|
1522 |
if (!$form->{id}) { |
|
1523 |
$query = qq|SELECT current_date FROM defaults|; |
|
1534 | 1524 |
$sth = $dbh->prepare($query); |
1535 | 1525 |
$sth->execute || $form->dberror($query); |
1536 | 1526 |
|
1537 |
($form->{weightunit}, $form->{priceupdate}) = $sth->fetchrow_array;
|
|
1527 |
($form->{priceupdate}) = $sth->fetchrow_array; |
|
1538 | 1528 |
$sth->finish; |
1539 | 1529 |
} |
1540 | 1530 |
|
Auch abrufbar als: Unified diff
"Gewichtseinheit" entfernt.