Revision 44151aad
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/AM.pm | ||
|---|---|---|
| 1128 | 1128 |
(SELECT sortkey FROM $table WHERE id = ?) AS sortkey2|; |
| 1129 | 1129 |
my @values = ($form->{"id1"}, $form->{"id2"});
|
| 1130 | 1130 |
my @sortkeys = selectrow_query($form, $dbh, $query, @values); |
| 1131 |
$main::lxdebug->dump(0, "v", \@values); |
|
| 1132 |
$main::lxdebug->dump(0, "s", \@sortkeys); |
|
| 1133 | 1131 |
|
| 1134 | 1132 |
$query = qq|UPDATE $table SET sortkey = ? WHERE id = ?|; |
| 1135 | 1133 |
my $sth = $dbh->prepare($query); |
Auch abrufbar als: Unified diff
Debugcode entfernt.