Help! Trying to retrieve user radiobutton selection and send to link - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Help! Trying to retrieve user radiobutton selection and send to link

kmann281kmann281 Posts: 5Member
I am currently working on my companies website using Perl (library holds mostly cgi, not a lot of flexibility) and am using Microsoft's IIS. I am trying to implement a radio button that has buttons that each lead to a different link when chosen and the proceed button is clicked. Here is all I have so far:

print "SummaryDetails";


do "cgi-lib.pl" || die "Cannot Start CGI-LIB
";
&ReadParse(*input);

$sInput= $in{'radiobutton'};

SWITCH: {
if($sInput == Summary){$loc = 'http://randomlink1.com';}
if($sInput == Details){$loc = 'http://randomlink.com';}

}
print "";

Comments

  • JonathanJonathan Posts: 2,914Member
    Hi,

    You're on the right lines...

    : print "SummaryDetails";
    Why two opening form tags? Get rid of the second one.

    : do "cgi-lib.pl" || die "Cannot Start CGI-LIB
    ";
    : &ReadParse(*input);
    Man, cgi-lib.pl is old! :-)

    : $sInput= $in{'radiobutton'};
    The name in the quotes should match the name in the form.

    $sInput= $in{'sumdet'};

    : SWITCH: {
    Why this?

    : if($sInput == Summary){$loc = 'http://randomlink1.com';}
    : if($sInput == Details){$loc = 'http://randomlink.com';}
    First, values are case sensitive, second you need to put literals in quotes, and third you need string compare rather than integer compare.

    if($sInput eq 'summary'){$loc = 'http://randomlink1.com';}

    Hope this gets you further...

    Jonathan
    ###
    for(74,117,115,116){$::a.=chr};(($_.='qwertyui')&&
    (tr/yuiqwert/her anot/))for($::b);for($::c){$_.=$^X;
    /(p.{2}l)/;$_=$1}$::b=~/(..)$/;print("$::a$::b $::c hack$1.");
Sign In or Register to comment.