Handle JSON data natively when processing form data

No more need for extra json_encode/json_decode calls, and the
form_compare() function is more lenient w.r.t. integer/string
comparison.

This is the improvement I described in commit
  ed86cfd12b0bed7352e2be525b8e63cb4d6d5448

1 files changed, 2 insertions, 2 deletions

diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm
index 54c410b5..5d404b28 100644
--- a/lib/VNDB/DB/VN.pm
+++ b/lib/VNDB/DB/VN.pm
@@ -259,14 +259,14 @@ sub dbVNRevisionInsert {
   if($o->{credits}) {
     $self->dbExec('DELETE FROM edit_vn_staff');
     my $q = join ',', ('(?, ?, ?)') x @{$o->{credits}};
-    my @val = map @{$_}[0..2], @{$o->{credits}};
+    my @val = map +($_->{aid}, $_->{role}, $_->{note}), @{$o->{credits}};
     $self->dbExec("INSERT INTO edit_vn_staff (aid, role, note) VALUES $q", @val) if @val;
   }
 
   if($o->{seiyuu}) {
     $self->dbExec('DELETE FROM edit_vn_seiyuu');
     my $q = join ',', ('(?, ?, ?)') x @{$o->{seiyuu}};
-    my @val = map @{$_}[0..2], @{$o->{seiyuu}};
+    my @val = map +($_->{aid}, $_->{cid}, $_->{note}), @{$o->{seiyuu}};
     $self->dbExec("INSERT INTO edit_vn_seiyuu (aid, cid, note) VALUES $q", @val) if @val;
   }
 }