Re^2: 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";

}
[download]

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 (Prior) 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/\?.*//;` [download] gets thrown away? You will avoid a lot of problems if you start your programs with `use strict; use warnings;` [download] And why do you persist in using two names when it is clear that both are the same clueless person?	[reply] [d/l] [select]
Re^4: How to call sub routine onclicking submit button by different site selection from the popup menu using perl cgi script ? by Anonymous Monk on Apr 04, 2017 at 15:13 UTC
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.	[reply]
A reply falls below the community's threshold of quality. You may see it by logging in.