here is the whole script I am getting a syntax error at line 46 near end_Tr; I am just seeing it!
#!/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)
|