[Cpan-forum-commit] rev 134 - in trunk: lib/CPAN templates

[svn at pti.co.il]

Author: gabor
Date: 2005-03-22 17:44:49 +0200 (Tue, 22 Mar 2005)
New Revision: 134

Modified:
   trunk/lib/CPAN/Forum.pm
   trunk/templates/groups.tmpl
Log:
add list of users who monitor a subforum

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2005-03-22 14:55:23 UTC (rev 133)
+++ trunk/lib/CPAN/Forum.pm	2005-03-22 15:44:49 UTC (rev 134)
@@ -1621,9 +1621,29 @@
 	$self->set_ratings($t, $group);
 	my $page = $q->param('page') || 1;
 	$self->_search_results($t, {where => {gid => $gid}, page => $page});
+	$self->_subscriptions($t, $gid);
 	$t->output;
 }
 
+
+sub _subscriptions {
+	my ($self, $t, $gid) = @_;
+
+
+	my @people;
+	my (@subs) = CPAN::Forum::Subscriptions->search(gid => $gid);
+	foreach my $s (@subs) {
+		push @people, {
+			username => $s->uid->username,
+		};
+	}
+	if (@people) {
+		$t->param(users => \@people);
+	}
+}
+
+
+
 =head2 users
 
 List the posts of a particular user.

Modified: trunk/templates/groups.tmpl
===================================================================
--- trunk/templates/groups.tmpl	2005-03-22 14:55:23 UTC (rev 133)
+++ trunk/templates/groups.tmpl	2005-03-22 15:44:49 UTC (rev 134)
@@ -27,5 +27,12 @@
 </p>
 <TMPL_INCLUDE NAME="listing.tmpl">
 
+<p>
+Users currently monitoring this forum:
+<TMPL_LOOP users>
+   <a href="/users/<TMPL_VAR username>"><TMPL_VAR username></a>, 
+</TMPL_LOOP>
+</p>
+
 <p><a href="/rss/dist/<TMPL_VAR group>"><img src="/img/rss1.gif" alt="RSS Feed" /></a></p>
 <TMPL_INCLUDE NAME="footer.tmpl">