diff options
-rw-r--r-- | lib/VNDB/Handler/Tags.pm | 2 | ||||
-rw-r--r-- | lib/VNDB/Handler/VNBrowse.pm | 2 | ||||
-rw-r--r-- | lib/VNDB/L10N.pm | 13 |
3 files changed, 2 insertions, 15 deletions
diff --git a/lib/VNDB/Handler/Tags.pm b/lib/VNDB/Handler/Tags.pm index 84f7f447..ae240d38 100644 --- a/lib/VNDB/Handler/Tags.pm +++ b/lib/VNDB/Handler/Tags.pm @@ -212,7 +212,7 @@ sub _vnlist { for (reverse sort split /\//, $l->{c_languages}); end; td class => 'tc5'; - lit $self->{l10n}->monthstr($l->{c_released}); + lit $self->{l10n}->datestr($l->{c_released}); end; td class => 'tc6', sprintf '%.2f', $l->{c_popularity}*100; end; diff --git a/lib/VNDB/Handler/VNBrowse.pm b/lib/VNDB/Handler/VNBrowse.pm index ab3d02b2..97d4fe26 100644 --- a/lib/VNDB/Handler/VNBrowse.pm +++ b/lib/VNDB/Handler/VNBrowse.pm @@ -111,7 +111,7 @@ sub list { for (reverse sort split /\//, $l->{c_languages}); end; td class => 'tc4'; - lit $self->{l10n}->monthstr($l->{c_released}); + lit $self->{l10n}->datestr($l->{c_released}); end; td class => 'tc5', sprintf '%.2f', $l->{c_popularity}*100; end; diff --git a/lib/VNDB/L10N.pm b/lib/VNDB/L10N.pm index 326635ea..d4ff872c 100644 --- a/lib/VNDB/L10N.pm +++ b/lib/VNDB/L10N.pm @@ -130,19 +130,6 @@ use warnings; return qq|<b class="future">$str</b>|; } - # same as datestr(), but different output format: - # e.g.: 'Jan 2009', '2009', 'unknown', 'TBA' - sub monthstr { - my $self = shift; - my $date = sprintf '%08d', shift||0; - my($y, $m, $d) = ($1, $2, $3) if $date =~ /^([0-9]{4})([0-9]{2})([0-9]{2})/; - return 'TBA' if $y == 9999; - return 'unknown' if $y == 0; - return $y if $m == 99; - my $r = sprintf '%s %d', [qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)]->[$m-1], $y; - return $d == 99 ? "<i>$r</i>" : $r; - } - # Arguments: (uid, username), or a hashref containing that info sub userstr { my $self = shift; |