1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
package VN3::Release::Edit;
use VN3::Prelude;
my $FORM = {
hidden => { anybool => 1 },
locked => { anybool => 1 },
title => { maxlength => 250 },
original => { required => 0, default => '', maxlength => 250 },
rtype => { enum => [ release_types ] }, # This is 'type' in the database, but renamed for Elm compat
patch => { anybool => 1 },
freeware => { anybool => 1 },
doujin => { anybool => 1 },
lang => { minlength => 1, sort_keys => 'lang', aoh => { lang => { language => 1 } } },
gtin => { gtin => 1 },
catalog => { required => 0, default => '', maxlength => 50 },
website => { required => 0, default => '', weburl => 1 },
released => { rdate => 1, min => 1 },
minage => { required => 0, minage => 1 },
uncensored => { anybool => 1 },
notes => { required => 0, default => '', maxlength => 10240 },
resolution => { resolution => 1 },
voiced => { voiced => 1 },
ani_story => { animated => 1 },
ani_ero => { animated => 1 },
platforms => { sort_keys => 'platform', aoh => { platform => { platform => 1 } } },
media => { sort_keys => ['media', 'qty'], aoh => {
medium => { medium => 1 },
qty => { uint => 1, range => [0,20] },
} },
vn => { length => [1,50], sort_keys => 'vid', aoh => {
vid => { id => 1 }, # X
title => { _when => 'out' },
} },
producers => { maxlength => 50, sort_keys => 'pid', aoh => {
pid => { id => 1 }, # X
developer => { anybool => 1 },
publisher => { anybool => 1 },
name => { _when => 'out' },
} },
id => { _when => 'out', required => 0, id => 1 },
authmod => { _when => 'out', anybool => 1 },
editsum => { _when => 'in out', editsum => 1 },
};
our $FORM_OUT = form_compile out => $FORM;
our $FORM_IN = form_compile in => $FORM;
our $FORM_CMP = form_compile cmp => $FORM;
TUWF::get qr{/$RREV_RE/(?<type>edit|copy)}, sub {
my $r = entry r => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
return tuwf->resDenied if !can_edit r => $r;
my $copy = tuwf->capture('type') eq 'copy';
enrich vid => q{SELECT id AS vid, title FROM vn WHERE id IN} => $r->{vn};
enrich pid => q{SELECT id AS pid, name FROM producers WHERE id IN} => $r->{producers};
$r->{rtype} = delete $r->{type};
$r->{authmod} = auth->permDbmod;
$r->{editsum} = $copy ? "Copied from r$r->{id}.$r->{chrev}" : $r->{chrev} == $r->{maxrev} ? '' : "Reverted to revision r$r->{id}.$r->{chrev}";
my $title = sprintf '%s %s', $copy ? 'Copy' : 'Edit', $r->{title};
Framework title => $title,
top => sub {
Div class => 'col-md', sub {
EntryEdit r => $r;
Div class => 'detail-page-title', sub {
Txt $title;
Debug $r;
};
};
}, sub {
FullPageForm module => 'RelEdit.Main', schema => $FORM_OUT, data => { %$r, $copy ? (id => undef) : () }, sections => [
general => 'General info',
format => 'Format',
relations => 'Relations'
];
};
};
TUWF::get qr{/$VID_RE/add}, sub {
return tuwf->resDenied if !auth->permEdit;
my $vn = tuwf->dbRowi('SELECT id, title, original FROM vn WHERE NOT hidden AND id =', \tuwf->capture('id'));
return tuwf->resNotFound if !$vn->{id};
Framework index => 0, title => "Add a new release to $vn->{title}", narrow => 1, sub {
FullPageForm module => 'RelEdit.New', data => $vn, sections => [
general => 'General info',
format => 'Format',
relations => 'Relations'
];
};
};
json_api qr{/(?:$RID_RE/edit|r/add)}, $FORM_IN, sub {
my $data = shift;
my $new = !tuwf->capture('id');
my $rel = $new ? { id => 0 } : entry r => tuwf->capture('id') or return tuwf->resNotFound;
return tuwf->resJSON({Unauth => 1}) if !can_edit r => $rel;
if(!auth->permDbmod) {
$data->{hidden} = $rel->{hidden}||0;
$data->{locked} = $rel->{locked}||0;
}
$data->{doujin} = $data->{voiced} = $data->{ani_story} = $data->{ani_ero} = 0 if $data->{patch};
$data->{resolution} = 'unknown' if $data->{patch};
$data->{uncensored} = 0 if !$data->{minage} || $data->{minage} != 18;
$_->{qty} = $MEDIA{$_->{medium}}{qty} ? $_->{qty}||1 : 0 for @{$data->{media}};
validate_dbid 'SELECT id FROM vn WHERE id IN', map $_->{vid}, @{$data->{vn}};
validate_dbid 'SELECT id FROM producers WHERE id IN', map $_->{pid}, @{$data->{producers}};
$data->{notes} = bb_subst_links $data->{notes};
$rel->{rtype} = delete $rel->{type};
return tuwf->resJSON({Unchanged => 1}) if !$new && !form_changed $FORM_CMP, $data, $rel;
$data->{type} = delete $data->{rtype};
my($id,undef,$rev) = update_entry r => $rel->{id}, $data;
tuwf->resJSON({Changed => [$id, $rev]});
};
1;
|