fixed Maypole versions of Untaint and AsForm to pass pod::coverage tests, fixed test...

[maypole.git] / lib / Maypole / Model / CDBI / AsForm.pm

diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm
index 6ca422a0c8bdea4088f6f4a28647be8a5a667c60..7956bbbedda71ef0f069242641415246bd835186 100644 (file)
--- 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};