Changeset Navigation

Changeset 725

Timestamp:

05/13/06 04:18:50

Author:

typester

Message:

Files:

branches/feature-server/plagger/bin/plaggerldr_server.pl
- Property svn:executable set to *

r708	r725
20	20	my($self, $c) = @_;
21	21
	22	my $feeds =
	23	$c->req->params->{unread}
	24	? $schema->resultset('Feed')->search(
	25	{ 'entries.read' => 0 },
	26	{
	27	join => [qw/entries/],
	28	group_by => [qw/feed/],
	29	include_columns => ['count(*)']
	30	}
	31	)
	32	: $schema->resultset('Feed')->search;
	33
22	34	my @subs;
23		for my $feed ( $schema->resultset('Feed')->search({ }) ) {
24		my $unread = $feed->entries({ read => 0 })->count;
25		next if $c->req->param('unread') && $unread == 0;
26
	35	for my $feed ( $feeds->all ) {
27	36	push @subs, {
28	37	icon => "http://image.reader.livedoor.com/img/icon/default.gif", # TODO
29	38	subscribe_id => $feed->id,
30		unread_count => ~~$unread~~,
	39	unread_count => eval { $feed->get_column('count(*)') } \|\| 0,
31	40	folder => eval { ($feed->tags)[0]->name } \|\| '',
32	41	tags => [], # TODO