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.