Revision 9e89e92f
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
$sth = $dbh->prepare($query);
|
||
|
$sth->execute || $form->dberror($query);
|
||
|
|
||
|
$form->{"ALL"} = [];
|
||
|
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
||
|
push @{ $form->{ALL} }, $ref;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Arrays in $form initialisieren, bevor sie benutzt werden.