From bbf380ed0904f3e9705560736d0ce6af743a8df8 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Tue, 3 Jul 2007 13:46:41 +0200 Subject: [PATCH] Fix the wizard for the new SQL structure. --- perl/Sesse/pr0n/Wizard.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/Sesse/pr0n/Wizard.pm b/perl/Sesse/pr0n/Wizard.pm index 929b7db..a71148a 100644 --- a/perl/Sesse/pr0n/Wizard.pm +++ b/perl/Sesse/pr0n/Wizard.pm @@ -19,7 +19,7 @@ sub handler { } # Find events - my $q = $dbh->prepare('SELECT id,date,name FROM events e JOIN last_picture_cache c ON e.id=c.event WHERE vhost=? ORDER BY last_picture DESC') + my $q = $dbh->prepare('SELECT event,date,name FROM events e JOIN last_picture_cache c USING (vhost,event) WHERE vhost=? ORDER BY last_picture DESC') or dberror($r, "Couldn't list events"); $q->execute($r->get_server_name) or dberror($r, "Couldn't get events"); @@ -28,7 +28,7 @@ sub handler { $r->print(Sesse::pr0n::Templates::fetch_template($r, 'wizard-header')); while (my $ref = $q->fetchrow_hashref()) { - my $id = $ref->{'id'}; + my $id = $ref->{'event'}; my $date = $ref->{'date'}; my $name = $ref->{'name'}; -- 2.39.2