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

diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm
index e0cd7f2..023f88d 100644
--- 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) = @_;