From 3302d279442feb859579d6be6b8feb9adee34418 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sat, 12 Dec 2020 14:46:17 +0100
Subject: [PATCH] On the all-images event, hide images from hidden events.

---
 perl/Sesse/pr0n/Index.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index cb83a92..1be7b9e 100644
--- a/perl/Sesse/pr0n/Index.pm
+++ b/perl/Sesse/pr0n/Index.pm
@@ -58,7 +58,7 @@ sub handler {
 	
 	my $where;
 	if ($event eq '+all') {
-		$where = '';
+		$where = ' AND (event,vhost) IN ( SELECT event,vhost FROM events WHERE NOT hidden )';
 	} else {
 		$where = ' AND event=' . $dbh->quote($event);
 	}
-- 
2.39.2