[Cpan-forum-commit] rev 317 - in trunk: . lib/CPAN lib/CPAN/Forum/DB

[svn at pti.co.il]

Author: gabor
Date: 2007-08-05 07:12:10 +0300 (Sun, 05 Aug 2007)
New Revision: 317

Modified:
   trunk/
   trunk/lib/CPAN/Forum.pm
   trunk/lib/CPAN/Forum/DB/Posts.pm
Log:
remove some unused code



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4373
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4378
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum/DB/Posts.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Posts.pm	2007-08-02 06:25:17 UTC (rev 316)
+++ trunk/lib/CPAN/Forum/DB/Posts.pm	2007-08-05 04:12:10 UTC (rev 317)
@@ -129,6 +129,7 @@
     return {} if not @thread_ids;
     # TODO check if they are all numbers?
 
+    #Carp::cluck(Data::Dumper->Dump([\@thread_ids],['thread_ids']));
     my $ids = join ",", @thread_ids;
     my $sql = "SELECT thread, COUNT(*) cnt FROM posts WHERE thread in ($ids) GROUP BY thread";
     return $self->_selectall_hashref($sql, 'thread');

Modified: trunk/lib/CPAN/Forum.pm
===================================================================
--- trunk/lib/CPAN/Forum.pm	2007-08-02 06:25:17 UTC (rev 316)
+++ trunk/lib/CPAN/Forum.pm	2007-08-05 04:12:10 UTC (rev 317)
@@ -962,23 +962,6 @@
         }
     }
 
-#    if (not @group_ids) {
-        #my @groups = CPAN::Forum::DB::Groups->search(gtype => $CPAN::Forum::DBI::group_types{Distribution});
-#        my $groups = CPAN::Forum::DB::Groups->groups_by_gtype($CPAN::Forum::DBI::group_types{Distribution});
-#warn Dumper $groups;
-#        %group_labels = %$groups;
-    # id => name
-#        @group_ids = keys %$groups;
-        #@group_ids = sort { $groups->{$a} cmp $groups->{$b} } keys %$groups;
-
-#       @groups = (
-#       "Global", 
-#       "----",
-#       (sort map {$_->name} CPAN::Forum::DB::Groups->search(gtype => $CPAN::Forum::DBI::group_types{Fields})),
-#       "----",
-#           (sort map {$_->name} CPAN::Forum::DB::Groups->search(gtype => $CPAN::Forum::DBI::group_types{Distribution})),
-#       );
-#    }
     @group_ids = sort {$group_labels{$a} cmp $group_labels{$b}}  @group_ids;
     
     return $q->popup_menu(-name => "new_group", -values => \@group_ids, -labels => \%group_labels);