X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=perl%2FSesse%2Fpr0n%2FWebDAV.pm;h=aecd9fdae7aa5ca713f4e87083556605c035b516;hb=408224e33918eb1837057c790798c9b3083b3e6a;hp=151370c99ad9f164b5d7c63df99f3a986a9d00af;hpb=9ea918ef3d3c20a1bbcea72085435af193301998;p=pr0n

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index 151370c..aecd9fd 100644
--- 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('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
@@ -500,7 +500,7 @@ EOF
 			if ($@) {
 				# Some error occurred, rollback and bomb out
 				$dbh->rollback;
-				dberror($r, "Transaction aborted because $@");
+				error($r, "Transaction aborted because $@");
 				unlink($fname);
 			}
 		}
@@ -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);