Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ?

by perlanswers (Initiate)
on Apr 04, 2017 at 07:18 UTC ( #1186953=note: print w/replies, xml ) Need Help??


in reply to Re: How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ?
in thread How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ?

I had coded ad like below
use CGI qw/:all/; use CGI ':cgi-lib'; use CGI::Carp qw(fatalsToBrowser); use DBI; ### Global Variables $GLOBAL{'CURRENT_PAGE'} = self_url; $GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'}; $GLOBAL{'HOME'} =~s/\?.*//; my %GLOBAL =(); $GLOBAL{'CONTACT_SUPPORT'} = 'filldata@gmail.com'; $GLOBAL{'CURRENT_PAGE'} = self_url; $GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'}; $GLOBAL{'HOME'} =~s/\?.*//; print start_form(-method=>'GET'); print " <br> &nbsp<B>Site</B> &nbsp"; $site_selected="place"; print popup_menu( -name => 'popup1', -values =>['place','place1','place2','place3'], -default => 'value2' -submit => 'submit' ); print "&nbsp &nbsp &nbsp &nbsp &nbsp "; print submit(-name=>'submit',-values=>'submit'); print end_form; $site_selected = $CGI_PARAM{'popup1'}; if($site_selected =~ /^\s*$/) { $site_selected="place"; }
  • Comment on Re^2: How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ?
  • Download Code

Replies are listed 'Best First'.
Re^3: How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ?
by huck (Parson) on Apr 04, 2017 at 07:47 UTC

    just where do you expect $CGI_PARAM to come from? See this Re: submit button fails to pass the values using perl cgi?, i already showed you the answer. Pay particular attention to the my $ispopup1=param('popup1'); line.

    and do you realize that after you say my %GLOBAL =(); all the stuff before it

    $GLOBAL{'CURRENT_PAGE'} = self_url; $GLOBAL{'HOME'} = $GLOBAL{'CURRENT_PAGE'}; $GLOBAL{'HOME'} =~s/\?.*//;
    gets thrown away?

    You will avoid a lot of problems if you start your programs with

    use strict; use warnings;

    And why do you persist in using two names when it is clear that both are the same clueless person?

      It's amusing how he only uses the bad parts of CGI.pm, and he has some garbage from Matt's Script Archive to handle the params.
      A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1186953]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (2)
As of 2021-01-26 08:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?