Skip to content

Instantly share code, notes, and snippets.

@ogawa
Created March 20, 2013 10:36
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ogawa/5203718 to your computer and use it in GitHub Desktop.
Save ogawa/5203718 to your computer and use it in GitHub Desktop.
diff --git a/FiscalYearlyArchives/fiscal_yearly_archives.pl b/FiscalYearlyArchives/fiscal_yearly_archives.pl
index 4c57e36..fedac03 100644
--- a/FiscalYearlyArchives/fiscal_yearly_archives.pl
+++ b/FiscalYearlyArchives/fiscal_yearly_archives.pl
@@ -57,7 +57,7 @@ sub archive_fiscal_year {
my $tag = $ctx->stash('tag');
return $ctx->error(MT->translate("You used an [_1] tag without a date context set up.", "MT$tag"))
unless defined $ts;
- ts2fiscal($ts);
+ ts2fiscal($ts) + 1;
}
1;
diff --git a/FiscalYearlyArchives/lib/FiscalYearlyArchives/AuthorFiscalYearly.pm b/FiscalYearlyArchives/lib/FiscalYearlyArchives/AuthorFiscalYearly.pm
index d424553..20bd0be 100644
--- a/FiscalYearlyArchives/lib/FiscalYearlyArchives/AuthorFiscalYearly.pm
+++ b/FiscalYearlyArchives/lib/FiscalYearlyArchives/AuthorFiscalYearly.pm
@@ -46,7 +46,7 @@ sub archive_title {
my $obj = shift;
my ( $ctx, $entry_or_ts ) = @_;
my $ts = ref $entry_or_ts ? $entry_or_ts->authored_on : $entry_or_ts;
- my $year = ts2fiscal($ts);
+ my $year = ts2fiscal($ts) + 1;
my $lang = lc MT->current_language || 'en_us';
$lang = 'ja' if lc($lang) eq 'jp';
my $author = $obj->display_name($ctx);
diff --git a/FiscalYearlyArchives/lib/FiscalYearlyArchives/CategoryFiscalYearly.pm b/FiscalYearlyArchives/lib/FiscalYearlyArchives/CategoryFiscalYearly.pm
index 77174e9..2492cc4 100644
--- a/FiscalYearlyArchives/lib/FiscalYearlyArchives/CategoryFiscalYearly.pm
+++ b/FiscalYearlyArchives/lib/FiscalYearlyArchives/CategoryFiscalYearly.pm
@@ -46,7 +46,7 @@ sub archive_title {
my $obj = shift;
my ( $ctx, $entry_or_ts ) = @_;
my $ts = ref $entry_or_ts ? $entry_or_ts->authored_on : $entry_or_ts;
- my $year = ts2fiscal($ts);
+ my $year = ts2fiscal($ts) + 1;
my $lang = lc MT->current_language || 'en_us';
$lang = 'ja' if lc($lang) eq 'jp';
my $cat = $obj->display_name($ctx);
diff --git a/FiscalYearlyArchives/lib/FiscalYearlyArchives/FiscalYearly.pm b/FiscalYearlyArchives/lib/FiscalYearlyArchives/FiscalYearly.pm
index ba1e700..8bc476f 100644
--- a/FiscalYearlyArchives/lib/FiscalYearlyArchives/FiscalYearly.pm
+++ b/FiscalYearlyArchives/lib/FiscalYearlyArchives/FiscalYearly.pm
@@ -42,7 +42,7 @@ sub archive_title {
my $obj = shift;
my ( $ctx, $entry_or_ts ) = @_;
my $ts = ref $entry_or_ts ? $entry_or_ts->authored_on : $entry_or_ts;
- my $year = ts2fiscal($ts);
+ my $year = ts2fiscal($ts) + 1;
my $lang = lc MT->current_language || 'en_us';
$lang = 'ja' if lc($lang) eq 'jp';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment