Hi Andreas,

On Fri, 4 Jul 2008, Andreas Pronakis wrote:

SELECT me.story_id, me.journalist_user_id, me.revision, me.story_category_id, 
me.story_status_id, me.distribution_flag, me.date, me.created_timestamp, 
me.last_edit_timestamp, me.true_timestamp, me.order_id, me.delete_flag, 
me.publish_revision, me.creator_user_id, me.published_timestamp, 
me.external_code, me.external_sequence, me.type_id, me.expiry_datetime, 
me.source_id, me.headline, me.body, me.introduction, me.abstract, 
me.author_notes, me.by_line FROM (SELECT se.*, sb.* FROM story_edit se INNER 
JOIN story_body sb ON se.story_id = sb.story_id WHERE se.story_id = ? AND 
se.delete_flag = 0)
me: '2134660'


$new_source->name(\<<SQL);
(SELECT se.*, sb.* FROM story_edit se INNER JOIN story_body sb ON se.story_id = 
sb.story_id WHERE se.story_id = ? AND se.delete_flag = 0) self
SQL


Minor point of interest.. I don't actually see why you need a custom resultsource for this one at all, it looks like a query that plain DBIx::Class can easily do.. so.. why?

Jess


_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[EMAIL PROTECTED]

Reply via email to