Minor cleanup of l_wp/l_encubed link code

The fields are still there in order to keep the edit history somewhat
sensible, but we don't need this additional code.

3 files changed, 4 insertions, 7 deletions

diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm
index cc3fc42f..e8b0f43d 100644
--- a/lib/VNDB/Handler/Producers.pm
+++ b/lib/VNDB/Handler/Producers.pm
@@ -309,7 +309,7 @@ sub edit {
         if $pid && !grep +(($frm->{$_}//'') ne ($b4{$_}//'')), keys %b4;
 
       $frm->{relations} = $relations;
-      my $nrev = $self->dbItemEdit(p => $pid||undef, $pid ? $p->{rev} : undef, %$frm, l_wp => $p->{l_wp}||undef);
+      my $nrev = $self->dbItemEdit(p => $pid||undef, $pid ? $p->{rev} : undef, %$frm);
 
       # update reverse relations
       if(!$pid && $#$relations >= 0 || $pid && $frm->{prodrelations} ne $b4{prodrelations}) {
diff --git a/lib/VNDB/Handler/Staff.pm b/lib/VNDB/Handler/Staff.pm
index 2a6e8ec5..7a43c05a 100644
--- a/lib/VNDB/Handler/Staff.pm
+++ b/lib/VNDB/Handler/Staff.pm
@@ -241,7 +241,7 @@ sub edit {
       $frm->{desc}   = $self->bbSubstLinks($frm->{desc});
       return $self->resRedirect("/s$sid", 'post') if $sid && !form_compare(\%b4, $frm);
 
-      my $nrev = $self->dbItemEdit(s => $sid ? ($s->{id}, $s->{rev}) : (undef, undef), %$frm, l_wp => $s->{l_wp}||'');
+      my $nrev = $self->dbItemEdit(s => $sid ? ($s->{id}, $s->{rev}) : (undef, undef), %$frm);
       return $self->resRedirect("/s$nrev->{itemid}.$nrev->{rev}", 'post');
     }
   }
diff --git a/lib/VNDB/Handler/VNEdit.pm b/lib/VNDB/Handler/VNEdit.pm
index b3031881..e879c408 100644
--- a/lib/VNDB/Handler/VNEdit.pm
+++ b/lib/VNDB/Handler/VNEdit.pm
@@ -94,7 +94,7 @@ sub edit {
   my $chars = $v ? $self->dbCharGet(vid => $v->{id}, results => 500) : [];
 
   my %b4 = !$vid ? () : (
-    (map { $_ => $v->{$_} } qw|title original desc alias length l_encubed l_renai l_wikidata image img_nsfw ihid ilock|),
+    (map { $_ => $v->{$_} } qw|title original desc alias length l_renai l_wikidata image img_nsfw ihid ilock|),
     credits => [
       map { my $c = $_; +{ map { $_ => $c->{$_} } qw|aid role note| } }
       sort { $a->{aid} <=> $b->{aid} || $a->{role} cmp $b->{role} } @{$v->{credits}}
@@ -120,7 +120,6 @@ sub edit {
       { post => 'alias',       required => 0, maxlength => 500, default => '' },
       { post => 'desc',        required => 0, default => '', maxlength => 10240 },
       { post => 'length',      required => 0, default => 0,  enum => [ 0..$#{$self->{vn_lengths}} ] },
-      { post => 'l_encubed',   required => 0, default => '', maxlength => 100 },
       { post => 'l_renai',     required => 0, default => '', maxlength => 100 },
       { post => 'l_wikidata',  required => 0, template => 'wikidata' },
       { post => 'anime',       required => 0, default => '' },
@@ -185,10 +184,9 @@ sub edit {
 
       # perform the edit/add
       my $nrev = $self->dbItemEdit(v => $vid ? ($v->{id}, $v->{rev}) : (undef, undef),
-        (map { $_ => $frm->{$_} } qw|title original image alias desc length l_encubed l_renai l_wikidata editsum img_nsfw ihid ilock credits seiyuu screenshots|),
+        (map { $_ => $frm->{$_} } qw|title original image alias desc length l_renai l_wikidata editsum img_nsfw ihid ilock credits seiyuu screenshots|),
         anime => [ keys %$anime ],
         relations => $relations,
-        l_wp => $v->{l_wp}||'',
       );
 
       # update reverse relations & relation graph
@@ -278,7 +276,6 @@ sub _form {
         value => $frm->{l_wikidata} ? "Q$frm->{l_wikidata}" : '',
         post  => qq{ (<a href="$self->{url_static}/f/wikidata.png">How to find this</a>)}
     ],
-    [ input    => short => 'l_encubed', name => 'Novelnews link', pre => 'http://novelnews.net/tag/', post => '/' ],
     [ input    => short => 'l_renai',   name => 'Renai.us link', pre => 'http://renai.us/game/', post => '.shtml' ],
 
     [ input    => short => 'anime',     name => 'Anime' ],