my $output = ''; if ($form->submitted && $form->validate) { print STDERR "Confirm Registrant Needs Data. Store in db.\n"; print STDERR "->registrant_needs() about to invoke ->insert_reg_needs_form().\n"; my $fields = $form->fields; $self->insert_reg_needs_form($dbh,$reg_id,$fields); $rm = "Checkout"; print STDERR "->registrant_needs() says about to dispatch to ->checkout().\n"; return $self->checkout($dbh,$reg_id); } else { print STDERR "Render Registrant Needs Form again.\n"; $output .= htmlgui::return_remote_header_as_string(@template_fields); $output .= $self->config_param('RegistrantNeeds.pre_form_copy'); $output .= $form->render(); $output .= $self->config_param('RegistrantNeeds.post_form_copy'); $output .= $self->credits(); $output .= htmlgui::return_remote_footer_as_string(@template_fields); $rm = "RegistrantNeeds"; print STDERR "->registrant_needs() says: about to render registrant_needs form.\n"; } print STDERR "Script is ready to render: \n\n$output \n\n"; return $output;