Maypole-FormBuilder

 view release on metacpan or  search on metacpan

lib/Maypole/Plugin/FormBuilder.pm  view on Meta::CPAN

488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
      
    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

1
2
3
4
5
6
7
8
9
10
11
<!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

1
2
3
4
5
6
7
8
9
10
11
<!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 )