Select Code to Download

sub edit_form {
  my $self = shift;
...
                    fobject   => $self->query);

}

<TMPL_INCLUDE NAME="../header.tmpl">

...
<input type="submit" name="submit" value="Submit"><input type="reset" 
+ name="reset"  value="Reset"><br />

<TMPL_INCLUDE NAME="../footer.tmpl">