[svn:perlfaq] r7832 - in perlfaq/trunk: . bin

Author: comdog
Date: Wed Sep 13 09:36:16 2006
New Revision: 7832

Modified:
   perlfaq/trunk/bin/perlfaq_toc.pl
   perlfaq/trunk/perlfaq.pod
   perlfaq/trunk/perlfaq9.pod

Log:
* perlfaq9 - I make a pop-up menu in HTML? 
	+ changed question to "I make an HTML pop-up menu with Perl?"
	+ updated the table of contents in perlfaq.pod

*  bin/perlfaq_toc.pl - updated the perlfaq.pod preamble for
Rafael's change (the commits before this one)



Modified: perlfaq/trunk/bin/perlfaq_toc.pl
==============================================================================
--- perlfaq/trunk/bin/perlfaq_toc.pl	(original)
+++ perlfaq/trunk/bin/perlfaq_toc.pl	Wed Sep 13 09:36:16 2006
@@ -67,15 +67,15 @@
 of the latest perlfaq to comp.lang.perl.misc.
 
 You can view the source tree at
-http://cvs.perl.org/viewcvs/cvs-public/perlfaq/ (which is outside of the
-main Perl source tree).  The CVS repository notes all changes to the FAQ
+https://svn.perl.org/modules/perlfaq/trunk/ (which is outside of the
+main Perl source tree).  The SVN repository notes all changes to the FAQ
 and holds the latest version of the working documents and may vary
 significantly from the version distributed with the latest version of
 Perl. Check the repository before sending your corrections.
 
 =head2 How to contribute to the perlfaq
 
-You can mail corrections, additions, and suggestions to 
+You can mail corrections, additions, and suggestions to
 C<< <perlfaq-workers AT perl DOT org> >>. The perlfaq volunteers use this
 address to coordinate their efforts and track the perlfaq development.
 They appreciate your contributions to the FAQ but do not have time to

Modified: perlfaq/trunk/perlfaq.pod
==============================================================================
--- perlfaq/trunk/perlfaq.pod	(original)
+++ perlfaq/trunk/perlfaq.pod	Wed Sep 13 09:36:16 2006
@@ -458,7 +458,7 @@
 
 =item *
 
-Does Perl have a Year 2000 problem?  Is Perl Y2K compliant?
+Does Perl have a Year 2000 problem? Is Perl Y2K compliant?
 
 =item *
 
@@ -1323,7 +1323,7 @@
 
 =item *
 
-How do I make a pop-up menu in HTML?
+How do I make an HTML pop-up menu with Perl?
 
 =item *
 

Modified: perlfaq/trunk/perlfaq9.pod
==============================================================================
--- perlfaq/trunk/perlfaq9.pod	(original)
+++ perlfaq/trunk/perlfaq9.pod	Wed Sep 13 09:36:16 2006
@@ -186,11 +186,29 @@
 See the section in the CGI.pm documentation on file uploads for code
 examples and details.
 
-=head2 How do I make a pop-up menu in HTML?
+=head2 How do I make an HTML pop-up menu with Perl?
+
+(contributed by brian d foy)
+
+The CGI.pm module (which comes with Perl) has functions to create
+the HTML form widgets. See the CGI.pm documentation for more 
+examples.
+
+	use CGI qw/:standard/;
+	print header,
+		start_html('Favorite Animals'),
+
+		start_form,
+			"What's your favorite animal? ",
+        popup_menu(
+        	-name   => 'animal',
+			-values => [ qw( Llama Alpaca Camel Ram ) ]
+			),
+        submit,
+ 
+ 		end_form,
+        end_html;
 
-Use the B<< <SELECT> >> and B<< <OPTION> >> tags.  The CGI.pm
-module (available from CPAN) supports this widget, as well as many
-others, including some that it cleverly synthesizes on its own.
 
 =head2 How do I fetch an HTML file?