[Catalyst-commits] r12164 - trunk/examples/Advent09FormHandlerBlog/Blog/lib/Blog/Form

[alexn_org at dev.catalyst.perl.org]

Author: alexn_org
Date: 2009-12-03 17:03:22 +0000 (Thu, 03 Dec 2009)
New Revision: 12164

Modified:
   trunk/examples/Advent09FormHandlerBlog/Blog/lib/Blog/Form/Article.pm
Log:
changed join, map search => join, search->get_column

Modified: trunk/examples/Advent09FormHandlerBlog/Blog/lib/Blog/Form/Article.pm
===================================================================
--- trunk/examples/Advent09FormHandlerBlog/Blog/lib/Blog/Form/Article.pm	2009-12-03 16:58:26 UTC (rev 12163)
+++ trunk/examples/Advent09FormHandlerBlog/Blog/lib/Blog/Form/Article.pm	2009-12-03 17:03:22 UTC (rev 12164)
@@ -19,9 +19,10 @@
     my $self = shift;
     my $item = $self->item;
 
-    my $value = join ', ', map { $_->name } 
-       $item->tags->search({}, { order_by => 'name' })->all;
-    $self->field('tags_str')->value($value);
+    $self->field('tags_str')->value(
+	join ', ', 
+        $item->tags->search({}, { order_by => 'name' })->get_column('name')->all
+    );
 };
 
 around 'update_model' => sub {