mnlight has asked for the wisdom of the Perl Monks concerning the following question:
print $query->start_form('POST','./Signup.pl'); print $query->radio_group( -name =>'Parent', -value =>["Father", "Mother"], -default=>["NO DEFAULT"], -linebreak=>'true', -columnheader=>'Parent'); print "<TABLE BORDER='1' CELLSPACING='1' CELLPADDING='7'>"; print "<TR>"; print "<TH WIDTH='10%' VALIGN='TOP' BGCOLOR='#9933FF'>"; print "<FONT SIZE='2' COLOR='#FFFFFF'>Volunteer</TH>"; print "<TH WIDTH='10%' VALIGN='TOP' BGCOLOR='#9933FF' align='center'>" +; print "<FONT SIZE='2' COLOR='#FFFFFF'>Day</TH>"; print "<TH WIDTH='10%' VALIGN='TOP' BGCOLOR='#9933FF' align='center'>" +; print "<FONT SIZE='2' COLOR='#FFFFFF'>Date</TH>"; print "<TH WIDTH='10%' VALIGN='TOP' BGCOLOR='#9933FF' align='center'>" +; print "<FONT SIZE='2' COLOR='#FFFFFF'>Number</TH>"; print "</TR>"; while (my @val = $sth->fetchrow_array ()) { print "<TR>"; print "<TD WIDTH='10%' VALIGN='TOP' ALIGN='center'BGCOLOR='#99FF99' +COLOR='#FFFFFF'>"; print $query->checkbox_group(-name=>'choice', -values=>'');</TD>; #print "<A HREF=./Signup.pl?$val[2]&$val[3]></TD>"; print "<TD WIDTH='10%' VALIGN='TOP' BGCOLOR='#99FF99' align='center' +>"; print "<FONT SIZE='2' COLOR='#9933FF'>$val[0]</TD>"; print "<TD WIDTH='10%' VALIGN='TOP' BGCOLOR='#99FF99' align='center' +>"; print "<FONT SIZE='2' COLOR='#9933FF'>$val[1]</TD>"; print "<TD WIDTH='10%' VALIGN='TOP' BGCOLOR='#99FF99' align='center' +>"; print "<FONT SIZE='2' COLOR='#9933FF'>$val[2]</TD>"; print "</TR>"; } print "</TABLE>"; print "<p>"; print $query->submit(-name=>'rows', -value=>'Submit'); print " "; print $query->reset; print $query->end_form();
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Putting form names into a tmp file to be used by a new script
by grep (Monsignor) on Dec 24, 2001 at 12:14 UTC |