# creates a link to the Movies_by_series page. It is used in series_text, get_crossover, and elsewhere. sub search_link { my ($movie, $id) = @_; my $search = undef; my $texti = textify($movie); if (($series->{$movie} && $id) || ($movies->{$movie} && $id)) { $search = searchify($movie,$id); $texti = $movies->{$id->[0]} ? textify($id->[0]) : textify($movie); } elsif($series->{$movie} || $movies->{$movie}) { $search = searchify($movie); } my $text = "$texti"; my $root_link = get_root('link'); my $search_text = $search ? anchor($text, { 'href' => "$root_link/Movies/Movies_by_series.pl?series=$search" }) : $text; return $search_text; }