summaryrefslogtreecommitdiff
path: root/lib/VNDB/Func.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2016-01-16 11:52:22 +0100
committerYorhel <git@yorhel.nl>2016-01-16 15:11:36 +0100
commit6313653b01652affded23d682d136e5e6ee42799 (patch)
tree528263a90a2c336c3ab6226c211a1abeccffacb3 /lib/VNDB/Func.pm
parentca1a9c48c24a436babd30ad9e315db2781364879 (diff)
L10N: Intern languages/platforms/resolutions/media/ptype/rtype/vnlength
Diffstat (limited to 'lib/VNDB/Func.pm')
-rw-r--r--lib/VNDB/Func.pm23
1 files changed, 20 insertions, 3 deletions
diff --git a/lib/VNDB/Func.pm b/lib/VNDB/Func.pm
index 2644ea35..693d378f 100644
--- a/lib/VNDB/Func.pm
+++ b/lib/VNDB/Func.pm
@@ -10,9 +10,9 @@ use JSON::XS;
use VNDBUtil;
our @EXPORT = (@VNDBUtil::EXPORT, qw|
clearfloat cssicon tagscore mt minage fil_parse fil_serialize parenttags
- childtags charspoil imgpath imgurl fmtvote
+ childtags charspoil imgpath imgurl fmtvote fmtmedia fmtvnlen
json_encode json_decode script_json
- mtvoiced mtani mtvnlen mtrlstat mtvnlstat mtbloodt
+ mtvoiced mtani mtrlstat mtvnlstat mtbloodt
form_compare
|);
@@ -204,6 +204,24 @@ sub fmtvote {
return !$_[0] ? '-' : $_[0] % 10 == 0 ? $_[0]/10 : sprintf '%.1f', $_[0]/10;
}
+# Formats a media string ("1 CD", "2 CDs", "Internet download", etc)
+sub fmtmedia {
+ my($med, $qty) = @_;
+ $med = $TUWF::OBJ->{media}{$med};
+ join ' ',
+ ($med->[0] ? ($qty) : ()),
+ $med->[ $med->[0] && $qty > 1 ? 2 : 1 ];
+}
+
+# Formats a VN length (xtra = 1 for time indication, 2 for examples)
+sub fmtvnlen {
+ my($len, $xtra) = @_;
+ $len = $TUWF::OBJ->{vn_lengths}[$len];
+ $len->[0].
+ ($xtra && $xtra == 1 && $len->[1] ? " ($len->[1])" : '').
+ ($xtra && $xtra == 2 && $len->[2] ? " ($len->[2])" : '');
+}
+
# JSON::XS::encode_json converts input to utf8, whereas the below functions
# operate on wide character strings. Canonicalization is enabled to allow for
@@ -233,7 +251,6 @@ sub script_json {
# value for 'unknown'.
sub mtvoiced { !$_[0] ? mt '_unknown' : mt '_voiced_'.$_[0]; }
sub mtani { !$_[0] ? mt '_unknown' : mt '_animated_'.$_[0]; }
-sub mtvnlen { !$_[0] ? mt '_unknown' : mt '_vnlength_'.$_[0], $_[1]||0; }
sub mtrlstat { !$_[0] ? mt '_unknown' : mt '_rlist_status_'.$_[0]; }
sub mtvnlstat{ !$_[0] ? mt '_unknown' : mt '_vnlist_status_'.$_[0]; }
sub mtbloodt { $_[0] eq 'unknown' ? mt '_unknown' : mt '_bloodt_'.$_[0]; }