X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FAsForm.pm;h=7956bbbedda71ef0f069242641415246bd835186;hb=2a0564f48a17a688c114fac6384bb2a4dd34865b;hp=6ca422a0c8bdea4088f6f4a28647be8a5a667c60;hpb=346143529922475f513453053cab4b387ac22b9d;p=maypole.git diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm index 6ca422a..7956bbb 100644 --- a/lib/Maypole/Model/CDBI/AsForm.pm +++ b/lib/Maypole/Model/CDBI/AsForm.pm @@ -33,7 +33,7 @@ our @EXPORT = _options_from_objects _options_from_arrays _options_from_hashes _options_from_array _options_from_hash ); - + our $VERSION = '.10'; =head1 NAME @@ -1092,7 +1092,6 @@ sub _select_guts { #$args->{stringify} ||= 'stringify_selectbox'; $args->{selected} = _hash_selected($args) if defined $args->{selected}; - warn "*** Dumpe of selected " . Dumper( $args->{selected} ); my $name = $args->{name} || $col; my $a = HTML::Element->new('select', name => $name); $a->attr( %{$args->{attr}} ) if $args->{attr};