L10N: Extracted VN lenghts

5 files changed, 33 insertions, 13 deletions

diff --git a/data/global.pl b/data/global.pl
index 7a0c5ac4..4ab04d5b 100644
--- a/data/global.pl
+++ b/data/global.pl
@@ -34,14 +34,7 @@ our %S = (%S,
   languages       => [qw|cs da de en es fi fr it ja ko nl no pl pt ru sv tr vi zh|],
   producer_types  => [qw|co in ng|],
   discussion_boards => [qw|an db v p u|],
-  vn_lengths      => [
-    [ 'Unknown',    '',              '' ],
-    [ 'Very short', '< 2 hours',     'OMGWTFOTL, A Dream of Summer' ],
-    [ 'Short',      '2 - 10 hours',  'Narcissu, Planetarian' ],
-    [ 'Medium',     '10 - 30 hours', 'Kana: Little Sister' ],
-    [ 'Long',       '30 - 50 hours', 'Tsukihime' ],
-    [ 'Very long',  '> 50 hours',    'Clannad' ],
-  ],
+  vn_lengths      => [ 0..5 ],
   anime_types     => [
     # AniDB anime type starts counting at 1, 0 = unknown
     #   we start counting at 0, with NULL being unknown
diff --git a/data/lang.txt b/data/lang.txt
index 57f93e2e..ae9a9292 100644
--- a/data/lang.txt
+++ b/data/lang.txt
@@ -452,6 +452,33 @@ en : masterpiece
 ru : шедевр
 
 
+# VN lengths
+
+:_vnlength_0
+en : Unknown
+ru*:
+
+:_vnlength_1
+en : Very short[index,_1,, (< 2 hours), (OMGWTHOTL~, A Dream of Summer)]
+ru*:
+
+:_vnlength_2
+en : Short[index,_1,, (2 - 10 hours), (Narcissu~, Planetarian)]
+ru*:
+
+:_vnlength_3
+en : Medium[index,_1,, (10 - 30 hours), (Kana: Little Sister)]
+ru*:
+
+:_vnlength_4
+en : Long[index,_1,, (30 - 50 hours), (Tsukihime)]
+ru*:
+
+:_vnlength_5
+en : Very long[index,_1,, (> 50 hours), (Clannad)]
+ru*:
+
+
 # Form messages
 
 :_formerr_e_login_failed
diff --git a/lib/VNDB/Handler/VNEdit.pm b/lib/VNDB/Handler/VNEdit.pm
index fdd892c1..55bbea95 100644
--- a/lib/VNDB/Handler/VNEdit.pm
+++ b/lib/VNDB/Handler/VNEdit.pm
@@ -39,7 +39,7 @@ sub edit {
       { name => 'original',    required => 0, maxlength => 250, default => '' },
       { name => 'alias',       required => 0, maxlength => 500, default => '' },
       { name => 'desc',        required => 0, default => '', maxlength => 10240 },
-      { name => 'length',      required => 0, default => 0,  enum => [ 0..$#{$self->{vn_lengths}} ] },
+      { name => 'length',      required => 0, default => 0,  enum => $self->{vn_lengths} },
       { name => 'l_wp',        required => 0, default => '', maxlength => 150 },
       { name => 'l_encubed',   required => 0, default => '', maxlength => 100 },
       { name => 'l_renai',     required => 0, default => '', maxlength => 100 },
@@ -150,7 +150,7 @@ sub _form {
     [ textarea => short => 'desc',      name => mt('_vnedit_desc'), rows => 10 ],
     [ static   => content => mt '_vnedit_desc_msg' ],
     [ select   => short => 'length',    name => mt('_vnedit_length'), width => 300, options =>
-      [ map [ $_ => $self->{vn_lengths}[$_][0].($_ ? " ($self->{vn_lengths}[$_][2])" : '') ], 0..$#{$self->{vn_lengths}} ] ],
+      [ map [ $_ => mt '_vnlength_'.$_, 2 ], @{$self->{vn_lengths}} ] ],
 
     [ input    => short => 'l_wp',      name => mt('_vnedit_links'), pre => 'http://en.wikipedia.org/wiki/' ],
     [ input    => short => 'l_encubed', pre => 'http://novelnews.net/tag/', post => '/' ],
diff --git a/lib/VNDB/Handler/VNPage.pm b/lib/VNDB/Handler/VNPage.pm
index 48732530..ad575dc9 100644
--- a/lib/VNDB/Handler/VNPage.pm
+++ b/lib/VNDB/Handler/VNPage.pm
@@ -106,7 +106,7 @@ sub page {
      if($v->{length}) {
        Tr ++$i % 2 ? (class => 'odd') : ();
         td mt '_vnpage_length';
-        td "$self->{vn_lengths}[$v->{length}][0] ($self->{vn_lengths}[$v->{length}][1])";
+        td mt '_vnlength_'.$v->{length}, 1;
        end;
      }
      my @links = (
@@ -188,7 +188,7 @@ sub _revision {
     [ original    => diff => 1 ],
     [ alias       => diff => 1 ],
     [ desc        => diff => 1 ],
-    [ length      => serialize => sub { $self->{vn_lengths}[$_[0]][0] } ],
+    [ length      => serialize => sub { mt '_vnlength_'.$_[0] } ],
     [ l_wp        => htmlize => sub {
       $_[0] ? sprintf '<a href="http://en.wikipedia.org/wiki/%s">%1$s</a>', xml_escape $_[0] : mt '_vndiff_nolink'
     }],
diff --git a/lib/VNDB/L10N.pm b/lib/VNDB/L10N.pm
index d5da169f..326635ea 100644
--- a/lib/VNDB/L10N.pm
+++ b/lib/VNDB/L10N.pm
@@ -153,7 +153,7 @@ use warnings;
   # Arguments: index, @list. returns $list[index]
   sub index {
     shift;
-    return $_[shift];
+    return $_[shift||0];
   }
 
   # Shortcut for <a href="arg1">arg2</a>