summaryrefslogtreecommitdiff
path: root/lib/VNDB/Handler
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2015-09-17 16:31:04 +0200
committerYorhel <git@yorhel.nl>2015-09-17 16:31:04 +0200
commita8ece1d324bbbbb675224af97cf5dcb15580d577 (patch)
tree72f7bd8a1d5536615130550e62ef0f671ac5aff7 /lib/VNDB/Handler
parenta16c4bbbbd97fecb7a02a535efce0fefb1424ca9 (diff)
Rename jsonEncode/Decode to C-style naming
CamelCase is used for methods, C-style names for functions. I'm just nitpicking now.
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r--lib/VNDB/Handler/Staff.pm4
-rw-r--r--lib/VNDB/Handler/VNEdit.pm12
2 files changed, 8 insertions, 8 deletions
diff --git a/lib/VNDB/Handler/Staff.pm b/lib/VNDB/Handler/Staff.pm
index 2840442b..5496af11 100644
--- a/lib/VNDB/Handler/Staff.pm
+++ b/lib/VNDB/Handler/Staff.pm
@@ -189,7 +189,7 @@ sub edit {
my %b4 = !$sid ? () : (
(map { $_ => $s->{$_} } qw|name original gender lang desc l_wp l_site l_twitter l_anidb ihid ilock|),
primary => $s->{aid},
- aliases => jsonEncode [
+ aliases => json_encode [
map +{ aid => $_->{id}, name => $_->{name}, orig => $_->{original} },
sort { $a->{name} cmp $b->{name} } @{$s->{aliases}}
],
@@ -231,7 +231,7 @@ sub edit {
$_->{aid} *= $old_aliases{$_->{aid}} ? 1 : 0 for (sort { $a->{name} cmp $b->{name} } @$aliases);
}
if(!$frm->{_err}) {
- $frm->{aliases} = jsonEncode $aliases;
+ $frm->{aliases} = json_encode $aliases;
$frm->{ihid} = $frm->{ihid} ?1:0;
$frm->{ilock} = $frm->{ilock}?1:0;
$frm->{aid} = $frm->{primary} if $sid;
diff --git a/lib/VNDB/Handler/VNEdit.pm b/lib/VNDB/Handler/VNEdit.pm
index e7350d16..1a607e73 100644
--- a/lib/VNDB/Handler/VNEdit.pm
+++ b/lib/VNDB/Handler/VNEdit.pm
@@ -89,11 +89,11 @@ sub edit {
my %b4 = !$vid ? () : (
(map { $_ => $v->{$_} } qw|title original desc alias length l_wp l_encubed l_renai image img_nsfw ihid ilock|),
- credits => jsonEncode [
+ credits => json_encode [
map { my $c = $_; +{ map { $_ => $c->{$_} } qw|aid role note| } }
sort { $a->{aid} <=> $b->{aid} || $a->{role} cmp $b->{role} } @{$v->{credits}}
],
- seiyuu => jsonEncode [
+ seiyuu => json_encode [
map { my $c = $_; +{ map { $_ => $c->{$_} } qw|aid cid note| } }
sort { $a->{aid} <=> $b->{aid} || $a->{cid} <=> $b->{cid} } @{$v->{seiyuu}}
],
@@ -134,8 +134,8 @@ sub edit {
my (@credits, @seiyuu);
if(!$nosubmit && !$frm->{_err}) {
eval { # catch json decoding errors
- my $raw_c = $frm->{credits} ? jsonDecode $frm->{credits} : [];
- my $raw_s = $frm->{seiyuu} ? jsonDecode $frm->{seiyuu} : [];
+ my $raw_c = $frm->{credits} ? json_decode $frm->{credits} : [];
+ my $raw_s = $frm->{seiyuu} ? json_decode $frm->{seiyuu} : [];
# ensure submitted alias IDs exist within database
my @alist = map $_->{aid}, @$raw_c, @$raw_s;
@@ -183,8 +183,8 @@ sub edit {
$frm->{vnrelations} = join '|||', map $_->[0].','.$_->[1].','.($_->[2]?1:0).','.$_->[3], sort { $a->[1] <=> $b->[1]} @{$relations};
$frm->{img_nsfw} = $frm->{img_nsfw} ? 1 : 0;
$frm->{screenshots} = join ' ', map sprintf('%d,%d,%d', $_->[0], $_->[1]?1:0, $_->[2]), sort { $a->[0] <=> $b->[0] } @$screenshots;
- $frm->{credits} = jsonEncode \@credits;
- $frm->{seiyuu} = jsonEncode \@seiyuu;
+ $frm->{credits} = json_encode \@credits;
+ $frm->{seiyuu} = json_encode \@seiyuu;
# weed out duplicate aliases
my %alias;