Unbreak WebDAV listing with the new database structure.
authorSteinar H. Gunderson <sesse@debian.org>
Sun, 24 Jun 2007 18:48:46 +0000 (20:48 +0200)
committerSteinar H. Gunderson <sesse@debian.org>
Sun, 24 Jun 2007 18:48:46 +0000 (20:48 +0200)
perl/Sesse/pr0n/WebDAV.pm

index 49be2398aa4a5701c4e2ef720f63bb45af803b53..25b4408705c0c17bd9261a150454b52e693cfb01 100644 (file)
@@ -109,7 +109,7 @@ EOF
                                        dberror($r, "Couldn't get events");
                
                                while (my $ref = $q->fetchrow_hashref()) {
-                                       my $id = $ref->{'id'};
+                                       my $id = $ref->{'event'};
                                        my $name = $ref->{'name'};
                                
                                        $name =~ s/&/\&amp;/g;  # hack :-)