I'm trying to make a form using cgi.pm the output of which will be saved to a .html file. But the variables are not parsing correctly. If I put 3 names in 3 different places they all appear together instead of each appearing on each individual section. Here's my code:
#!/usr/bin/perl use CGI qw(:standard); print header; print start_html('Rent Form'), h1('Lab Form'), h2('Washington'), start_form, "Person's Name? ",textfield('name'), p, "What's your favorite mail client?", p, checkbox_group(-name=>'words', -values=>['mutt','mail','pico','sylpheed'], -defaults=>['mutt','mail']), p, "Editor ", popup_menu(-name=>'heh', -values=>['emacs','vi','ed','cat']), p, h2('Maryland'), start_form, "Person Name? ",textfield('name'), p, "What's your favorite mail client?", p, checkbox_group(-name=>'words', -values=>['mutt','mail','pico','sylpheed'], -defaults=>['mutt','mail']), p, h2('New York Division'), start_form, "Person Name? ",textfield('name'), p, "What's your favorite mail client?", p, checkbox_group(-name=>'words', -values=>['mutt','mail','pico','sylpheed'], -defaults=>['mutt','mail']), p, submit, end_form, hr; open(FH, ">/tmp/result.html") or die "can't append to html file: $!"; print FH start_html('Rent Form'); print FH h1('Lab Form'); print FH h2('Washington'); print FH "tenant name is", em(param('name')); print FH h2('Maryland'); print FH "tenant name is", em(param('name')); print FH h2('New York'); print FH "tenant name is", em(param('name')); flock(FH, 2) or die "can't flock formlog: $!"; # either using the procedural interface # use CGI qw(:standard); save_parameters(*FH); # with CGI::save # or using the object interface use CGI; $query = CGI->new(); $query->save(*FH); close(FH) or die "can't close formlog: $!"; print end_html; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/