fixing bugs introduced in 2.11

[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 023f88d8bda9258d7dc4e77b3f9f2894a7cd432f..3c35dfc5fa4b23b978cb886986cd528123f1d863 100644 (file)
--- a/lib/Maypole/Model/CDBI/AsForm.pm
+++ b/lib/Maypole/Model/CDBI/AsForm.pm
@@ -543,13 +543,10 @@ sub _to_select {
 
        # Get items to select from
     $args->{items} = _select_items($args);
-use Data::Dumper;
-warn "Just got items. They are  " . Dumper($args->{items});
-
-       # Make select HTML element
-       $a = $self->_select_guts($col, $args);
+    # Make select HTML element
+    $a = $self->_select_guts($col, $args);
 
-       # Return 
+    # Return 
     $OLD_STYLE && return $a->as_HTML;
     $a;
 
@@ -578,7 +575,6 @@ sub _select_items {
        $sql .= " WHERE " . $args->{where}   if $args->{where};
        $sql .= " ORDER BY " . $args->{order_by} if $args->{order_by};
        $sql .= " LIMIT " . $args->{limit} if $args->{limit};
-warn "_select_items sql is : $sql";
 
        return $fclass->db_Main->selectall_arrayref($sql);
 
@@ -944,8 +940,7 @@ sub _options_from_arrays {
                my $content = ($fclass and $stringify and $fclass->can($stringify)) ? 
                              $fclass->$stringify($_) : 
                                  join('/', @{$_});
-use Data::Dumper;
-warn "Content is $content";
+
                $opt->push_content( $content );
         push @res, $opt; 
     }
@@ -1138,6 +1133,3 @@ L<Class::DBI>, L<Class::DBI::FromCGI>, L<HTML::Element>.
 
 =cut
 
-\r
-\r
-\r