On Thursday 01 November 2001 02:06, you wrote: > I am attempting to use the DEFAULT parameter within a popup_menu to set the > displayed value to what I want based on the passed parameters in the URL. > I am using Mozilla 0.9.4 on a Linux machine, and hope that isn't the reason > I'm not seing what I want to see. Here is the code: > > ----CODE---- > #!/usr/bin/perl -w > > use CGI qw(:standard); > > print header, start_html("cgi_pm_test.cgi"); > print popup_menu( > -NAME => "baths", > -VALUES => ["0", "1", "1 1/2", "2"], > -LABELS => { > 0 => "?????", > 1 => "1", > "1 1/2" => "1 1/2", > 2 => "2", > } > -DEFAULT => 1, > ); > print end_html; > ----END CODE---- > Any thoughts out there? Thanx.
I'm no pro, but I was just doing what you want the other day, so here goes... You shouldn't use quotes - instead use apostrophe's, there is probably a reason why, but I can't remember. Also, you can't use a -LABELS part. Read the CGI.pm docs to see what you can use with functions. Your code should look like this: #!/usr/bin/perl -w use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; # use for debugging - delete when finished print header, start_html("cgi_pm_test.cgi"); print start_form(); print popup_menu( -name=>'baths', -value=>['0', '1', '1 1/2', '2'] -default=>'1' ); print end_form(); print end_html(); If you want to change the values depending on what is passed, then that is a little more complicated. You would have to use the param() function to get the passed value and set a variable to the default value i.e. ....... -default=>$x ....... Hope this helps, Gerry. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]