VN::Edit: Add VN Relations editing

Decided that this was small enough to put in the general info tab, like
the "database relations" part of the release edit form.

The update_reverse() function comes from the v3-rewrite, with a few
minor modifications to update for v2rw.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib/VNWeb/Elm.pm b/lib/VNWeb/Elm.pm
index d07a19d6..a2fdddb3 100644
--- a/lib/VNWeb/Elm.pm
+++ b/lib/VNWeb/Elm.pm
@@ -404,6 +404,7 @@ sub write_types {
     $data .= def bloodTypes => 'List (String, String)' => list map tuple(string $_, string $BLOOD_TYPE{$_}), keys %BLOOD_TYPE;
     $data .= def charRoles  => 'List (String, String)' => list map tuple(string $_, string $CHAR_ROLE{$_}{txt}), keys %CHAR_ROLE;
     $data .= def vnLengths  => 'List (Int, String)' => list map tuple($_, string $VN_LENGTH{$_}{txt}.($VN_LENGTH{$_}{time}?" ($VN_LENGTH{$_}{time})":'')), keys %VN_LENGTH;
+    $data .= def vnRelations=> 'List (String, String)' => list map tuple(string $_, string $VN_RELATION{$_}{txt}), keys %VN_RELATION;
     $data .= def curYear    => Int => (gmtime)[5]+1900;
 
     write_module Types => $data;