#!/usr/bin/perl -w #Volunteer.pl - Sign up sheet for Volunteers use strict; use DBI; use CGI; my $query = CGI::new(); my ($dbh, $sth); my $count=1;$sth = $dbh->prepare ("SELECT Day, Date, count(*) FROM Vol +unteer where Volunteer = 'T +BD' and Date > (CURRENT_DATE)-1 group by Date"); $sth->execute () or die "Couldn't execute statement: $DBI::errstr; sto +pped"; 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'), $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')), LINE 49 $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++, my $user = $query->remote_user(); } print $query->end_table; $query->center( $query->submit(-name=>'rows', -value=>'Submit')), $query->reset, $query->end_form(); $sth->finish (); $dbh->disconnect (); 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 Re: Re: Nothing show up in the browser
by mnlight
in thread Nothing show up in the browser
by mnlight
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |