[Catalyst-commits] r12165 - trunk/examples/CatalystAdvent/root/2009

[alexn_org at dev.catalyst.perl.org]

Author: alexn_org
Date: 2009-12-03 17:04:01 +0000 (Thu, 03 Dec 2009)
New Revision: 12165

Modified:
   trunk/examples/CatalystAdvent/root/2009/3.pod
Log:
changed join, map search => join, search->get_column

Modified: trunk/examples/CatalystAdvent/root/2009/3.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2009/3.pod	2009-12-03 17:03:22 UTC (rev 12164)
+++ trunk/examples/CatalystAdvent/root/2009/3.pod	2009-12-03 17:04:01 UTC (rev 12165)
@@ -320,9 +320,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
+      );
   };
 
 =head3 A custom type