Anyone know perl?

That Guy · 04-21-2003, 09:59 AM

Sorry - I forgot to post my fix to this. Here's what I ended up with:

sub second {
 print header, start_html('test 2'),"\n", start_form,
 textfield(-name=>'testvar2', -size=>20),
 submit(-name=>'status', -value=>'Third'),"\n",br,
 @params;
 foreach $param (@params){

 print hidden(-name=>$param),

 br,$param, "-", param($param),"\n";}
 end_form(), end_html();
}

Notice the extras line within the foreach. I could have gone with cookies, but I hate having to program with them (verification and all that). Thanks for looking at it, SD.

04-21-2003, 09:59 AM	#7
That Guy He who reads, sometimes writes. Join Date: Sep 2001 Location: at the keyboard Posts: 791	Sorry - I forgot to post my fix to this. Here's what I ended up with: sub second {  print header, start_html('test 2'),"\n", start_form,  textfield(-name=>'testvar2', -size=>20),  submit(-name=>'status', -value=>'Third'),"\n",br,  @params;  foreach $param (@params){  print hidden(-name=>$param),  br,$param, "-", param($param),"\n";}  end_form(), end_html(); } Notice the extras line within the foreach. I could have gone with cookies, but I hate having to program with them (verification and all that). Thanks for looking at it, SD.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)