Delete old producer edit form + a few more cleanups

1 files changed, 0 insertions, 214 deletions

diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm
index 6e70e512..e25e3320 100644
--- a/lib/VNDB/Handler/Producers.pm
+++ b/lib/VNDB/Handler/Producers.pm
@@ -9,225 +9,11 @@ use VNDB::Types;
 
 
 TUWF::register(
-  qr{old/p/add}                        => \&addform,
-  qr{old/p(?:([1-9]\d*)(?:\.([1-9]\d*))?/edit|/new)}
-    => \&edit,
   qr{p/([a-z0]|all)}               => \&list,
   qr{xml/producers\.xml}           => \&pxml,
 );
 
 
-sub addform {
-  my $self = shift;
-  return $self->htmlDenied if !$self->authCan('edit');
-
-  my $frm;
-  my $l = [];
-  if($self->reqMethod eq 'POST') {
-    return if !$self->authCheckCode;
-    $frm = $self->formValidate(
-      { post => 'name',          maxlength => 200 },
-      { post => 'original',      required  => 0, maxlength => 200,  default => '' },
-      { post => 'alias',         required  => 0, maxlength => 500,  default => '' },
-      { post => 'continue_ign',required => 0 },
-    );
-
-    # look for duplicates
-    if(!$frm->{_err} && !$frm->{continue_ign}) {
-      $l = $self->dbProducerGet(search => $frm->{name}, what => 'extended', results => 50, inc_hidden => 1);
-      push @$l, @{$self->dbProducerGet(search => $frm->{original}, what => 'extended', results => 50, inc_hidden => 1)} if $frm->{original};
-      $_ && push @$l, @{$self->dbProducerGet(search => $_, what => 'extended', results => 50, inc_hidden => 1)} for(split /\n/, $frm->{alias});
-      my %ids = map +($_->{id}, $_), @$l;
-      $l = [ map $ids{$_}, sort { $ids{$a}{name} cmp $ids{$b}{name} } keys %ids ];
-    }
-
-    return edit($self, undef, undef, 1) if !@$l && !$frm->{_err};
-  }
-
-  $self->htmlHeader(title => 'Add a new producer', noindex => 1);
-  if(@$l) {
-    div class => 'mainbox';
-     h1 'Possible duplicates found';
-     div class => 'warning';
-      p;
-       txt 'The following is a list of producers that match the name(s) you gave.'
-         .' Please check this list to avoid creating a duplicate producer entry.'
-         .' Be especially wary of items that have been deleted! To see why an entry has been deleted, click on its title.';
-       br; br;
-       txt 'To add the producer anyway, hit the "Continue and ignore duplicates" button below.';
-      end;
-     end;
-     ul;
-      for(@$l) {
-        li;
-         a href => "/p$_->{id}", title => $_->{original}||$_->{name}, "p$_->{id}: ".shorten($_->{name}, 50);
-         b class => 'standout', ' deleted' if $_->{hidden};
-        end;
-      }
-     end;
-    end 'div';
-  }
-
-  $self->htmlForm({ frm => $frm, action => '/old/p/add', continue => @$l ? 2 : 1 },
-  vn_add => [ 'Add a new producer',
-    [ input  => name => 'Name (romaji)', short => 'name' ],
-    [ input  => name => 'Original name', short => 'original' ],
-    [ static => content => 'The original name of the producer, leave blank if it is already in the Latin alphabet.' ],
-    [ textarea => short => 'alias', name => 'Aliases', rows => 4 ],
-    [ static => content => '(Un)official aliases, separated by a newline.' ],
-  ]);
-  $self->htmlFooter;
-}
-
-
-# pid as argument = edit producer
-# no arguments = add new producer
-sub edit {
-  my($self, $pid, $rev, $nosubmit) = @_;
-
-  my $p = $pid && $self->dbProducerGetRev(id => $pid, what => 'extended relations', rev => $rev)->[0];
-  return $self->resNotFound if $pid && !$p->{id};
-  $rev = undef if !$p || $p->{lastrev};
-
-  return $self->htmlDenied if !$self->authCan('edit')
-    || $pid && (($p->{locked} || $p->{hidden}) && !$self->authCan('dbmod'));
-
-  my %b4 = !$pid ? () : (
-    (map { $_ => $p->{$_} } qw|type name original lang website l_wikidata desc alias ihid ilock|),
-    prodrelations => join('|||', map $_->{relation}.','.$_->{id}.','.$_->{name}, sort { $a->{id} <=> $b->{id} } @{$p->{relations}}),
-  );
-  my $frm;
-
-  if($self->reqMethod eq 'POST') {
-    return if !$nosubmit && !$self->authCheckCode;
-    $frm = $self->formValidate(
-      { post => 'type',          required  => !$nosubmit, enum => [ keys %PRODUCER_TYPE ] },
-      { post => 'name',          maxlength => 200 },
-      { post => 'original',      required  => 0, maxlength => 200,  default => '' },
-      { post => 'alias',         required  => 0, maxlength => 500,  default => '' },
-      { post => 'lang',          required  => !$nosubmit, enum => [ keys %LANGUAGE ] },
-      { post => 'website',       required  => 0, maxlength => 250,  default => '', template => 'weburl' },
-      { post => 'l_wikidata',    required  => 0, template => 'wikidata' },
-      { post => 'desc',          required  => 0, maxlength => 5000, default => '' },
-      { post => 'prodrelations', required  => 0, maxlength => 5000, default => '' },
-      { post => 'editsum',       required  => !$nosubmit, template => 'editsum' },
-      { post => 'ihid',          required  => 0 },
-      { post => 'ilock',         required  => 0 },
-    );
-    $frm->{original} = '' if $frm->{original} eq $frm->{name};
-    if(!$nosubmit && !$frm->{_err}) {
-      # parse
-      my $relations = [ map { /^([a-z]+),([0-9]+),(.+)$/ && (!$pid || $2 != $pid) ? [ $1, $2, $3 ] : () } split /\|\|\|/, $frm->{prodrelations} ];
-
-      # normalize
-      $frm->{ihid} = $frm->{ihid}?1:0;
-      $frm->{ilock} = $frm->{ilock}?1:0;
-      $frm->{desc} = $self->bbSubstLinks($frm->{desc});
-      $relations = [] if $frm->{ihid};
-      $frm->{prodrelations} = join '|||', map $_->[0].','.$_->[1].','.$_->[2], sort { $a->[1] <=> $b->[1]} @{$relations};
-
-      return $self->resRedirect("/p$pid", 'post')
-        if $pid && !grep +(($frm->{$_}//'') ne ($b4{$_}//'')), keys %b4;
-
-      $frm->{relations} = $relations;
-      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}) {
-        my %old = $pid ? (map { $_->{id} => $_->{relation} } @{$p->{relations}}) : ();
-        my %new = map { $_->[1] => $_->[0] } @$relations;
-        _updreverse($self, \%old, \%new, $nrev->{itemid}, $nrev->{rev});
-      }
-
-      return $self->resRedirect("/p$nrev->{itemid}.$nrev->{rev}", 'post');
-    }
-  }
-
-  !defined $frm->{$_} && ($frm->{$_} = $b4{$_}) for keys %b4;
-  $frm->{lang} = 'ja' if !$pid && !defined $frm->{lang};
-  $frm->{editsum} = sprintf 'Reverted to revision p%d.%d', $pid, $rev if $rev && !defined $frm->{editsum};
-
-  my $title = $pid ? "Edit $p->{name}" : 'Add new producer';
-  $self->htmlHeader(title => $title, noindex => 1);
-  $self->htmlMainTabs('p', $p, 'edit') if $pid;
-  $self->htmlEditMessage('p', $p, $title);
-  $self->htmlForm({ frm => $frm, action => $pid ? "/old/p$pid/edit" : '/old/p/new', editsum => 1 },
-  'pedit_geninfo' => [ 'General info',
-    [ select => name => 'Type', short => 'type',
-      options => [ map [ $_, $PRODUCER_TYPE{$_} ], keys %PRODUCER_TYPE ] ],
-    [ input  => name => 'Name (romaji)', short => 'name' ],
-    [ input  => name => 'Original name', short => 'original' ],
-    [ static => content => 'The original name of the producer, leave blank if it is already in the Latin alphabet.' ],
-    [ textarea => short => 'alias', name => 'Aliases', rows => 4 ],
-    [ static => content => '(Un)official aliases, separated by a newline.' ],
-    [ select => name => 'Primary language', short => 'lang',
-      options => [ map [ $_, "$LANGUAGE{$_} ($_)" ], sort { $LANGUAGE{$a} cmp $LANGUAGE{$b} } keys %LANGUAGE ] ],
-    [ input  => name => 'Website', short => 'website' ],
-    [ input  => short => 'l_wikidata',name => 'Wikidata ID',
-        value => $frm->{l_wikidata} ? "Q$frm->{l_wikidata}" : '',
-        post  => qq{ (<a href="$self->{url_static}/f/wikidata.png">How to find this</a>)}
-    ],
-    [ text   => name => 'Description<br /><b class="standout">English please!</b>', short => 'desc', rows => 6 ],
-  ], 'pedit_rel' => [ 'Relations',
-    [ hidden   => short => 'prodrelations' ],
-    [ static   => nolabel => 1, content => sub {
-      h2 'Selected producers';
-      table;
-       tbody id => 'relation_tbl';
-        # to be filled using javascript
-       end;
-      end;
-
-      h2 'Add producer';
-      table;
-       Tr id => 'relation_new';
-        td class => 'tc_prod';
-         input type => 'text', class => 'text';
-        end;
-        td class => 'tc_rel';
-         Select;
-          option value => $_, $PRODUCER_RELATION{$_}{txt}
-            for (keys %PRODUCER_RELATION);
-         end;
-        end;
-        td class => 'tc_add';
-         a href => '#', 'add';
-        end;
-       end;
-      end 'table';
-    }],
-  ]);
-  $self->htmlFooter;
-}
-
-sub _updreverse {
-  my($self, $old, $new, $pid, $rev) = @_;
-  my %upd;
-
-  # compare %old and %new
-  for (keys %$old, keys %$new) {
-    if(exists $$old{$_} and !exists $$new{$_}) {
-      $upd{$_} = undef;
-    } elsif((!exists $$old{$_} and exists $$new{$_}) || ($$old{$_} ne $$new{$_})) {
-      $upd{$_} = $PRODUCER_RELATION{$$new{$_}}{reverse};
-    }
-  }
-  return if !keys %upd;
-
-  # edit all related producers
-  for my $i (keys %upd) {
-    my $r = $self->dbProducerGetRev(id => $i, what => 'relations')->[0];
-    my @newrel = map $_->{id} != $pid ? [ $_->{relation}, $_->{id} ] : (), @{$r->{relations}};
-    push @newrel, [ $upd{$i}, $pid ] if $upd{$i};
-    $self->dbItemEdit(p => $i, $r->{rev},
-      relations => \@newrel,
-      editsum => "Reverse relation update caused by revision p$pid.$rev",
-      uid => 1,
-    );
-  }
-}
-
-
 sub list {
   my($self, $char) = @_;