Revision 4b1c7617
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
|
qq|ORDER BY sortkey | . ($dir eq "down" ? "ASC" : "DESC") . qq| LIMIT 1|;
|
||
|
my ($sortkey_2) = selectrow_query($form, $dbh, $query, $sortkey_1, $unit_type);
|
||
|
|
||
|
$main::lxdebug->message(0, "name1 $name_1 dir $dir sk1 $sortkey_1 sk2 $sortkey_2");
|
||
|
|
||
|
if (defined($sortkey_1)) {
|
||
|
$query = qq|SELECT name FROM units WHERE sortkey = ${sortkey_2}|;
|
||
|
my ($name_2) = selectrow_query($form, $dbh, $query);
|
||
Auch abrufbar als: Unified diff
Debugmeldungen