[Cpan-forum-commit] rev 217 - in trunk: . lib/CPAN

[svn at pti.co.il]

Author: gabor
Date: 2006-08-31 11:48:35 +0300 (Thu, 31 Aug 2006)
New Revision: 217

Modified:
   trunk/
   trunk/lib/CPAN/Forum.pm
Log:
start adding recent_threads



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:11099
   + 8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:11100

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2006-08-31 08:48:31 UTC (rev 216)
+++ trunk/lib/CPAN/Forum.pm	2006-08-31 08:48:35 UTC (rev 217)
@@ -8,9 +8,7 @@
 use CGI::Application::Plugin::Session;
 use CGI::Application::Plugin::LogDispatch;
 use Data::Dumper qw(Dumper);
-#use Fcntl qw(:flock);
 use POSIX qw(strftime);
-#use Carp qw(cluck carp);
 use Mail::Sendmail qw(sendmail);
 use CGI ();
 use List::MoreUtils qw(any);
@@ -534,7 +532,8 @@
     admin
     admin_edit_user
     mypan selfconfig 
-    search all rss); 
+    search all rss 
+); 
 
 use base 'CPAN::Forum::RM::Author';
 use base 'CPAN::Forum::RM::Dist';
@@ -697,15 +696,27 @@
 
 =head2 home
 
-This the default run mode, it shows the home page that includes the list of
-most recent posts.
+This the default run mode, it shows the home page.
+Currently aliased to C<all()>;
 
+
 =cut
 sub home {
+    all(@_);
+}
+
+
+=head2 all
+
+List the most recent posts.
+
+=cut
+
+sub all {
     my $self = shift;
     my $q = $self->query;
     
-    $self->log->debug("home");
+    $self->log->debug("all");
     my $t = $self->load_tmpl("home.tmpl",
         loop_context_vars => 1,
     );
@@ -716,14 +727,22 @@
     $t->output;
 }
 
+=head2 recent_thread
 
-=head2 all
+Display the posts of the most recent threads
+Not yet working.
 
-An alias of the C<home()> run-mode.
 =cut
 
-sub all {
-    home(@_);
+sub recent_threads {
+    my ($self) = @_;
+    my $q = $self->query;
+
+    $self->log->debug("recent_threads");
+    my $t = $self->load_tmpl("home.tmpl",
+        loop_context_vars => 1,
+    );
+    $t->output; 
 }