Below I've included the top page and the page that it executes.
What I want is for the page that it executes to not return to the
main page until I tell it to. See comments in the code below.
> [-
>
> Execute ({inputfile => 'test_form.epl',
> fdat => \%fdat,
> ffld => \@ffld});
>
> # The following code should not be executed immediately after
> # executing the test_form.epl page. The test_form.epl page
> # should not return to here until after the "elsif" is executed
> # on that page.
>
> print (OUT "Page: $fdat{page}<P>");
>
Here's the sub page. It's a sample of the mechanism that would be
used to do a data entry form with validation.
> <HTML>
> <HEAD>
> <TITLE>TEST FORM</TITLE>
> </HEAD>
> <BODY>
>
> [$ if $fdat{page} == 0 $]
> # Data entry section would go here, presenting a form to the user.
> Page = 0<P>
> <form action="test_form.epl" method="POST">
> <input type="hidden" name="page" value="1">
> <input type="submit" name="cancel" value="Page = 1"></p>
> </form>
>
> [$ elsif $fdat{page} == 1 $]
> # Data checking by the server would go here and would present a
> # form button to the user allowing them to submit the data a final
> # time after they confirmed it was right and the server did it's
> # confirmation.
> Page = 1<P>
> <form action="test_form.epl" method="POST">
> <input type="hidden" name="page" value="2">
> <input type="submit" name="cancel" value="Page = 2"></p>
> </form>
>
> [$ elsif $]
> # After the user submits the final form, return to the calling page.
> Page = 2<P>
>
> [$endif$]
>
> </BODY>
> </HTML>
On 9 Nov 2001, at 7:14, Gerald Richter wrote:
> > I am trying to build a web site out of standalone pages that are
> > called from a top level page.
> >
> > When I call a sub-page, they return immediately. How do I prevent
> > this.
> >
> > For instance, I have a main page that looks like this:
> >
>
> I am not quite sure, that I understand what you mean. Normaly a sub-page
> will only return when it has processed it's code, unless you call it with
> the import parameter, in this case only the [! !] blocks will be executed.
> Maybe you can give a short real Perl example
>
> Gerald
>
>
> -------------------------------------------------------------
> Gerald Richter ecos electronic communication services gmbh
> Internetconnect * Webserver/-design/-datenbanken * Consulting
>
> Post: Tulpenstrasse 5 D-55276 Dienheim b. Mainz
> E-Mail: [EMAIL PROTECTED] Voice: +49 6133 925131
> WWW: http://www.ecos.de Fax: +49 6133 925152
> -------------------------------------------------------------
>
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
