Showing results for 
Search instead for 
Did you mean: 

radio buttons with in a perl script

Occasional Contributor

radio buttons with in a perl script

I m writing this script and I 've encountered
a problem in executing the radio button action in my perl script:


#use strict;
use DBI;
use CGI ":all";
$radio_action = param("radio_action");
$option = param("option");
print header, start_form,
start_html("Payment Load Information"),
h1("Payment Load Information");
print textfield(-name=>'option'), " option", br;
print submit('Option');

print br, "Select a criterion of search: ", br,
-values=>['Show Payment Files ','MOVEGENTS','MOVECRAS','Run date Batch Job','Pre-Load','Show Approved Files'],
if ($radio_action eq "Show Payment Files")
system "/batch/scripts/showpay"
print end_html;

I keep getting the same error below -->

syntax error at ./ line 19, near ")
Execution of ./ aborted due to compilation errors.
Pat Lieberg
Valued Contributor

Re: radio buttons with in a perl script

Your system line in the if block needs a ; on the end.
H.Merijn Brand (procura
Honored Contributor

Re: radio buttons with in a perl script

No, it does not. a semi-colon is optional before a closing brace.

the problem is the trailing comma on the line before the if. That line has no trailing semi-colon.




should work

Enjoy, Have FUN! H.Merijn [ knowing nothing on CGI, and wants to keep it that way ]
Enjoy, Have FUN! H.Merijn