The code works properly it was just a problem with
display_errors_as_html() method that was sending data to STDOUT.
Thanks to Gerald for showing me the error of my ways... He pointed out
that I needed to set the EMBPERL_OPTIONS to redirect output to the
Embperl stream... This solved my problem.
"G.W. Haywood" wrote:
>
> Hi there,
>
> On Mon, 29 Nov 1999, Erich L. Markert wrote:
>
> > skeleton copy of the code below.
> >
> > [-
> > use Apache;
> > use Apache::Constants qw(REDIRECT);
> >
> > error checking and form validation going on here...
> >
> > $new_applicant and $errors are set appropriately here...
> > -]
> >
> > <HTML>
> > <HEAD><TITLE>Untitled Document</TITLE>
> > </HEAD>
> > <BODY BGCOLOR="white" TEXTCOLOR="black">
> > [$ if( ( $new_applicant ) || ( $errors ) ) $]
> > [+ $application->display_errors_as_html() if( ($errors) ||
>($application->errors()) ); +]
> > [+ $student->display_errors_as_html() if( $student->errors()); +]
> >
> > <FORM METHOD="post" ACTION="[+
>qq!http://$ENV{SERVER_NAME}/Nactel/new-application.epl! +]"
>ENCTYPE="application/x-www-form-urlencoded">
> > </FORM>
> >
> > [$ else $]
> > [-
> > use Apache;
> > use Apache::Constants qw(REDIRECT);
> >
> > $req_rec->header_out("Location" =>
>qq!http://$ENV{SERVER_NAME}/Nactel/common/contact-info.epl?application_id=$fdat{'application_id'}&form_name=$fdat{'form_name'}!);
> > $req_rec->status(REDIRECT);
> > -]
> > [$ endif $]
> >
> > </BODY>
> > </HTML>
> >
>
> The nesting in this example looks a bit strange to me.
> Have you taken this from your working (failing) code?
>
> Kind regards,
> Ged.
--
__________________________________________________________
Mr. Erich L. Markert [EMAIL PROTECTED]
Computer Learning Center TEL (914)422-4328
Pace University
1 Martine Ave
White Plains, New York 10606-1932
Those who do not understand Unix are condemned to reinvent it, poorly.
-- Henry Spencer
