Staff::Page: Hide casted characters if VN<->Char relation does not match

This often happens when a character is split into different instances.
The relation is then also removed from the VN page, so this fixes
consistency. It doesn't fix the fact that the VN entry needs to be
updated, some way to alert or find such problems might help.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/VNWeb/Staff/Page.pm b/lib/VNWeb/Staff/Page.pm
index 4bb55e4a..223d6910 100644
--- a/lib/VNWeb/Staff/Page.pm
+++ b/lib/VNWeb/Staff/Page.pm
@@ -121,7 +121,7 @@ sub _cast_ {
     my($s) = @_;
     my %alias = map +($_->{aid}, $_), $s->{alias}->@*;
 
-    my $cast = tuwf->dbAlli(q{
+    my $cast = [ grep defined $_->{spoil}, tuwf->dbAlli(q{
         SELECT vs.aid, v.id, v.c_released, v.title, v.alttitle, c.id AS cid, c.name AS c_name, c.original AS c_original, vs.note,
                (SELECT MIN(cv.spoil) FROM chars_vns cv WHERE cv.id = c.id AND cv.vid = v.id) AS spoil
           FROM vn_seiyuu vs
@@ -131,7 +131,7 @@ sub _cast_ {
            AND NOT v.hidden
            AND NOT c.hidden
          ORDER BY v.c_released ASC, v.title ASC
-    });
+    })->@* ];
     return if !@$cast;
     enrich_ulists_widget $cast;