Also display release link dropdown on producer pages

https://vndb.org/t12755.28

1 files changed, 30 insertions, 0 deletions

diff --git a/lib/VNDB/Handler/Releases.pm b/lib/VNDB/Handler/Releases.pm
index 164b457d..e011246b 100644
--- a/lib/VNDB/Handler/Releases.pm
+++ b/lib/VNDB/Handler/Releases.pm
@@ -5,6 +5,9 @@ use strict;
 use warnings;
 use TUWF ':html', ':xml', 'uri_escape', 'xml_escape';
 use VNDB::Func;
+use Exporter 'import';
+
+our @EXPORT = ('releaseExtLinks');
 
 
 TUWF::register(
@@ -790,5 +793,32 @@ sub enginexml {
 }
 
 
+# Generate the html for an 'external links' dropdown
+sub releaseExtLinks {
+  my($self, $r) = @_;
+  my $links = $self->entryLinks(r => $r);
+  my $has_dd = @$links > ($r->{website} ? 1 : 0);
+  if(@$links) {
+    a href => $r->{website}||'#', class => 'rllinks';
+     txt scalar @$links if $has_dd;
+     cssicon 'external', 'External link';
+    end;
+    if($has_dd) {
+      ul class => 'hidden rllinks_dd';
+       for (@$links) {
+         li;
+          a href => $_->[1];
+           span $_->[2] if $_->[2];
+           txt $_->[0];
+          end;
+         end;
+       };
+      end;
+    }
+  } else {
+    txt ' ';
+  }
+}
+
 1;