> I have an odd result (at least to me) that I can't explain. I am using
> CGI::Application and have the following subroutine that returns
$output, the
> html for the page (only a toy example, but illustrates the point, I
think):
>
> sub return_probe_details {
> # Get OligoMap object (actually, just inherited from CGI::Application)
> my $self = shift;
>
> # Get CGI Query Object
> my $q = $self->query();
>
> my $output = '';
> $output .= $q->start_html(-title => 'Query Human Oligo Probe',
> -BGCOLOR => 'aquamarine');
> $output .= $q->startform();
> $output .= 'hello';
> $output .= '<p>';
> $output .= $q->end_form;
The call to 'end_form' is adding the div tags. Apparently CGI likes to
wrap forms in a div. Normally you would manipulate the form by adding
fields, etc. using the CGI methods, those fields would then show up
within the form, within the div. It is this kind of over control that
prevents me from using the HTML building components of the CGI module.
HTH,
http://danconia.org
> $output .= $q->end_html();
>
> return $output;
> }
>
> The HTML output is:
>
> <?xml version="1.0" encoding="iso-8859-1"?>
> <!DOCTYPE html
> PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
> "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd";>
> <html xmlns="http://www.w3.org/1999/xhtml"; lang="en-US"
> xml:lang="en-US"><head><title>Query Human Oligo Probe</title>
> </head><body bgcolor="aquamarine"><form method="post"
> action="/cgi-bin/oligo.pl" enctype="application/x-www-form-urlencoded">
> hello<p><div></div>
> </form></body></html>
>
> >From where is the tagset <div></div> coming? It isn't a problem here, of
> course, but if I try to use this with HTML::template, it is causing
> problems. Any ideas?
>
> Thanks,
> Sean
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
