use strict;
use warnings;

use CGI;
use List::Util qw(max);

use lib "C:/Documents and Settings/Dawn/My Documents/fantasy/files/perl/lib";

use Base::HTML qw(start_html end_html line);
use Base::GetDir qw(data_directory);
use Base::CSV::Hash qw(get_hash);

my %movies;
my %movies_data = (
  'csv' => data_directory("Movies")."movies.csv",
  'headings' => [qw(id title first_year last_year wiki amg imdb tvcom flixster genre theme type own)],
);
get_hash(\%movies,\%movies_data);

my %text_inputs = (
  general => [qw(id title first_year last_year genre theme)],
  external_links => [qw(wiki amg imdb tvcom flixster)],
);

my %radio_lists = (
  type => [qw(film miniseries television_program)],
  own => [qw(blue-ray dvd vhs)],
);

sub title_length {
  my @lengths;
  for my $movie (keys %movies) {
     push @lengths, length($movies{$movie}{title});
  }
  my $length = max(@lengths);
  return $length;
}  

start_html('','','no');
line(3,qq(<form action="Movie.pl" method="get">));
for my $movie (sort keys %movies) {
  my $length = title_length();
  my $title = $movies{$movie}{title} ? $movies{$movie}{title} : $movies{$movie}{id};
  line(4,qq(<h2 class="title" style="clear:both;">$title</h2>));
  line(4,qq(<div>));
  for my $group (keys %text_inputs) {
    my $legend = ucfirst $group;
       $legend =~ s!_! !g;
    line(5,qq(<fieldset style="float:left;">));
    line(6,qq(<legend>$legend</legend>));
    for my $heading (@{$text_inputs{$group}}) {
      my $print_heading = $heading;
         $print_heading =~ s!_! !;
      my $label_id = $movies{$movie}{id}.'_'.$heading;
         $label_id =~ s! !_!g;
      line(6,qq(<div>));
      line(7,qq(<label class="block" for="$label_id">$print_heading:</label>));
      line(7,qq(<input id="$label_id" class="block" type="text" size="$length" value="$movies{$movie}{$heading}">));
      line(6,qq(</div>));
    }
    line(5,qq(</fieldset>));
  }
  line(5,qq(<div>));
  for my $key (keys %radio_lists) {
    line(6,qq(<fieldset>));
    line(7,qq(<legend>$key</legend>));
    for my $type (@{$radio_lists{$key}}) {
      my $checked = "";

#The following commented out code causes the script to hang up in my browser. It is supposed to print " checked" on the radio button with the same value as the movie has if any.
#      if ($movies{$movie}{$key} eq $type) {
#        $checked = " checked";
#     }

      my $print_heading = $type;
         $print_heading =~ s!_! !;
      my $label_id = $movies{$movie}{id}.'_'.$type;
         $label_id =~ s! !_!g;
      line(7,qq(<div>));
      line(8,qq(<input id="$label_id" type="radio" name="$key" value="$type"$checked >));
      line(8,qq(<label for="$label_id">$print_heading</label>));
      line(7,qq(</div>));
    line(6,qq(</fieldset>));
  }
  line(5,qq(</div>));
  line(4,qq(</div>));
}
line(4,qq(<div style="clear:both"><input type="submit" value="submit"></div>));
line(3,qq(</form>));
end_html();