Add link to the current month's archive page.
Patch by kareila.
diffs (46 lines):
diff -r 928985fb4aaa -r b956808a3d76 bin/upgrading/en.dat
--- a/bin/upgrading/en.dat Sun Jun 06 21:16:42 2010 -0500
+++ b/bin/upgrading/en.dat Mon Jun 07 02:46:41 2010 +0000
@@ -2177,6 +2177,8 @@ menunav.organize.selectstyle=Select Styl
menunav.read=Read
+menunav.read.archive=Archive
+
menunav.read.inbox.nounread=Inbox
menunav.read.inbox.unread2=Inbox [[num]]
diff -r 928985fb4aaa -r b956808a3d76 cgi-bin/DW/Logic/MenuNav.pm
--- a/cgi-bin/DW/Logic/MenuNav.pm Sun Jun 06 21:16:42 2010 -0500
+++ b/cgi-bin/DW/Logic/MenuNav.pm Mon Jun 07 02:46:41 2010 +0000
@@ -178,6 +178,11 @@ sub get_menu_navigation {
display => $loggedin_hasnetwork,
},
{
+ url => $u ? $u->archive_current_month : "",
+ text => "menunav.read.archive",
+ display => $loggedin_hasjournal,
+ },
+ {
url => "$LJ::SITEROOT/tools/recent_comments",
text => "menunav.read.recentcomments",
display => $loggedin,
diff -r 928985fb4aaa -r b956808a3d76 cgi-bin/LJ/User.pm
--- a/cgi-bin/LJ/User.pm Sun Jun 06 21:16:42 2010 -0500
+++ b/cgi-bin/LJ/User.pm Mon Jun 07 02:46:41 2010 +0000
@@ -1781,6 +1781,15 @@ sub allow_search_by {
}
+# returns a link to the current year and month in the user's archive
+sub archive_current_month {
+ my ( $u ) = @_;
+ return '' if $u->is_identity; # no archive to read
+ my $t = $u->time_now;
+ return sprintf( "%s/%02d/%02d/", $u->journal_base, $t->year, $t->mon );
+}
+
+
sub caps {
my $u = shift;
return $u->{caps};
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
