r32114 - in /branches/upstream/libcatalyst-manual-perl/current: Changes lib/Catalyst/Manual.pm lib/Catalyst/Manual/Tutorial.pod lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sun Mar 15 15:36:29 UTC 2009
Author: gregoa
Date: Sun Mar 15 15:36:25 2009
New Revision: 32114
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32114
Log:
[svn-upgrade] Integrating new upstream version, libcatalyst-manual-perl (5.7020)
Modified:
branches/upstream/libcatalyst-manual-perl/current/Changes
branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual.pm
branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial.pod
branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod
Modified: branches/upstream/libcatalyst-manual-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-manual-perl/current/Changes?rev=32114&op=diff
==============================================================================
--- branches/upstream/libcatalyst-manual-perl/current/Changes (original)
+++ branches/upstream/libcatalyst-manual-perl/current/Changes Sun Mar 15 15:36:25 2009
@@ -1,4 +1,7 @@
Revision history for Catalyst-Manual
+
+5.7020 12 Mar 2009
+ - Fix errors in FormFu chapter.
5.7019 11 Mar 2009
- Change from the use of "part" to refer to each .pod file for the
Modified: branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual.pm?rev=32114&op=diff
==============================================================================
--- branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual.pm (original)
+++ branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual.pm Sun Mar 15 15:36:25 2009
@@ -6,7 +6,7 @@
use strict;
use warnings;
-our $VERSION = '5.7019';
+our $VERSION = '5.7020';
=head1 NAME
Modified: branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial.pod?rev=32114&op=diff
==============================================================================
--- branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial.pod (original)
+++ branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial.pod Sun Mar 15 15:36:25 2009
@@ -705,10 +705,10 @@
Ragwitz, Mauro Andreolini, Jim Howard, Giovanni Gigante, William
Moreno, Bryan Roach, Ashley Berlin, David Kamholz, Kevin Old, Henning
Sprang, Jeremy Jones, David Kurtz, Ingo Wichmann, Shlomi Fish, Murray
-Walker. Also, thanks to Devin Austin for coming up with an initial
-version of a non-TTSite wrapper page. I'm sure I am missing some
-names here... apologies for that (please let me know if you name
-should be here).
+Walker and Adam Witney. Also, thanks to Devin Austin for coming up
+with an initial version of a non-TTSite wrapper page. I'm sure I am
+missing some names here... apologies for that (please let me know if
+you name should be here).
=back
Modified: branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod?rev=32114&op=diff
==============================================================================
--- branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod (original)
+++ branches/upstream/libcatalyst-manual-perl/current/lib/Catalyst/Manual/Tutorial/AdvancedCRUD/FormFu.pod Sun Mar 15 15:36:25 2009
@@ -121,7 +121,7 @@
=cut
- sub formfu_create :Chained('base) :PathPart('formfu_create') :Args(0) :FormConfig {
+ sub formfu_create :Chained('base') :PathPart('formfu_create') :Args(0) :FormConfig {
my ($self, $c) = @_;
# Get the form that the :FormConfig attribute saved in the stash
@@ -450,10 +450,10 @@
sub formfu_edit :Chained('object') :PathPart('formfu_edit') :Args(0)
:FormConfig('books/formfu_create.yml') {
- my ($self, $c, $id) = @_;
-
- # Get the specified book
- my $book = $c->model('DB::Books')->find($id);
+ my ($self, $c) = @_;
+
+ # Get the specified book already saved by the 'object' method
+ my $book = $c->stash->{object};
# Make sure we were able to get a book
unless ($book) {
@@ -481,7 +481,7 @@
my @author_objs = $c->model("DB::Authors")->all();
# Create an array of arrayrefs where each arrayref is an author
my @authors;
- foreach (sort {$a->last_name cmp $b->last_name} @author_bjs) {
+ foreach (sort {$a->last_name cmp $b->last_name} @author_objs) {
push(@authors, [$_->id, $_->last_name]);
}
# Get the select added by the config file
@@ -504,7 +504,15 @@
=item *
-We accept C<$id> as an argument via the URL.
+We have to manually specify the name of the FormFu .yml file as an
+argument to C<:FormConfig> because the name can no longer be
+automatically deduced from the name of our action/method (by default,
+FormFu would look for a file named C<books/formfu_edit.yml>).
+
+=item *
+
+We load the book object from the stash (found using the $id passed to
+the Chained object method)
=item *
@@ -512,9 +520,9 @@
=item *
-We make sure the C<$id> and book lookup returned a valid book. If not,
-we set the error message and return to the book list.
-
+We make sure the book lookup returned a valid book. If not, we set
+the error message and return to the book list.
+
=item *
If the form has been submitted and passes validation, we skip creating a
More information about the Pkg-perl-cvs-commits
mailing list