appends a file TWICE every time?

[weatherboy]

Trying to set up a flat-file database, and each time I append to it, the info is added twice. Here's the code:

# test if the 'save' button was clicked;
if($note_adder eq "SAVED&quot{
open(DAT, ">>$data_file&quot || die("FAILED: $!"
print DAT "$into1\|$time0\|$info2\|$info3\n";
close (DAT);
}

 

[PerlIsGood]

The code looks fine. Sounds like this block of script, or the section it's in, is being called twice (perhaps it's in a sub that's being called ...). Either find out where that is, or how it's being called and try to remedy that.

Alternatively, if this is the only thing the script needs to do when $note_adder is 'saved', you could try adding

exit;

after the

close(DAT);

line, ending the script after the first run through.

If that's doesn't help, I think we'd need to see some more of the code...