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 e0cd7f21c7919388d7b42a67a3700fc5f23d7873..3c35dfc5fa4b23b978cb886986cd528123f1d863 100644 (file)
--- a/lib/Maypole/Model/CDBI/AsForm.pm
+++ b/lib/Maypole/Model/CDBI/AsForm.pm
@@ -53,7 +53,7 @@ Maypole::Model:CDBI::AsForm - Produce HTML form elements for database columns
        __PACKAGE__->has_a('beer',    'BeerDB::Beer');
        package BeerDB::Drinker;
        __PACKAGE__->has_many('pints', 'BeerDB::Pint');
-       
+
        # NEED to do mapping 
        my $sel = BeerDB::Drinker->to_field('pints', 'select') # multiple
        my $sel = $Drunk->to_field('pints', 'select'); # Already had beers selected
@@ -90,8 +90,7 @@ __PACKAGE__->has_many('contacts'  => 'Contact',
 
 
 
-       # Random uses 
-       
+  # Random uses
 
 
 =head1 DESCRIPTION
@@ -117,7 +116,8 @@ Uses fields specified in search_fields, makes foreign inputs if necessary.
 
 =cut
 
-# TODO -- use search_columns 
+# TODO -- use search_columns
+
 sub search_inputs {
   my ($class, $r) = @_;
   warn "In model search_inputs " if $class->model_debug;
@@ -169,6 +169,12 @@ sub unselect_element {
 }
 
 
+=head2 a_select_box
+
+  Returns a HTML::Element representing a select box, based on the arguments
+
+=cut
+
 # make a select box from args
 sub a_select_box {
        my ($self, $name, $vals, $selected_val, $contents) = @_;
@@ -537,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;
 
@@ -572,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);
 
@@ -938,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; 
     }
@@ -1132,6 +1133,3 @@ L<Class::DBI>, L<Class::DBI::FromCGI>, L<HTML::Element>.
 
 =cut
 
-\r
-\r
-\r