changed template path ordering, no longer return empty paths in TT view

[maypole.git] / lib / Maypole.pm

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index b08edbda68cdbf10c1493cbfd4e24c629f8ed6ea..5e85cdfe59b45b23e7cf16905b45598a926593ba 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -476,7 +476,6 @@ sub component {
 
     $self->get_user;
     my $url = URI->new($path);
-    warn "path : $path\n";
     $self->{path} = $url->path;
     $self->parse_path;
     $self->params( $url->query_form_hash );
@@ -689,7 +688,7 @@ want to use something like Log::Log4perl instead.
 
 sub warn { }
 
-=head2 build_form_elements
+=item build_form_elements
 
 $r->build_form_elements(0);
 
@@ -990,7 +989,6 @@ sub parse_path
 
     my @pi = grep {length} split '/', $self->path;
 
-
     $self->table  || $self->table(shift @pi);
     $self->action || $self->action( shift @pi or 'index' );
     $self->args   || $self->args(\@pi);