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

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]

chargill -

my apologies - i knew that it wasn't enough for you to really see what's going on, but what i'm working on is private information, and i didn't want to create a dummy db to demonstrate.

what i have come up with as a workaround is to add ", -value=>'', -override=>1" to each field, as follows:

print table(
Tr({-valign=>"TOP"},
    td(["First Name", textfield(-name=>'firstname', -size=>80, -value=
+>'', -override=>1)]),
    td(["Last Name", textfield(-name=>'lastname', -size=>80, -value=>'
+', -override=>1)]),
    td(["Address", textfield(-name=>'address1', -size=>80, -value=>'',
+ -override=>1)]),
[download]

setting each value to '' doesn't do it without including the -override=>1

so, this works, but it seems like there must be an easier, more efficient way!

in answer to your inquiries about the rest of my code:

1. #!/usr/bin/perl, 2. use CGI qw/:standard/;,

the top of my script is:

#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $q = new CGI;
[download]

i've tried putting -nosticky into the use CGI statement: use CGI qw(:standard, -nosticky); which didn't clear the fields. and i also put '-nosticky' into each of the fields, again, without success (the previous field values remain). i've tried adding the line $q->delete_all(); above the code creating the form when "submit = 'New Entry'", which also doesn't work to clear the field values.

3. the bit of CGI code that displays the button called 'New Entry',

print submit(-name=>'submit',-value=>'New Entry'); the main conditionals that are run look like:

%in = map { $_ => $q->param($_) } $q->param;
    
if ($in{'submit'} ne 'New Entry')
{
.
.
$requestID = $in{'requestID'};
$sql = "SELECT title, firstname, lastname, address1, address2, city, s
+tate, zipcode, zipextra, phonehome, phonework, phonecell, email, user
+name, role, approved FROM members WHERE UID = $requestID";
....code to generate table with the values from the db inserted into t
+he fields...
}
else
{
....code to generate table with empty fields...
}
[download]

4. enough data stuffed into perhaps __DATA__ to recreate the problem.

the source of the DATA is from a sql statement, as shown above....not sure how to show you this, since it's confidential.