Maypole-FormBuilder
view release on metacpan or search on metacpan
lib/Maypole/Plugin/FormBuilder.pm view on Meta::CPAN
488489490491492493494495496497498499500501502503504505506507508
return
@forms
;
}
=item render_form_as_row( $form )
Returns a form marked up as a single row for a table.
This will probably get converted to a template some time.
Yes, it's bad XHTML - suggestions about how to do this legally would be good.
=cut
# chopped out of CGI::FormBuilder::render()
# XXX - maybe better implemented as a post-processor now
sub
render_form_as_row
{
my
(
$r
,
$form
) =
@_
;
my
$font
=
$form
->font;
templates-mason/factory/header view on Meta::CPAN
1234567891011<!DOCTYPE html PUBLIC
"-//W3C//DTD XHTML 1.1//EN"
<head>
<title><%
$config
->{application_name} ||
"A Maypole application"
%></title>
<meta http-equiv=
"Content-Type"
content=
"text/html; charset=<% $request->document_encoding %>"
/>
<
link
href=
"<% $base %>/css/maypole.css"
type=
"text/css"
rel=
"stylesheet"
/>
<& custom_css &>
</head>
<body>
<div class=
"content"
>
templates-tt/factory/header view on Meta::CPAN
1234567891011<!DOCTYPE html PUBLIC
"-//W3C//DTD XHTML 1.1//EN"
<head>
<title>[% config.application_name ||
"A Maypole application"
%]</title>
<meta http-equiv=
"Content-Type"
content=
"text/html; charset=[% request.document_encoding %]"
/>
<
link
href=
"[% base %]/css/maypole.css"
type=
"text/css"
rel=
"stylesheet"
/>
[% INCLUDE custom_css %]
</head>
<body>
<div class=
"content"
>
( run in 0.991 second using v1.01-cache-2.11-cpan-3cd7ad12f66 )