TUWF: Initial convert from YAWF to TUWF

There may still be some bugs present and I've only converted the points
where TUWF is incompatible with YAWF. The new TUWF features are not in
use yet, I'll do that later on.

Note that, in order to run the new code, TUWF must be installed on your
system. The configuration for the TransAdmin plugin has also changed.
Other than that there shouldn't be any issues.

1 files changed, 10 insertions, 8 deletions

diff --git a/lib/VNDB/Handler/VNPage.pm b/lib/VNDB/Handler/VNPage.pm
index 5e024424..e0c597d9 100644
--- a/lib/VNDB/Handler/VNPage.pm
+++ b/lib/VNDB/Handler/VNPage.pm
@@ -3,11 +3,11 @@ package VNDB::Handler::VNPage;
 
 use strict;
 use warnings;
-use YAWF ':html', 'xml_escape';
+use TUWF ':html', 'xml_escape';
 use VNDB::Func;
 
 
-YAWF::register(
+TUWF::register(
   qr{v/rand}                        => \&rand,
   qr{v([1-9]\d*)/rg}                => \&rg,
   qr{v([1-9]\d*)(?:\.([1-9]\d*))?}  => \&page,
@@ -24,7 +24,7 @@ sub rg {
   my($self, $vid) = @_;
 
   my $v = $self->dbVNGet(id => $vid, what => 'relgraph')->[0];
-  return 404 if !$v->{id} || !$v->{rgraph};
+  return $self->resNotFound if !$v->{id} || !$v->{rgraph};
 
   my $title = mt '_vnrg_title', $v->{title};
   return if $self->htmlRGHeader($title, 'v', $v);
@@ -50,7 +50,7 @@ sub page {
     what => 'extended anime relations screenshots rating ranking'.($rev ? ' changes' : ''),
     $rev ? (rev => $rev) : (),
   )->[0];
-  return 404 if !$v->{id};
+  return $self->resNotFound if !$v->{id};
 
   my $r = $self->dbReleaseGet(vid => $vid, what => 'producers platforms');
 
@@ -80,9 +80,11 @@ sub page {
        end;
        if($v->{img_nsfw}) {
          p id => 'nsfw_show', $self->authPref('show_nsfw') ? (style => 'display: none') : ();
-          txt mt('_vnpage_imgnsfw_msg')."\n\n";
+          txt mt('_vnpage_imgnsfw_msg');
+          br; br;
           a href => '#', mt '_vnpage_imgnsfw_show';
-          txt "\n\n".mt '_vnpage_imgnsfw_note';
+          br; br;
+          txt mt '_vnpage_imgnsfw_note';
          end;
        }
      }
@@ -268,7 +270,7 @@ sub _producers {
           a href => "/p$_->{id}", title => $_->{original}||$_->{name}, shorten $_->{name}, 30;
           txt ' & ' if $_ != $p[$#p];
         }
-        txt "\n";
+        br;
       }
      end;
     end;
@@ -331,7 +333,7 @@ sub _anime {
         end;
         acronym title => $_->{title_kanji}||$_->{title_romaji}, shorten $_->{title_romaji}, 50;
         b ' ('.(defined $_->{type} ? mt("_animetype_$_->{type}").', ' : '').$_->{year}.')';
-        txt "\n";
+        br;
       }
     }
    end;