X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FMaypole%2FModel%2FCDBI%2FAsForm.pm;h=3c35dfc5fa4b23b978cb886986cd528123f1d863;hb=3ed98309a0852fc198f9e4d0e6f70c5510c8282f;hp=023f88d8bda9258d7dc4e77b3f9f2894a7cd432f;hpb=7249c53d755f2eb5b8b5bb471ff49b8dd6f3dbf0;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm
index 023f88d..3c35dfc 100644
--- 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
 
-
-
-