[Catalyst-commits] r8297 - CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-08-26 21:22:09 +0100 (Tue, 26 Aug 2008)
New Revision: 8297

Modified:
   CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
Log:
move create seeding feature from RHTMLO to core

Modified: CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm	2008-08-26 20:20:37 UTC (rev 8296)
+++ CatalystX-CRUD/CatalystX-CRUD/trunk/lib/CatalystX/CRUD/Controller.pm	2008-08-26 20:22:09 UTC (rev 8297)
@@ -118,7 +118,7 @@
 
 =cut
 
-sub default : Private {
+sub default : Path {
     my ( $self, $c, @args ) = @_;
     $c->res->body('Not found');
     $c->res->status(404);
@@ -237,7 +237,7 @@
     else {
         $id = $obj->$pk;
     }
-    
+
     return $id unless defined $id;
 
     # must escape any / in $id since passing it to uri_for as-is
@@ -252,17 +252,41 @@
 Attribute: Local
 
 Namespace for creating a new object. Calls to fetch() and edit()
-with a B<primary_key> value of C<0> (zero).
+with a B<primary_key> value of C<0> (zero). 
 
+If the Form class has a 'field_value' method, create() will 
+pre-populate the Form instance and Object instance
+with param-based values (i.e. seeds the form via request params).
+
+Example:
+
+ http://localhost/foo/create?name=bar
+ # form and object will have name set to 'bar'
+
 B<NOTE:> This is a GET method named for consistency with the C
 in CRUD. It is not equivalent to a POST in REST terminology.
 
 =cut
 
-sub create : Local {
+sub create : Path('create') {
     my ( $self, $c ) = @_;
     $self->fetch( $c, 0 );
     $self->edit($c);
+
+    # allow for params to be passed in to seed the form/object
+    my $form = $c->stash->{form};
+    my $obj  = $c->stash->{object};
+    if ( $form->can('field_value') ) {
+        for my $field ( $self->field_names($c) ) {
+            if ( exists $c->req->params->{$field} ) {
+                $form->field_value( $field => $c->req->params->{$field} );
+                if ( $obj->can($field) ) {
+                    $obj->$field( $c->req->params->{$field} );
+                }
+            }
+        }
+    }
+
 }
 
 =head2 edit
@@ -531,7 +555,7 @@
         if ( uc( $c->req->method ) ne 'POST' ) {
             $c->res->status(400);
             $c->res->body('GET request not allowed');
-            $c->stash->{error} = 1; # so has_errors() will return true
+            $c->stash->{error} = 1;    # so has_errors() will return true
             return;
         }
     }
@@ -875,11 +899,13 @@
     unless ( $c->stash->{fetch_no_results} ) {
         $results = $self->do_model( $c, 'search', $query );
     }
-    if (    $results
-        and $count == 1
-        and $c->stash->{view_on_single_result}
-        and ( my $uri = $self->view_on_single_result( $c, $results ) ) )
+
+    if (   $results
+        && $count == 1
+        && $c->stash->{view_on_single_result}
+        && ( my $uri = $self->view_on_single_result( $c, $results ) ) )
     {
+        $c->log->debug("redirect for single_result") if $c->debug;
         $c->response->redirect($uri);
     }
     else {
@@ -890,7 +916,9 @@
         }
 
         $c->stash->{results}
-            = $self->naked_results ? $results : CatalystX::CRUD::Results->new(
+            = $self->naked_results
+            ? $results
+            : CatalystX::CRUD::Results->new(
             {   count   => $count,
                 pager   => $pager,
                 results => $results,
@@ -898,6 +926,7 @@
             }
             );
     }
+
 }
 
 =head1 CONVENIENCE METHODS