Adam Sjøgren wrote:
> On Fri, 5 May 2006 15:19:33 +0100, Carl wrote:
>
>
>> Select elements automatically get an "In" contraint added, containing
>> the keys from the element's options().
>>
>
>
>> This probably ought to be over-rideable.
>>
>
> Attached is a patch that makes it so.
>
> Let me know if it should be done differently and I will be happy to
> make another patch :-)
>
>
> Best regards,
>
> Adam
>
>
> ------------------------------------------------------------------------
>
> --- /usr/share/perl5/HTML/Widget/Element/Select.pm.orig 2006-06-20
> 14:07:14.000000000 +0200
> +++ /usr/share/perl5/HTML/Widget/Element/Select.pm 2006-06-20
> 14:17:20.000000000 +0200
> @@ -7,7 +7,7 @@
>
> *value = \&selected;
>
> -__PACKAGE__->mk_accessors(qw/comment label multiple options selected/);
> +__PACKAGE__->mk_accessors(qw/comment label multiple options selected
> no_constraint/);
> __PACKAGE__->mk_attr_accessors(qw/size/);
>
> =head1 NAME
> @@ -69,12 +69,21 @@
> A list of keys (unique option ids) which will be pre-set to "selected".
> Can also be addressed as value for consistency with the other elements
>
> +=head2 no_constraint
> +
> + $widget->element('Select', 'foo')->no_constraint(1);
> +
> +Override - turn off - the adding of the implicit L<In
> +Constraint|HTML::Widget::Constraint::In>.
> +
> =head2 $self->prepare( $widget, $value )
>
> =cut
>
> sub prepare {
> my ( $self, $w, $value ) = @_;
> +
> + return if $self->no_constraint;
>
> my $name = $self->name;
>
>
Wrong list - there is a HTML::Widget maling list (also on lists.rawmode.org)
Ash
_______________________________________________
List: [email protected]
Listinfo: http://lists.rawmode.org/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
