From 234864cf99fd0eb30cdc561e29dda14a1536cacc Mon Sep 17 00:00:00 2001 From: Yorhel Date: Sun, 19 Dec 2010 19:07:27 +0100 Subject: RFC-01: Code/DB cleanup and renamed some stuff for consistency --- lib/VNDB/Func.pm | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'lib/VNDB/Func.pm') diff --git a/lib/VNDB/Func.pm b/lib/VNDB/Func.pm index dcec9e8f..bb8ad775 100644 --- a/lib/VNDB/Func.pm +++ b/lib/VNDB/Func.pm @@ -7,7 +7,7 @@ use YAWF ':html'; use Exporter 'import'; use POSIX 'strftime', 'ceil', 'floor'; use VNDBUtil; -our @EXPORT = (@VNDBUtil::EXPORT, qw| liststat clearfloat cssicon tagscore mt minage fil_parse fil_serialize |); +our @EXPORT = (@VNDBUtil::EXPORT, qw| clearfloat cssicon tagscore mt minage fil_parse fil_serialize |); # three ways to represent the same information @@ -16,21 +16,6 @@ our @fil_escape = split //, $fil_escape; our %fil_escape = map +($fil_escape[$_], sprintf '%02d', $_), 0..$#fil_escape; -# Argument: hashref with rstat and vstat -# Returns: empty string if not in list, otherwise colour-encoded list status -sub liststat { - my $l = shift; - return '' if !$l; - my $rs = mt('_rlst_rstat_'.$l->{rstat}); - $rs = qq|$rs| if $l->{rstat} == 2; # Obtained - $rs = qq|$rs| if $l->{rstat} < 2; # Unknown/pending - my $vs = mt('_rlst_vstat_'.$l->{vstat}); - $vs = qq|$vs| if $l->{vstat} == 2; # Finished - $vs = qq|$vs| if $l->{vstat} == 0 || $l->{vstat} == 4; # Unknown/dropped - return "$rs / $vs"; -} - - # Clears a float, to make sure boxes always have the correct height sub clearfloat { div class => 'clearfloat', ''; -- cgit v1.2.3