Model::Stories: get_related_items returls full stories object

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index a805dc4..500481e 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -607,7 +607,8 @@ sub get_related_items {
     my $sql = <<"EOSQL";
 SELECT related.*, 
        story_text.title as title2,
-       firehose.srcid,
+       firehose.*,
+       stories.*,
        topics.*
   FROM (
     SELECT * FROM related_stories
@@ -616,7 +617,7 @@ SELECT related.*,
     ) AS related
   LEFT JOIN story_text ON story_text.stoid = related.rel_stoid
   LEFT JOIN firehose ON firehose.id = related.fhid
-  LEFT JOIN stories ON stories.stoid = related.rel_stoid
+  LEFT JOIN stories ON stories.sid = related.rel_sid
   LEFT JOIN topics ON topics.tid = stories.tid
 EOSQL
 
@@ -626,6 +627,7 @@ EOSQL
     $self->disconnect_db();
 
     for my $r (@$related) {
+        $r->{create_time} = $r->{time};
         $r->{title} = $r->{title2} unless $r->{title};
         if ($r->{rel_sid}) {
             $r->{type} = "story";