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

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

diff --git a/perl/Sesse/pr0n/Index.pm b/perl/Sesse/pr0n/Index.pm
index cb83a9252933dcb9c19dae44de0b13666c835b7b..1be7b9e63e2a1ccf436519561005f5281432c2eb 100644 (file)
--- 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);
        }