Fix more SQL typos.

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 9d23bb9668af0860e186f0a25ce3a2d1cb7dd559..cfaa0ec097da601d0982883b95d0ce8b2bac0425 100644 (file)
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -466,7 +466,7 @@ EOF
                                        
                                $dbh->do('INSERT INTO images (id,event,uploadedby,takenby,filename) VALUES (?,?,?,?,?);',
                                        undef, $newid, $event, $user, $takenby, $filename);
                                        
                                $dbh->do('INSERT INTO images (id,event,uploadedby,takenby,filename) VALUES (?,?,?,?,?);',
                                        undef, $newid, $event, $user, $takenby, $filename);

-                               $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE event=?',
+                               $dbh->do('UPDATE events SET last_update=CURRENT_TIMESTAMP WHERE id=?',

                                        undef, $event);
 
                                # Now save the file to disk
                                        undef, $event);
 
                                # Now save the file to disk