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