[html-formfu] [patch] reverse order of labels and fields, new patch
Ronald J Kimball
rkimball+formfu at pangeamedia.com
Mon Nov 17 16:45:31 GMT 2008
Back in July, I sent a proposed patch against 0.03001 that allowed more =
control over reversing the order of labels and fields:
http://lists.scsys.co.uk/pipermail/html-formfu/2008-July/001249.html
I still have a need for both of these options, so I have created a new =
patch against 0.03005 (attached).
This patch does the following:
Adds a reverse attribute to _Field, which defaults to false. If reverse =
is true, the label will follow the field; otherwise it will precede the =
field. (If the label tag is 'legend', then reverse is ignored; the =
legend always appears as the first tag within the container tag.)
Adds a reverse_group attribute to Checkboxgroup and Radiogroup, which =
defaults to true. If reverse_group is true, the labels will follow the =
fields; otherwise they will precede the fields.
Adds tests for the new behavior. Tests pass for string and template =
rendering.
For all three reverse attributes (reverse, reverse_multi, reverse_group) =
a true value means the label should follow the field. The default =
values for reverse and reverse_group in this patch preserve the existing =
behavior of FormFu.
thanks,
Ronald
-------------- next part --------------
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/MANIFEST HTML-FormFu-0.03005/M=
ANIFEST
--- HTML-FormFu-0.03005.orig/MANIFEST 2008-09-08 09:56:24.000000000 -0400
+++ HTML-FormFu-0.03005/MANIFEST 2008-11-17 11:21:19.000000000 -0500
@@ -386,6 +386,7 @@
t/elements/repeatable_counter_name.t
t/elements/repeatable_counter_name.yml
t/elements/reset.t
+t/elements/reverse.t
t/elements/select.t
t/elements/select_empty_first_label.t
t/elements/select_force_default.t
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/Checkb=
oxgroup.pm HTML-FormFu-0.03005/lib/HTML/FormFu/Element/Checkboxgroup.pm
--- HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/Checkboxgroup.pm 2008-=
09-03 10:26:06.000000000 -0400
+++ HTML-FormFu-0.03005/lib/HTML/FormFu/Element/Checkboxgroup.pm 2008-11-17=
11:06:03.000000000 -0500
@@ -8,7 +8,7 @@
use HTML::FormFu::Util qw( append_xml_attribute process_attrs );
use List::MoreUtils qw( any );
=
-__PACKAGE__->mk_item_accessors(qw/ input_type /);
+__PACKAGE__->mk_item_accessors(qw/ reverse_group input_type /);
=
sub new {
my $self =3D shift->next::method(@_);
@@ -18,6 +18,7 @@
$self->label_tag ( 'legend' );
$self->container_tag ( 'fieldset' );
$self->multi_value ( 1 );
+ $self->reverse_group ( 1 );
$self->input_type('checkbox');
=
return $self;
@@ -112,6 +113,7 @@
=
my $render =3D $self->next::method( {
field_filename =3D> $self->field_filename,
+ reverse_group =3D> $self->reverse_group,
input_type =3D> $self->input_type,
$args ? %$args : (),
} );
@@ -139,37 +141,59 @@
;
=
for my $item ( @{ $option->{group} } ) {
- $html .=3D sprintf
- qq{<span>\n<input name=3D"%s" type=3D"%s" value=3D"%s"=
%s />},
+ $html .=3D "<span>\n";
+
+ my $label =3D sprintf
+ "<label%s>%s</label>\n",
+ process_attrs( $item->{label_attributes} ),
+ $item->{label},
+ ;
+
+ my $input =3D sprintf
+ qq{<input name=3D"%s" type=3D"%s" value=3D"%s"%s />\n},
$render->{nested_name},
$render->{input_type},
$item->{value},
process_attrs( $item->{attributes} ),
;
=
- $html .=3D sprintf
- "\n<label%s>%s</label>\n</span>\n",
- process_attrs( $item->{label_attributes} ),
- $item->{label},
- ;
+ if ( $render->{reverse_group} ) {
+ $html .=3D $input . $label;
+ }
+ else {
+ $html .=3D $label . $input;
+ }
+
+ $html .=3D "</span>\n";
}
=
$html .=3D "</span>\n";
}
else {
- $html .=3D sprintf
- qq{<span>\n<input name=3D"%s" type=3D"%s" value=3D"%s"%s /=
>},
+ $html .=3D "<span>\n";
+
+ my $label =3D sprintf
+ "<label%s>%s</label>\n",
+ process_attrs( $option->{label_attributes} ),
+ $option->{label},
+ ;
+
+ my $input =3D sprintf
+ qq{<input name=3D"%s" type=3D"%s" value=3D"%s"%s />\n},
$render->{nested_name},
$render->{input_type},
$option->{value},
process_attrs( $option->{attributes} ),
;
=
- $html .=3D sprintf
- "\n<label%s>%s</label>\n</span>\n",
- process_attrs( $option->{label_attributes} ),
- $option->{label},
- ;
+ if ( $render->{reverse_group} ) {
+ $html .=3D $input . $label;
+ }
+ else {
+ $html .=3D $label . $input;
+ }
+
+ $html .=3D "</span>\n";
}
}
=
@@ -233,6 +257,18 @@
name: foo
auto_id: "%n_%c"
=
+=3Dhead2 reverse_group
+
+If true, then the label for each checkbox in the checkbox group should
+be rendered to the right of the field control. Otherwise, the label
+is rendered to the left of the field control.
+
+The default value is C<true>, causing each label to be rendered to the
+right of its field control (or to be explicit: the markup for the
+label comes after the field control in the source).
+
+Default Value: C<true>
+
=3Dhead1 SEE ALSO
=
Is a sub-class of, and inherits methods from =
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/Radiog=
roup.pm HTML-FormFu-0.03005/lib/HTML/FormFu/Element/Radiogroup.pm
--- HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/Radiogroup.pm 2008-09-=
03 10:26:05.000000000 -0400
+++ HTML-FormFu-0.03005/lib/HTML/FormFu/Element/Radiogroup.pm 2008-11-17 10=
:37:22.000000000 -0500
@@ -75,9 +75,14 @@
name: foo
auto_id: "%n_%c"
=
+=3Dhead2 reverse_group
+
+See L<HTML::FormFu::Element::Checkboxgroup/reverse_group>.
+
=3Dhead1 SEE ALSO
=
Is a sub-class of, and inherits methods from =
+L<HTML::FormFu::Element::Checkboxgroup>,
L<HTML::FormFu::Element::_Group>, =
L<HTML::FormFu::Element::_Field>, =
L<HTML::FormFu::Element>
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/_Field=
.pm HTML-FormFu-0.03005/lib/HTML/FormFu/Element/_Field.pm
--- HTML-FormFu-0.03005.orig/lib/HTML/FormFu/Element/_Field.pm 2008-09-04 1=
0:31:01.000000000 -0400
+++ HTML-FormFu-0.03005/lib/HTML/FormFu/Element/_Field.pm 2008-11-17 11:31:=
47.000000000 -0500
@@ -49,8 +49,8 @@
label_filename label_tag
retain_default force_default
javascript non_param
- reverse_multi multi_value
- original_name
+ reverse reverse_multi
+ multi_value original_name
) );
=
__PACKAGE__->mk_output_accessors( qw( comment label value ) );
@@ -508,6 +508,7 @@
label_filename =3D> $self->label_filename,
label_tag =3D> $self->label_tag,
container_tag =3D> $self->container_tag,
+ reverse =3D> $self->reverse,
reverse_multi =3D> $self->reverse_multi,
javascript =3D> $self->javascript,
$args ? %$args : (),
@@ -846,7 +847,8 @@
}
}
=
- if ( defined $render->{label} && $render->{label_tag} ne 'legend' ) {
+ if ( defined $render->{label} && $render->{label_tag} ne 'legend' &&
+ !$render->{reverse} ) {
$html .=3D sprintf "\n%s", $self->_string_label($render);
}
=
@@ -879,6 +881,11 @@
=
my $html =3D '';
=
+ if ( defined $render->{label} && $render->{label_tag} ne 'legend' &&
+ $render->{reverse} ) {
+ $html .=3D "\n" . $self->_string_label($render);
+ }
+
if ( defined $render->{comment} ) {
$html .=3D sprintf "\n<span%s>\n%s\n</span>",
process_attrs( $render->{comment_attributes} ),
@@ -1239,11 +1246,28 @@
=
Default Value: C<false>
=
+=3Dhead2 reverse
+
+If true, then the field's label should be rendered to the right of the
+field control. (When the field is used within a
+L<Multi|HTML::FormFu::Element::Multi> block, the position of the label
+is controlled by the L</reverse_multi> option instead.)
+
+The default value is C<false>, causing the label to be rendered to the left
+of the field control (or to be explicit: the markup for the label comes
+before the field control in the source).
+
+Exception: If the label tag is 'legend', then the reverse attribute is
+ignored; the legend always appears as the first tag within the
+container tag.
+
+Default Value: C<false>
+
=3Dhead2 reverse_multi
=
If true, then when the field is used within a =
L<Multi|HTML::FormFu::Element::Multi> block, the field's label should be =
-rendered to the right of the field control
+rendered to the right of the field control.
=
The default value is C<false>, causing the label to be rendered to the left
of the field control (or to be explicit: the markup for the label comes =
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/share/templates/tt/xhtml/check=
boxgroup_tag HTML-FormFu-0.03005/share/templates/tt/xhtml/checkboxgroup_tag
--- HTML-FormFu-0.03005.orig/share/templates/tt/xhtml/checkboxgroup_tag 200=
8-09-03 10:25:58.000000000 -0400
+++ HTML-FormFu-0.03005/share/templates/tt/xhtml/checkboxgroup_tag 2008-11-=
17 11:13:58.000000000 -0500
@@ -1,12 +1,14 @@
<span[% process_attrs(self.attributes) %]>
[% FOREACH option =3D self.options %][% IF option.group %]<span[% process_=
attrs(option.attributes) %]>
[% FOREACH item =3D option.group %]<span>
-<input name=3D"[% self.nested_name %]" type=3D"[% self.input_type %]" valu=
e=3D"[% item.value %]"[% process_attrs(item.attributes) %] />
-<label[% process_attrs(item.label_attributes) %]>[% item.label %]</label>
+[% IF self.reverse_group %]<input name=3D"[% self.nested_name %]" type=3D"=
[% self.input_type %]" value=3D"[% item.value %]"[% process_attrs(item.attr=
ibutes) %] />
+<label[% process_attrs(item.label_attributes) %]>[% item.label %]</label>[=
% ELSE %]<label[% process_attrs(item.label_attributes) %]>[% item.label %]<=
/label>
+<input name=3D"[% self.nested_name %]" type=3D"[% self.input_type %]" valu=
e=3D"[% item.value %]"[% process_attrs(item.attributes) %] />[% END %]
</span>
[% END %]</span>
[% ELSE %]<span>
-<input name=3D"[% self.nested_name %]" type=3D"[% self.input_type %]" valu=
e=3D"[% option.value %]"[% process_attrs(option.attributes) %] />
-<label[% process_attrs(option.label_attributes) %]>[% option.label %]</lab=
el>
+[% IF self.reverse_group %]<input name=3D"[% self.nested_name %]" type=3D"=
[% self.input_type %]" value=3D"[% option.value %]"[% process_attrs(option.=
attributes) %] />
+<label[% process_attrs(option.label_attributes) %]>[% option.label %]</lab=
el>[% ELSE %]<label[% process_attrs(option.label_attributes) %]>[% option.l=
abel %]</label>
+<input name=3D"[% self.nested_name %]" type=3D"[% self.input_type %]" valu=
e=3D"[% option.value %]"[% process_attrs(option.attributes) %] />[% END %]
</span>
[% END %][% END %]</span>
\ No newline at end of file
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/share/templates/tt/xhtml/field=
HTML-FormFu-0.03005/share/templates/tt/xhtml/field
--- HTML-FormFu-0.03005.orig/share/templates/tt/xhtml/field 2008-05-29 05:2=
3:14.000000000 -0400
+++ HTML-FormFu-0.03005/share/templates/tt/xhtml/field 2008-11-17 11:16:54.=
000000000 -0500
@@ -1,8 +1,10 @@
[% IF self.container_tag.defined %]<[% self.container_tag %][% process_att=
rs(self.container_attributes) %]>[% END %][% IF self.label.defined && self.=
label_tag =3D=3D 'legend' %]
[% INCLUDE $self.label_filename %][% END %][% IF self.errors %][% FOREACH =
error =3D self.errors %]
-<span class=3D"error_message [% error.class %]">[% error.message %]</span>=
[% END %][% END %][% IF self.label.defined && self.label_tag !=3D 'legend' =
%]
+<span class=3D"error_message [% error.class %]">[% error.message %]</span>=
[%
+END %][% END %][% IF self.label.defined && self.label_tag !=3D 'legend' &&=
!self.reverse %]
[% INCLUDE $self.label_filename %][% END %][% IF self.container_tag.define=
d %]
-[% END %][% content %][% IF self.comment.defined %]
+[% END %][% content %][% IF self.label.defined && self.label_tag !=3D 'leg=
end' && self.reverse %]
+[% INCLUDE $self.label_filename %][% END %][% IF self.comment.defined %]
<span[% process_attrs(self.comment_attributes) %]>
[% self.comment %]
</span>[% END %][% IF self.container_tag.defined %]
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/t/elements/checkboxgroup.t HTM=
L-FormFu-0.03005/t/elements/checkboxgroup.t
--- HTML-FormFu-0.03005.orig/t/elements/checkboxgroup.t 2008-05-29 05:22:59=
.000000000 -0400
+++ HTML-FormFu-0.03005/t/elements/checkboxgroup.t 2008-11-17 10:52:10.0000=
00000 -0500
@@ -1,24 +1,28 @@
use strict;
use warnings;
=
-use Test::More tests =3D> 4;
+use Test::More tests =3D> 5;
=
use HTML::FormFu;
=
my $form =3D HTML::FormFu->new({ tt_args =3D> { INCLUDE_PATH =3D> 'share/t=
emplates/tt/xhtml' } });
=
-my $field =3D $form->element('Checkboxgroup')->name('foo')->value(2)
+my $field1 =3D $form->element('Checkboxgroup')->name('foo')->value(2)
->options( [ [ 1 =3D> 'One' ], [ 2 =3D> 'Two' ] ] );
=
+# add element to test non-reversed labels
+my $field2 =3D $form->element('Checkboxgroup')->name('foo2')
+ ->options( [ [ 'a' =3D> 'A' ], [ 'b' =3D> 'B' ] ] )->reverse_group(0);
+
# add more elements to test accessor output
-$form->element('Checkboxgroup')->name('foo2')->options( [
+$form->element('Checkboxgroup')->name('foo3')->options( [
{ label =3D> 'Ein', value =3D> 1 },
{ label =3D> 'Zwei', value =3D> 2, attributes =3D> { class =3D> 'f=
oobar' } },
] );
$form->element('Checkboxgroup')->name('bar')->values( [qw/ one two three /=
] )
->value('two')->label('My Bar');
=
-my $field_xhtml =3D qq{<fieldset class=3D"checkboxgroup">
+my $field1_xhtml =3D qq{<fieldset class=3D"checkboxgroup">
<span>
<span>
<input name=3D"foo" type=3D"checkbox" value=3D"1" />
@@ -31,19 +35,36 @@
</span>
</fieldset>};
=
-is( "$field", $field_xhtml );
+is( "$field1", $field1_xhtml );
+
+my $field2_xhtml =3D qq{<fieldset class=3D"checkboxgroup">
+<span>
+<span>
+<label>A</label>
+<input name=3D"foo2" type=3D"checkbox" value=3D"a" />
+</span>
+<span>
+<label>B</label>
+<input name=3D"foo2" type=3D"checkbox" value=3D"b" />
+</span>
+</span>
+</fieldset>};
+
+is( "$field2", $field2_xhtml );
+
=
my $form_xhtml =3D <<EOF;
<form action=3D"" method=3D"post">
-$field_xhtml
+$field1_xhtml
+$field2_xhtml
<fieldset class=3D"checkboxgroup">
<span>
<span>
-<input name=3D"foo2" type=3D"checkbox" value=3D"1" />
+<input name=3D"foo3" type=3D"checkbox" value=3D"1" />
<label>Ein</label>
</span>
<span>
-<input name=3D"foo2" type=3D"checkbox" value=3D"2" class=3D"foobar" />
+<input name=3D"foo3" type=3D"checkbox" value=3D"2" class=3D"foobar" />
<label>Zwei</label>
</span>
</span>
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/t/elements/radiogroup.t HTML-F=
ormFu-0.03005/t/elements/radiogroup.t
--- HTML-FormFu-0.03005.orig/t/elements/radiogroup.t 2008-05-29 05:22:59.00=
0000000 -0400
+++ HTML-FormFu-0.03005/t/elements/radiogroup.t 2008-11-17 10:54:50.0000000=
00 -0500
@@ -1,24 +1,28 @@
use strict;
use warnings;
=
-use Test::More tests =3D> 4;
+use Test::More tests =3D> 5;
=
use HTML::FormFu;
=
my $form =3D HTML::FormFu->new({ tt_args =3D> { INCLUDE_PATH =3D> 'share/t=
emplates/tt/xhtml' } });
=
-my $field =3D $form->element('Radiogroup')->name('foo')->value(2)
+my $field1 =3D $form->element('Radiogroup')->name('foo')->value(2)
->options( [ [ 1 =3D> 'One' ], [ 2 =3D> 'Two' ] ] );
=
+# add element to test non-reversed labels
+my $field2 =3D $form->element('Radiogroup')->name('foo2')
+ ->options( [ [ 'a' =3D> 'A' ], [ 'b' =3D> 'B' ] ] )->reverse_group(0);
+
# add more elements to test accessor output
-$form->element('Radiogroup')->name('foo2')->options( [
+$form->element('Radiogroup')->name('foo3')->options( [
{ label =3D> 'Ein', value =3D> 1 },
{ label =3D> 'Zwei', value =3D> 2, attributes =3D> { class =3D> 'f=
oobar' } },
] );
$form->element('Radiogroup')->name('bar')->values( [qw/ one two three /] )
->value('two')->label('My Bar');
=
-my $field_xhtml =3D qq{<fieldset class=3D"radiogroup">
+my $field1_xhtml =3D qq{<fieldset class=3D"radiogroup">
<span>
<span>
<input name=3D"foo" type=3D"radio" value=3D"1" />
@@ -31,19 +35,35 @@
</span>
</fieldset>};
=
-is( "$field", $field_xhtml );
+is( "$field1", $field1_xhtml );
+
+my $field2_xhtml =3D qq{<fieldset class=3D"radiogroup">
+<span>
+<span>
+<label>A</label>
+<input name=3D"foo2" type=3D"radio" value=3D"a" />
+</span>
+<span>
+<label>B</label>
+<input name=3D"foo2" type=3D"radio" value=3D"b" />
+</span>
+</span>
+</fieldset>};
+
+is( "$field2", $field2_xhtml );
=
my $form_xhtml =3D <<EOF;
<form action=3D"" method=3D"post">
-$field_xhtml
+$field1_xhtml
+$field2_xhtml
<fieldset class=3D"radiogroup">
<span>
<span>
-<input name=3D"foo2" type=3D"radio" value=3D"1" />
+<input name=3D"foo3" type=3D"radio" value=3D"1" />
<label>Ein</label>
</span>
<span>
-<input name=3D"foo2" type=3D"radio" value=3D"2" class=3D"foobar" />
+<input name=3D"foo3" type=3D"radio" value=3D"2" class=3D"foobar" />
<label>Zwei</label>
</span>
</span>
diff -rN -x '*~' -u HTML-FormFu-0.03005.orig/t/elements/reverse.t HTML-Form=
Fu-0.03005/t/elements/reverse.t
--- HTML-FormFu-0.03005.orig/t/elements/reverse.t 1969-12-31 19:00:00.00000=
0000 -0500
+++ HTML-FormFu-0.03005/t/elements/reverse.t 2008-11-17 10:53:50.000000000 =
-0500
@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+
+use Test::More tests =3D> 1;
+
+use HTML::FormFu;
+
+my $form =3D HTML::FormFu->new({ tt_args =3D> { INCLUDE_PATH =3D> 'share/t=
emplates/tt/xhtml' } });
+
+my $field =3D $form->element('Text')->name('foo')->label('My Foo')->revers=
e(1);
+
+my $field_xhtml =3D qq{<div class=3D"text label">
+<input name=3D"foo" type=3D"text" />
+<label>My Foo</label>
+</div>};
+
+is( "$field", $field_xhtml );
More information about the HTML-FormFu
mailing list