[Bast-commits] r9173 - ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-04-15 00:02:05 +0100 (Thu, 15 Apr 2010)
New Revision: 9173

Modified:
   ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
Log:
Switching tag retrieval to list mode rather than scalar so we get all of the tags rather than just the first

Modified: ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-04-14 22:08:23 UTC (rev 9172)
+++ ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-04-14 23:02:05 UTC (rev 9173)
@@ -152,12 +152,15 @@
             next;
         }
 
+        # Get the entry tags
+        my @tags = $post->_entry->category;
+
         try {
             # Do that whole insert thing...
             $self->schema->resultset('Post')->populate( [ {
                 feed_id          => $post->feed->id,
                 author           => $post->_entry->author,
-                tags             => $post->_entry->category,
+                tags             => join(",", @tags),
                 url              => $post->_entry->link,
                 title            => $post->_entry->title,
                 posted_on        => $post->_entry->issued || DateTime->now,