Use 'param' in if statement.

krachen has asked for the wisdom of the Perl Monks concerning the following question:

In a script, I am executing a browser page with two options. One to select data and another to update data. I'm using-

print "<td><a href=\"first.pl?item=select\">Select Info</a></td>";
 print "<td><a href=\"first.pl?item=update\">Update Info</a></td>";
[download]

I then use an IF statement to choose:

if (param("item") eq "select")
 {
  &retrieve_data;
 }
elsif (param("item") eq "update")
 {
  &update_data;
 }
sub retrieve_data
{
[download]

But when I click either option, it stops at the 'param' statement. I use this all the time on one server my own. the server at work is the same version of redhat and I think the install should be the same for both except for the Oracle stuff on the one at work. If I take the ref to param out, I can execute the rest of the script. Any ideas???

Krachen

Edit by tye: Use CODE tags

Comment on Use 'param' in if statement. Select or Download Code

Replies are listed 'Best First'.
Re: Use 'param' in if statement. by bradcathey (Prior) on Dec 08, 2004 at 01:12 UTC
To expand on injunjoel's reply, try: `use CGI; my $query = new CGI; if ($query->param("item") eq "select") { &retrieve_data; } elsif ($query->param("item") eq "update") { &update_data; } sub retrieve_data {` [download] That should do it. It's one of those crazy bugs that we have all stared at for hours and simply not seen the obvious. Take heart, we've all been there. —Brad "Don't ever take a fence down until you know the reason it was put up." G. K. Chesterton	[reply] [d/l]
Re: Use 'param' in if statement. by injunjoel (Priest) on Dec 07, 2004 at 23:03 UTC
Greetings all, How are you using CGI? Are you creating a CGI object? Are you using `use CGI qw(:standard);`? Have you checked if there is a version difference in the CGI.pm between the box that doesn't work and the one that does? -InjunJoel "I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo	[reply] [d/l]
Re: Use 'param' in if statement. by eric256 (Parson) on Dec 07, 2004 at 22:31 UTC
A better definition of "it stops" would help. Do you get an error? Did you check your webservers error log? ___________ Eric Hodges	[reply]
Re: Use 'param' in if statement. (Excuse my hastiness) by krachen (Novice) on Dec 09, 2004 at 19:58 UTC
I am the one that posted "Use 'param' in if statement. by krachen.". I am a newbie to this forum and to perl. I am a veteran programmer who is now fighting to aquire the knowledge of premier languages. I have mastered languages from Cobol and Assembler through many forms of SQL and unix scripting and allot in between (15+ years). Please excuse my hastiness in my posts. I have allot to learn in a short amount of time. Thank you for your time and expertise. "My life is my '67 Dodge and my Greyhounds, fast friends" Krachen 2004-12-09 Edited by Arunbear this node was originally posted in Seekers of Perl Wisdom Reparented to Use 'param' in if statement. after consideration; Keep/Edit/Delete: 1/15/0	[reply]