view release on metacpan or  search on metacpan

t/1a-generate.t  view on Meta::CPAN

                multiple => 1,
            },
        },
    },

    #32 - fieldsets
    {
        opt => {
            name => 'account',
            fieldsets => [[acct=>'Account Information'],
                          [prefs=>'User Preferences'],
                          [phone=>'Phone Number(s)']],
            stylesheet => 1,
            fields => [qw/first_name last_name outside_1 email home_phone new_set
                          work_phone call_me email_me outside_2 sex outside_3/],
        },
        mod => {
            first_name => { fieldset => 'acct' },
            last_name  => { fieldset => 'acct' },
            email      => { fieldset => 'acct' },
            home_phone => { fieldset => 'phone' },
            work_phone => { fieldset => 'phone' },
            new_set    => { fieldset => 'Inline Created' },
            call_me    => { fieldset => 'prefs' },
            email_me   => { fieldset => 'prefs' },
            first_name => { fieldset => 'acct' },
            sex        => { fieldset => 'acct', 
                            options  => [qw/Yes No/] },
        },
    },

    #33 - builtin Div.pm "template" support
    {
        opt => {
            name => 'parts',
            fields => [qw/ticket user email part_number/],
            fieldsets => [[acct=>'Account Information'],
                          [prefs=>'Part Information']],
            method => 'post',
            keepextras => 1,
            validate => { ticket => '/^\d+$/' },
            submit => [qw/Update Delete Cancel/],
            lalign => 'left',
            template => {type => 'div'},
            stylesheet => 1,
        },
        mod => {
            ticket => { fieldset => 'acct' },
            email  => { fieldset => 'prefs' },
        },
    },

    # Older tests moved from 1b-fields
    #34 - misc checkboxes
    {
        opt => {
            fields => [qw/name color/],
            labels => {color => 'Favorite Color'},
            validate => {email => 'EMAIL'},

t/1a-test32.html  view on Meta::CPAN

<tr id="account_sex_row">
  <td class="fb_label" id="account_sex_label">Sex</td>
  <td class="fb_field" id="account_sex_field"><input class="fb_radio" id="sex_Yes" name="sex" type="radio" value="Yes" /> <label class="fb_option" for="sex_Yes">Yes</label>
<input class="fb_radio" id="sex_No" name="sex" type="radio" value="No" /> <label class="fb_option" for="sex_No">No</label>
</td>
</tr>
</table>
</fieldset>
</div>
<div class="fb_tab" id="account_tab2">
<fieldset class="fb_set" id="account_prefs">
<legend>User Preferences</legend>
<table class="fb">
<tr id="account_call_me_row">
  <td class="fb_label" id="account_call_me_label">Call Me</td>
  <td class="fb_field" id="account_call_me_field"><input class="fb_input" id="call_me" name="call_me" type="text" /></td>
</tr>
<tr id="account_email_me_row">
  <td class="fb_label" id="account_email_me_label">Email Me</td>
  <td class="fb_field" id="account_email_me_field"><input class="fb_input" id="email_me" name="email_me" type="text" /></td>
</tr>

t/1a-test33.html  view on Meta::CPAN

<div class="fb_tab" id="parts_tab1">
<fieldset class="fb_set" id="parts_acct">
<legend>Account Information</legend>
<div id="parts_ticket_row">
  <div class="fb_label" id="parts_ticket_label"><span class="fb_required">Ticket</span></div>
  <div class="fb_field" id="parts_ticket_field"><input class="fb_input" id="ticket" name="ticket" type="text" value="111" /></div>
</div>
</fieldset>
</div>
<div class="fb_tab" id="parts_tab2">
<fieldset class="fb_set" id="parts_prefs">
<legend>Part Information</legend>
<div id="parts_email_row">
  <div class="fb_label" id="parts_email_label">Email</div>
  <div class="fb_field" id="parts_email_field"><input class="fb_input" id="email" name="email" type="text" value="pete@peteson.com" /></div>
</div>
</div>
</fieldset>
<div class="fb" id="parts_body">
<div id="parts_user_row">
  <div class="fb_label" id="parts_user_label">User</div>