[Cpan-forum-commit] rev 225 - in trunk: . lib/CPAN/Forum/RM

[svn at pti.co.il]

Author: gabor
Date: 2006-09-01 12:10:19 +0300 (Fri, 01 Sep 2006)
New Revision: 225

Modified:
   trunk/
   trunk/lib/CPAN/Forum/RM/Dist.pm
   trunk/lib/CPAN/Forum/RM/Search.pm
Log:
some minor fixes



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

Modified: trunk/lib/CPAN/Forum/RM/Dist.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Dist.pm	2006-09-01 09:10:16 UTC (rev 224)
+++ trunk/lib/CPAN/Forum/RM/Dist.pm	2006-09-01 09:10:19 UTC (rev 225)
@@ -56,7 +56,12 @@
     my $page = $q->param('page') || 1;
     $self->_search_results($t, {where => {gid => $gid}, page => $page});
     $self->_subscriptions($t, $gr);
-    $t->param(pauseid_name => $gr->pauseid->pauseid);
+
+    # TODO: is is not clear to me how can here anything be undef, but I got
+    # several exceptions on eith $gr or $gr->pauseid being undef:
+    if ($gr and  $gr->pauseid and $gr->pauseid->pauseid) {
+        $t->param(pauseid_name => $gr->pauseid->pauseid);
+    }
     return $t->output;
 }
 

Modified: trunk/lib/CPAN/Forum/RM/Search.pm
===================================================================
--- trunk/lib/CPAN/Forum/RM/Search.pm	2006-09-01 09:10:16 UTC (rev 224)
+++ trunk/lib/CPAN/Forum/RM/Search.pm	2006-09-01 09:10:19 UTC (rev 225)
@@ -100,7 +100,7 @@
     $self->session->param(search_name => $name);
 
     if (not $what or not $name) {
-        $t->output;
+        return $t->output;
     }
 
     if ($what eq "module" or $what eq "pauseid") {