You're not showing this form from the button via Ajax, are you?

If you are, I've got a solution or two for you, though they're not perl.

If not, you'll have to give us a tiny self-contained example that we can run to see this behavior and help you to eliminate it.

Update: Oh yeah. If you're using FireFox with it's "remember stuff in form fields" option, then it's probably doing that for you and showing you the form with the fields filled in.

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]

I ran in to a similar problem a while back, but my data was duplicating. If the user hadn't filled out all the requested fields and the name field was John Doe, then it was coming back John DoeJohn Doe after a second submission. Might FireFox's "remember stuff" option be doing that? If so, do you have any idea of a workaround?

This was a self referencing CGI script if that makes a difference.

Revolution. Today, 3 O'Clock. Meet behind the monkey bars.

here's the basics of how i have this:

print start_form;
if ($in{'submit'} eq 'New Entry')
{
print table(
Tr({-valign=>"TOP"},
[
td(["First Name", textfield(-name=>'firstname', -size=>80)]),
td(["Last Name", textfield(-name=>'lastname', -size=>80)])
]));
}
else
{
print table(
Tr({-valign=>"TOP"},
[
td(["First Name", textfield(-name=>'firstname', -size=>80, -value=>$fi
+rstname)]),
td(["Last Name", textfield(-name=>'lastname', -size=>80, -value=>$last
+name)])
]));
[download]

So, this isn't self contained, and takes a fair amount of tweaking to make work, and even then I'm not sure I can make it duplicate your behavior. As is, you've left off:

1. #!/usr/bin/perl,
2. use CGI qw/:standard/;,
3. the bit of CGI code that displays the button called 'New Entry',
4. enough data stuffed into perhaps __DATA__ to recreate the problem.

Show us enough code that does all that (most importantly #4) that you can run in your environment, so that we can easily run it in our environments to be able to better help you.



--chargrill

---

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)
[download]