my @big_images = $opt{big} ? @{$opt{big}} : ();
for my $cross_file (@cross_files) {
my $text = textify($cross_file);
my $class = 'svg_group';
$class .= ' right' unless grep(/$text/i, @big_images);
}
####
my $magic = crossover_magic( big => ['Smart'] );
##
##
sub crossover_magic {
my %opt = @_;
our $magic;
my $open_directory = file_directory('Fandom/Crossovers', 'imagesd');
my $link_directory = file_directory('Fandom/Crossovers', 'images');
my @cross_files = file_list($open_directory);
my @big_images = $opt{big} ? @{$opt{big}} : ();
for my $cross_file (@cross_files) {
my $link = "$link_directory/$cross_file";
my $text = textify($cross_file);
my $class = 'svg_group';
$class .= ' right' unless grep(/$text/i, @big_images);
my $title = "$text chart";
$magic->{$text} = sub {
figure(6, sub {
line(7, anchor( '', { 'href' => $link, 'target' => 'new' }));
line(7, object( '', { 'data' => $link, 'type' => 'image/svg+xml'}));
}, { 'class' => "$class", 'title' => $title });
};
}
my $series = series('data', 'me');
my $series_list = movie_option('series');
for my $item (sort keys %$series_list) {
my $magic_search;
my $magic_text;
if ($series->{$item}) {
for my $program (@{$series->{$item}->{programs}}) {
my $magic_key = $item eq $program ? "$program-single" : $program;
$magic_text = textify($program);
$magic_search = searchify($item, [$program]);
$magic->{$magic_key} = qq(A|href="../../Movies/Movies_by_series.pl?series=$magic_search">);
}
}
$magic_text = $item eq 'Scorpion' ? '</Scorpion>' :
$item eq 'EUReKA' ? 'EURSUPKA' :
textify($item);
$magic_search = searchify($item);
$magic->{$item} = qq(A|href="../../Movies/Movies_by_series.pl?series=$magic_search">);
}
return $magic;
}