# store subparent for each parent
my %parent_hash = ( 'Father' => 'Mother',
                    'Mother' => 'Father' );

if ( @volunteer_date ){
if (exists $parent_hash{$parent}) {
  my $sub_parent = $parent_hash{$parent};

  for $col ( $parent, $sub_parent ) {
      $sql = "select $col from Roster where User=?";
      $sth = $dbh->selectcol_arrayref( $sql, undef, $user );
    if ( @$sth && $sth->[0] ) {  # any rows returned?
       $name = $sth->[0];  # take first one
      last;
    }
  }
}

print $query->header(),
      $query->start_html (-title=>'Volunteer List Form',
                          -link=>'#FFFFFF',
                          -vlink=>'#99FF99',
                          -alink=>'black',
                          -style=>{'-src'=>'/CSS/stylesheet.css'}),

$query->h1({-align=>'center'},"THANK YOU FOR SIGNING UP $name");


#seperates dates into signed up and duplicate signups.
foreach $date ( @volunteer_date ) {

        $sql = "select distinct Volunteer from Volunteer where Volunteer =? and Date =?";
        my $sth = $dbh->selectcol_arrayref( $sql, undef, $name, $date );
           if( @$sth ) {
                push @dupe_dates, $date;
           } #end if statement
           else{
                push @signup_dates, $date;
           } #end else statement
} #end foreach loop

print $query->start_form('POST', './UnSignup.pl');

#process the signup dates.
foreach $signup_date ( @signup_dates ) {

        my $sql = "select max(Number) from Volunteer where Date =? and Volunteer = 'TBD'";
        my $number = $dbh->selectcol_arrayref($sql, undef, $date);

        $sql = "update Volunteer set Volunteer = '$name' WHERE Date = '$date' and Number = $number->[0]";
        $sth = $dbh->prepare($sql) || die "prepare: $$sql: $DBI::errstr";
        $sth->execute || die "execute: $sql->[0]: $DBI::errstr";
print $query->start_table({-align=>'center'}),
      $query->start_Tr({bgcolor=>'#9933FF'}),
      $query->start_th({-align=>'center', -colspan=>5}), $query->strong('VOLUNTEER'),
      $query->start_th({-align=>'center', -colspan=>5}), $query->strong('DATE'),
      $query->start_th({-align=>'center', -colspan=>5}), $query->strong('UNDO'),
      $query->end_Tr;
      $query->start_Tr({bgcolor=>'#99FF99'}),
      $query->start_td({-align=>'center', -colspan=>5}), $query->strong($name),
      $query->start_td({-align=>'center', -colspan=>5}), $query->strong($signup_date),
      $query->start_td({-align=>'center', -colspan=>5}),  $query->checkbox(-name=>"remove",-value=>$signup_date),
      $query->end_Tr;
print $query->end_table;

} #end foreach loop

#display the duplicate dates.
foreach $dupe_date ( @dupe_dates ) {
print $query->h1({-align=>'center'}, "You are already signed up for this date: $dupe_date");
} #end foreach loop

print $query->center(
      $query->submit(-name=>'rows',
                       -value=>'Submit'),
      $query->reset);
print $query->end_form();



$sth->finish ();
$dbh->disconnect ();

} #end if volunteer_date check
else{
        print $query->h1({-align=>'center'}, "You did not select a date");

} #end else volunteer_date check


print $query->h2({-align=>'center'},
      $query->a({href=>'../../index.html'}, 'HOME'), '&nbsp',
      $query->a({href=>'../../Schedule.html'}, 'SCHEDULE'), '&nbsp',
      $query->a({href=>'Roster.pl'}, 'ROSTER'), '&nbsp',
      $query->a({href=>'../../News.html'}, 'NEWS'), '&nbsp',
      $query->a({href=>'../../Pictures.html'}, 'PICTURES'), '&nbsp',
      $query->a({href=>'UnSignup.pl'}, 'UNDO SIGNUP'), '&nbsp',
      $query->a({href=>'../BobSchedule.pl'}, 'BOBS SCHEDULE'), '&nbsp',);
print $query->end_html;

print $query->h3({-align=>'center'},
      $query->a({href=>'Volunteer.pl'}, 'BACK'), '&nbsp',);
print $query->end_html;