#!/usr/bin/perl -w
#Volunteer.pl - Sign up sheet for Volunteers

use strict;
use DBI;
use CGI;

my $query = CGI::new();


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

print $query->h1({-align=>'center'},'1990 MNLIGHTNING SIGNUP SHEET');

print $query->h2({-align=>'center'},'To sign up for a time simply select the botton indicating if you are the players Mother or Fath
er. Only Parents can sign up.  Other volunteers must sign up as the parents so we know who is responsible to work those days.
Select the dates you are available to work. Submit the information and verify the choices are correct.');

print $query->start_form('POST', './Signup.pl');
print $query->center(
      $query->radio_group( -name =>'Parent',
                           -value =>['Mother', 'Father'],
                           -default=>'Mother',
                           -linebreak=>'true')),

      $query->start_table({-align=>'center'}),
      $query->start_Tr({-align=>'center', bgcolor=>'#9933FF'}),
      $query->start_th({-align=>'center'}), strong('VOLUNTEER'),
      $query->start_th({-align=>'center'}), strong('DAY'),
      $query->start_th({-align=>'center'}), strong('DATE'),
      $query->start_th({-align=>'center'}), strong('NEEDED'),
      $query->end_Tr;

while (my @val = $sth->fetchrow_array ())
{

print $query->start_Tr({-align=>'center', bgcolor=>'#99FF99'}),
      $query->start_td({-align=>'left'}), $query->checkbox(-name=>"Volunteer", -value=>$val[1]),
      $query->start_td({-align=>'center'}), $val[0],
      $query->start_td({-align=>'center'}), $val[1],
      $query->start_td({-align=>'center'}), $val[2],
      $query->end_Tr;
$count++,
}
print $query->end_table;

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

print $query->h2({-align=>'center'},
      $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=>'../BobSchedule.pl'}, 'BOBS SCHEDULE'), '&nbsp',
                );
print $query->end_html;
exit(0)