Re: Deleting Problem

I stopped reading when I got to here:

my ($selected1, $selected2, $selected3, $selected4, $selected5, $selec
+ted6, $selected7, $selected8, $selected9, $selected10, $selected11);
[download]

because this is a bad bad red flag. See my rant on that.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Comment on Re: Deleting Problem Download Code

Replies are listed 'Best First'.
Re^2: Deleting Problem by Anonymous Monk on Aug 09, 2005 at 19:34 UTC
Ok thanks, I figured it out... I submited the hidden field using a checkbok and javascript to do the job, but thanks anyway.	[reply]
Re^3: Deleting Problem by poj (Abbot) on Aug 09, 2005 at 20:50 UTC
You could consider replacing these bits of code $dest_data="dest_data".$i; $dest_temp=param($dest_data); if ($dest_temp eq "A"){ $selected1="selected"; } else {$selected1=" ";} if($dest_temp eq "B"){ $selected2="selected";} else{$selected2=+" ";} if($dest_temp eq "C"){ $selected3="selected";} else{$selected3=" ";} if($dest_temp eq "D"){ $selected4="selected";} else{$selected4=" ";} if($dest_temp eq "E"){ $selected5="selected";} else{$selected5=" ";} if($dest_temp eq "F"){ $selected6="selected";} else{$selected6=" ";} if($dest_temp eq "G"){ $selected7="selected";} else{$selected7=" ";} if($dest_temp eq "H"){ $selected8="selected";} else{$selected8=" ";} if($dest_temp eq "I"){ $selected9="selected";} else{$selected9=" ";} if($dest_temp eq "J"){ $selected10="selected";} else{$selected10=" ";} if($dest_temp eq "K"){ $selected11="selected";} else{$selected11=" ";} print "<SELECT NAME=\""; $dest_data="dest_data".$i; print $dest_data; print "\">"; print "<OPTION VALUE=\"\">SELECT</OPTION> <OPTION VALUE=\"A\" $selected1>A</OPTION> <OPTION VALUE=\"B\" $selected2>B</OPTION> <OPTION VALUE=\"C\" $selected3>C</OPTION> <OPTION VALUE=\"D\" $selected4>D</OPTION> <OPTION VALUE=\"E\" $selected5>E</OPTION> <OPTION VALUE=\"F\" $selected6>F</OPTION> <OPTION VALUE=\"G\" $selected7>G</OPTION> <OPTION VALUE=\"H\" $selected8>H</OPTION> <OPTION VALUE=\"I\" $selected9>I</OPTION> <OPTION VALUE=\"J\" $selected10>J</OPTION> <OPTION VALUE=\"K\" $selected11>K</OPTION> </SELECT>"; [download] with something like this (untested) `$dest_data="dest_data".$i; print qq!<select name="$dest_data"><option value="SELECT">!; for my $val ('A'..'K'){ my $sel=($val eq param($dest_data)) ? "SELECTED" : ""; print qq!<option value="$val" $sel>$val!; } print q!</select>!;` [download] poj	[reply] [d/l] [select]