From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 12 Dec 2020 13:46:17 +0000 (+0100)
Subject: On the all-images event, hide images from hidden events.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=3302d279442feb859579d6be6b8feb9adee34418

On the all-images event, hide images from hidden events.
---

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);
 	}