summaryrefslogtreecommitdiff
path: root/lib/Multi
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2019-09-11 16:31:57 +0200
committerYorhel <git@yorhel.nl>2019-09-11 16:31:57 +0200
commit82ade4157f86891c3d90336155a942976e1df934 (patch)
treefbe5b8dfa0b88a0d59fb67af36a56ad46334fb47 /lib/Multi
parent500d19bd7c5c2c3e6a73b8b5ae0aa5ab39182df7 (diff)
VNDB::Types: Convert vn_relations and prod_relations
Diffstat (limited to 'lib/Multi')
-rw-r--r--lib/Multi/RG.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Multi/RG.pm b/lib/Multi/RG.pm
index d3637c4e..9a158f21 100644
--- a/lib/Multi/RG.pm
+++ b/lib/Multi/RG.pm
@@ -92,7 +92,7 @@ sub getrel { # id, res, time
my($xid, $xrel, $xoff) = @$_;
$xoff = 0 if $xoff && $xoff =~ /^f/;
- $C{rels}{$id.'-'.$xid} = [ $VNDB::S{ $C{type} eq 'v' ? 'vn_relations' : 'prod_relations' }{$xrel}[0], $xoff ] if $id < $xid;
+ $C{rels}{$id.'-'.$xid} = [ ($C{type} eq 'v' ? \%VN_RELATION : \%PRODUCER_RELATION)->{$xrel}{reverse}, $xoff ] if $id < $xid;
$C{rels}{$xid.'-'.$id} = [ $xrel, $xoff ] if $id > $xid;
# New node? Get its relations too.
@@ -198,10 +198,10 @@ sub gv_vnrels {
# [older game] -> [newer game]
if($_->[5] > $_->[4]) {
($_->[0], $_->[1]) = ($_->[1], $_->[0]);
- $_->[2] = $VNDB::S{vn_relations}{$_->[2]}[0];
+ $_->[2] = $VN_RELATION{$_->[2]}{reverse};
}
- my $rel = $VNDB::S{vn_relations}{$_->[2]}[1];
- my $rev = $VNDB::S{vn_relations}{ $VNDB::S{vn_relations}{$_->[2]}[0] }[1];
+ my $rel = $VN_RELATION{$_->[2]}{txt};
+ my $rev = $VN_RELATION{ $VN_RELATION{$_->[2]}{reverse} }{txt};
my $style = $_->[3] ? '' : ', style="dotted"';
my $label = $rev ne $rel
? qq|headlabel = "$rel" taillabel = "${rev}" $style|
@@ -245,8 +245,8 @@ sub gv_prodrels {
my $p1 = $prods->{$1};
my $p2 = $prods->{$2};
- my $rel = $VNDB::S{prod_relations}{$rels->{$_}[0]}[1];
- my $rev = $VNDB::S{prod_relations}{ $VNDB::S{prod_relations}{$rels->{$_}[0]}[0] }[1];
+ my $rel = $PRODUCER_RELATION{$rels->{$_}[0]}{txt};
+ my $rev = $PRODUCER_RELATION{ $PRODUCER_RELATION{$rels->{$_}[0]}{reverse} }{txt};
my $label = $rev ne $rel
? qq|headlabel = "$rev", taillabel = "$rel"|
: qq|label = "$rel"|;