Handler::Releases: Display producer role on release pages

Still the VN & producer pages to go...

2 files changed, 31 insertions, 14 deletions

diff --git a/data/lang.txt b/data/lang.txt
index e78bf30b..f6cd103e 100644
--- a/data/lang.txt
+++ b/data/lang.txt
@@ -1682,6 +1682,14 @@ ru : Анимация эросцен
 en : Producers
 ru : Компании
 
+:_reldiff_developer
+en : developer
+ru*:
+
+:_reldiff_publisher
+en : publisher
+ru*:
+
 
 # Information table (on every release page)
 
@@ -1757,9 +1765,13 @@ ru : Дата выпуска
 en : Age rating
 ru : Возрастной рейтинг
 
-:_relinfo_producer
-en : [quant,_1,Producer,Producers]
-ru : [quant,_1,Компания,Компании,Компаний]
+:_relinfo_developer
+en : [quant,_1,Developer,Developers]
+ru*:
+
+:_relinfo_publisher
+en : [quant,_1,Publisher,Publishers]
+ru*:
 
 :_relinfo_catalog
 en : Catalog no.
diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm
index 763ff59c..d771d4b1 100644
--- a/lib/VNDB/Handler/Releases.pm
+++ b/lib/VNDB/Handler/Releases.pm
@@ -61,7 +61,9 @@ sub page {
       [ ani_story  => serialize => sub { mt '_animated_'.$_[0] } ],
       [ ani_ero    => serialize => sub { mt '_animated_'.$_[0] } ],
       [ producers  => join => '<br />', split => sub {
-        map sprintf('<a href="/p%d" title="%s">%s</a>', $_->{id}, $_->{original}||$_->{name}, shorten $_->{name}, 50), @{$_[0]};
+        map sprintf('<a href="/p%d" title="%s">%s</a> (%s)', $_->{id}, $_->{original}||$_->{name}, shorten($_->{name}, 50),
+          join(', ', $_->{developer} ? mt '_reldiff_developer' :(), $_->{publisher} ? mt '_reldiff_publisher' :())
+        ), @{$_[0]};
       } ],
     );
   }
@@ -194,16 +196,19 @@ sub _infotable {
      end;
    }
 
-   if(@{$r->{producers}}) {
-     Tr ++$i % 2 ? (class => 'odd') : ();
-      td mt '_relinfo_producer', scalar @{$r->{producers}};
-      td;
-       for (@{$r->{producers}}) {
-         a href => "/p$_->{id}", title => $_->{original}||$_->{name}, shorten $_->{name}, 60;
-         br if $_ != $r->{producers}[$#{$r->{producers}}];
-       }
-      end;
-     end;
+   for my $t (qw|developer publisher|) {
+     my @prod = grep $_->{$t}, @{$r->{producers}};
+     if(@prod) {
+       Tr ++$i % 2 ? (class => 'odd') : ();
+        td mt "_relinfo_$t", scalar @prod;
+        td;
+         for (@prod) {
+           a href => "/p$_->{id}", title => $_->{original}||$_->{name}, shorten $_->{name}, 60;
+           br if $_ != $prod[$#prod];
+         }
+        end;
+       end;
+     }
    }
 
    if($r->{gtin}) {