# returns the title in italics and the start year in parentheses. sub display_simple_movie { my ($movie) = @_; my $title = textify($movie->{'title'}); my $start = $movie->{'start year'} ? $movie->{'start year'} : undef; my $item; if ($movie->{'series'}) { my $group; my @list = keys %{$movie->{'series'}}; if (keys %{$movie->{'series'}} > 1) { ($group) = sort { $movie->{'series'}{$b} <=> $movie->{'series'}{$a} } keys %{$movie->{'series'}}; } else { $group = $list[0]; } $item = search_link($group, [$movie->{'title'}]); } elsif ($movie->{'seasons'}) { $item = search_link($movie->{'title'}); } else { $item = "$title"; } $item .= $start ? " ($start)" : undef; return $item; }