#!/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 sele +ct the botton indicating if you are the players Mother or Fath er. Only Parents can sign up. Other volunteers must sign up as the pa +rents 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=>"Vol +unteer", -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'), ' ', $query->a({href=>'Roster.pl'}, 'ROSTER'), ' ', $query->a({href=>'../News.html'}, 'NEWS'), ' ', $query->a({href=>'../Pictures.html'}, 'PICTURES'), ' ', $query->a({href=>'../BobSchedule.pl'}, 'BOBS SCHEDULE'), ' ' +, ); print $query->end_html; exit(0)
In reply to Nothing show up in the browser by mnlight
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |