Fix another typo, preventing uploads.

[pr0n] / perl / Sesse / pr0n / WebDAV.pm

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 151370c99ad9f164b5d7c63df99f3a986a9d00af..9d23bb9668af0860e186f0a25ce3a2d1cb7dd559 100644 (file)
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -580,7 +580,7 @@ EOF
                $dbh->do('DELETE FROM images WHERE event=? AND filename=?;',
                        undef, $event, $filename)
                        or dberror($r, "Couldn't remove file");
-               $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=?',
+               $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE id=?',
                        undef, $event)
                        or dberror($r, "Couldn't invalidate cache");
                $r->status(200);