chardb: Added friendly character <-> trait linking interface

2 files changed, 42 insertions, 2 deletions

diff --git a/lib/VNDB/Handler/Chars.pm b/lib/VNDB/Handler/Chars.pm
index 379b51b5..b05d94d7 100644
--- a/lib/VNDB/Handler/Chars.pm
+++ b/lib/VNDB/Handler/Chars.pm
@@ -267,7 +267,18 @@ sub edit {
   }]],
 
   chare_traits => [ mt('_chare_traits'),
-    [ input => name => 'Traits (test)', short => 'traits' ],
+    [ hidden => short => 'traits' ],
+    [ static => nolabel => 1, content => sub {
+      h2 mt '_chare_traits_sel';
+      table; tbody id => 'traits_tbl';
+       Tr id => 'traits_loading'; td colspan => '3', mt('_js_loading'); end;
+      end; end;
+      h2 mt '_chare_traits_add';
+      table; Tr;
+       td class => 'tc_name'; input id => 'trait_input', type => 'text', class => 'text'; end;
+       td colspan => 2, '';
+      end; end 'table';
+    }],
   ]);
   $self->htmlFooter;
 }
diff --git a/lib/VNDB/Handler/Traits.pm b/lib/VNDB/Handler/Traits.pm
index 6beaab94..f86fb4cc 100644
--- a/lib/VNDB/Handler/Traits.pm
+++ b/lib/VNDB/Handler/Traits.pm
@@ -3,7 +3,7 @@ package VNDB::Handler::Traits;
 
 use strict;
 use warnings;
-use TUWF ':html', 'html_escape';
+use TUWF ':html', ':xml', 'html_escape';
 use VNDB::Func;
 
 
@@ -14,6 +14,7 @@ TUWF::register(
   qr{i/new},              \&traitedit,
   qr{i/list},             \&traitlist,
   qr{i},                  \&traitindex,
+  qr{xml/traits\.xml},    \&traitxml,
 );
 
 
@@ -329,5 +330,33 @@ sub traitindex {
 }
 
 
+sub traitxml {
+  my $self = shift;
+
+  my $f = $self->formValidate(
+    { get => 'q', required => 0, maxlength => 500 },
+    { get => 'id', required => 0, multi => 1, template => 'int' },
+    { get => 'r', required => 0, default => 15, template => 'int', min => 1, max => 100 },
+  );
+  return $self->resNotFound if $f->{_err} || (!$f->{q} && !$f->{id} && !$f->{id}[0]);
+
+  my($list, $np) = $self->dbTraitGet(
+    !$f->{q} ? () : $f->{q} =~ /^i([1-9]\d*)/ ? (id => $1)  : (search => $f->{q}),
+    $f->{id} && $f->{id}[0] ? (id => $f->{id}) : (),
+    results => $f->{r},
+    page => 1,
+    sort => 'groupname'
+  );
+
+  $self->resHeader('Content-type' => 'text/xml; charset=UTF-8');
+  xml;
+  tag 'tags', more => $np ? 'yes' : 'no';
+   for(@$list) {
+     tag 'item', id => $_->{id}, meta => $_->{meta} ? 'yes' : 'no', group => $_->{group}||'', groupname => $_->{groupname}||'', state => $_->{state}, $_->{name};
+   }
+  end;
+}
+
+
 1;