Thanks for the replies, William and Wiggins.
My misconception was that some cgi.pm methods return strings, and some
return arrays. I was assuming that all were strings--performing a join on
the arrays to get simple strings fixes the problem.
Sean
On 6/24/04 2:44 PM, "Wiggins d Anconia" <[EMAIL PROTECTED]> wrote:
>> 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>
