Not sure what you mean when you say selects are not selected.
cliff rayman
genwax.com
Aaron Johnson wrote:
> I thought I had gotten smart. I am working on a project with a none
> coder. They know HTML fairly well so I had come up with a plan that
> would keep them from having to look at as much Embperl code as
> possible.
>
> Here is my idea:
> (db_row_hash is a function from an extrnal module that returns a
> fetchrow_hashref of the data from the database )
> [- $prospect_data = db_row_hash("SELECT * FROM Prospect WHERE
> Prospect_ID = $udat{Prospect_ID}") -]
>
> [$ foreach $key (sort keys %$prospect_data) $]
> [- $value = $prospect_data->{$key}; -]
> [- $url .= qq|$key\=$prospect_data->{$key}\&|; -]
>
> [$ endforeach $]
> [+ $url +]
> [- $http_headers_out{'Location'} = "newvisitor_reg2.html?$url"; -]
>
> This works great and passes the returned values to the page, however the
>
> selects are not selected. The input fields are filled in however.
>
> Do the selects have to be dynamic (while/foreach) to be selected?
> I am I expecting too much from the Embperl parser?
>
> Embperl VERSION: 1.2.0
>
> On Windows 98 with Apache 1.3.9 and mod_perl 1.21
>
> Aaron Johnson
>
> ---------------------------------------------------------------------
> 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]
