moved external links from navbar into subpage

charsbar · Apr 14, 2008 · 0fab27c · 0fab27c
1 parent f268bdb
commit 0fab27c
Show file tree

Hide file tree

Showing 7 changed files with 23 additions and 24 deletions.
diff --git a/Changes b/Changes
@@ -4,6 +4,7 @@
 
 
 0.76-tobe
+    - moved external links from navbar into subpage
     - added BindLex to various Controllers
     - if only one dist/author is found, directly redirect to
       overview page

diff --git a/cpants/root/static/cpants.css b/cpants/root/static/cpants.css
@@ -92,15 +92,6 @@ pre {
 color: #fff;
 }
 
-.distlinks {
-	white-space: nowrap;
-  border-bottom: 1px solid #000;
-  border-left: 1px solid #000; 
-  border-right: 1px solid #000;
-  padding:7px;
-  background-color:#eee;
-}
-
 .grey { background-color:#ddd }
 .ok { background-color:#0f0 }
 .not_ok { background-color:#f00 }

diff --git a/cpants/templates/dist/external b/cpants/templates/dist/external
@@ -0,0 +1,15 @@
+[% INCLUDE 'dist/intro' %]
+
+<h2>External Links</h2>
+
+[% distname = dist.dist %]
+<ul>
+<li><a href="http://search.cpan.org/dist/[% distname %]">search.cpan.org</a>
+<li><a href="http://cpan.uwinnipeg.ca/dist/[% distname %]">Kobes search</a>
+<li><a href="http://rt.cpan.org/NoAuth/Bugs.html?Dist=[% distname %]">rt.cpan.org</a>
+<li><a href="http://cpanratings.perl.org/d/[% distname %]">cpanratings.perl.org</a>
+<li><a href="http://testers.cpan.org/show/[% distname %].html">cpantesters</a>
+<li><a href="http://www.cpanforum.com/dist/[% distname %]">CPAN::Forum</a>
+<li><a href="http://search.cpan.org/src/[% dist.author.pauseid %]/[% dist.vname %]">browse source at search.cpan.org</a>
+</ul>
+
diff --git a/cpants/templates/dist/intro b/cpants/templates/dist/intro
@@ -1,5 +1,6 @@
 <h1>[% dist.vname %] (<a href="/author/[% dist.author.pauseid %]">[% dist.author.pauseid %]</a>)</h1>
 
+
 <div class="distsubnav">
 [% FOREACH navitem IN [
     ['overview',    'Overview'],
@@ -10,6 +11,7 @@
     ['provides',    'Modules provided'],
     ['errors',      'Errors'],
     ['json',        'JSON'],
+    ['external',    'External'],
 ] %]
 [% "<b>" IF c.action.name == navitem.0 %]
 <a href="/dist/[% navitem.0 %]/[% dist.dist %]">[% navitem.1 %]</a>

diff --git a/cpants/templates/widgets/distlinks b/cpants/templates/widgets/distlinks
diff --git a/cpants/templates/wrapper b/cpants/templates/wrapper
@@ -24,8 +24,6 @@
 
 [% USE Number.Format %]
 
-[% INCLUDE 'widgets/distlinks' IF dist %]
-
 [% IF cpants_is_analysing %]
 <div class="warning">
 CPANTS is currently analysing dists. Results might be inconsistent!

diff --git a/lib/Module/CPANTS/Site/Controller/Dist.pm b/lib/Module/CPANTS/Site/Controller/Dist.pm
@@ -76,6 +76,11 @@ sub errors : Local {
     $c->forward('get_dist',[ $distname ]);
 }
 
+sub external : Local {
+    my ( $self, $c, $distname ) = @_;
+    $c->forward('get_dist',[ $distname ]);
+}
+
 sub get_dist : Private {
     my ( $self, $c, $distname ) = @_;