[dw-free] add nav link to network page

[afuna]

[commit: http://hg.dwscoalition.org/dw-free/rev/abc9470ac619]

http://bugs.dwscoalition.org/show_bug.cgi?id=1323

Add "Network" to Read menu (for paid accounts)

Patch by kareila.

Files modified:

• bin/upgrading/en.dat
• cgi-bin/DW/Logic/MenuNav.pm

--------------------------------------------------------------------------------
diff -r 3101c8b9c736 -r abc9470ac619 bin/upgrading/en.dat
--- a/bin/upgrading/en.dat	Mon Jun 22 17:14:50 2009 +0000
+++ b/bin/upgrading/en.dat	Wed Jun 24 14:24:13 2009 +0000
@@ -2191,6 +2191,8 @@ menunav.read.inbox.nounread=Inbox
 
 menunav.read.inbox.unread=Inbox ([[num]])
 
+menunav.read.network=Network Page
+
 menunav.read.profile=Profile
 
 menunav.read.readinglist=Reading Page
diff -r 3101c8b9c736 -r abc9470ac619 cgi-bin/DW/Logic/MenuNav.pm
--- a/cgi-bin/DW/Logic/MenuNav.pm	Mon Jun 22 17:14:50 2009 +0000
+++ b/cgi-bin/DW/Logic/MenuNav.pm	Wed Jun 24 14:24:13 2009 +0000
@@ -53,6 +53,7 @@ sub get_menu_navigation {
     my $loggedin = ( defined( $u ) && $u ) ? 1 : 0;
     my $loggedin_hasjournal = ( $loggedin && !$u->is_identity ) ? 1 : 0;
     my $loggedin_canjoincomms = ( $loggedin && $u->is_person ) ? 1 : 0;   # note the semantic difference
+    my $loggedin_hasnetwork = ( $loggedin && LJ::get_cap($u, "friendsfriendsview") ) ? 1 : 0;
     my $loggedout = $loggedin ? 0 : 1;
     my $always = 1;
     my $never = 0;
@@ -168,6 +169,11 @@ sub get_menu_navigation {
                     display => $loggedin_hasjournal,
                 },
                 {
+                    url => $u ? $u->journal_base . "/network" : "",
+                    text => "menunav.read.network",
+                    display => $loggedin_hasnetwork,
+                },
+                {
                     url => "$LJ::SITEROOT/tools/recent_comments.bml",
                     text => "menunav.read.recentcomments",
                     display => $loggedin,
--------------------------------------------------------------------------------