From 036bea03fd30a282ef49a6c16816c59a6480e196 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Thu, 15 Jun 2017 21:28:20 +0200
Subject: Handler::Chars: Hide instances block when hidden by spoiler settings

https://vndb.org/t950.339
---
 lib/VNDB/Handler/Chars.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/VNDB/Handler/Chars.pm')

diff --git a/lib/VNDB/Handler/Chars.pm b/lib/VNDB/Handler/Chars.pm
index afc467d4..9e6a4a86 100644
--- a/lib/VNDB/Handler/Chars.pm
+++ b/lib/VNDB/Handler/Chars.pm
@@ -6,6 +6,7 @@ use warnings;
 use TUWF ':html', 'uri_escape';
 use Exporter 'import';
 use VNDB::Func;
+use List::Util 'min';
 
 our @EXPORT = ('charOps', 'charTable', 'charBrowseTable');
 
@@ -88,9 +89,11 @@ sub page {
     push @$inst, $self->dbCharGet(id => $r->{main}, what => 'extended traits vns seiyuu')->[0];
   }
   if(@$inst) {
-    div class => 'mainbox';
+    my $spoil = sub { local $_=shift; !$r->{main} ? $_->{main_spoil} : $_->{main_spoil} > $r->{main_spoil} ? $_->{main_spoil} : $r->{main_spoil} };
+    my $minspoil = min map $isspoil->($_), @$inst;
+    div class => 'mainbox '.charspoil($minspoil);
      h1 'Other instances';
-     $self->charTable($_, 1, $_ != $inst->[0], 0, !$r->{main} ? $_->{main_spoil} : $_->{main_spoil} > $r->{main_spoil} ? $_->{main_spoil} : $r->{main_spoil}) for @$inst;
+     $self->charTable($_, 1, $_ != $inst->[0], 0, $isspoil->($_)) for @$inst;
     end;
   }
 
-- 
cgit v1.2.3