summaryrefslogtreecommitdiff
path: root/lib/VN3/Staff
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VN3/Staff')
-rw-r--r--lib/VN3/Staff/Edit.pm108
-rw-r--r--lib/VN3/Staff/JS.pm43
-rw-r--r--lib/VN3/Staff/Page.pm213
3 files changed, 0 insertions, 364 deletions
diff --git a/lib/VN3/Staff/Edit.pm b/lib/VN3/Staff/Edit.pm
deleted file mode 100644
index 0b9c3af4..00000000
--- a/lib/VN3/Staff/Edit.pm
+++ /dev/null
@@ -1,108 +0,0 @@
-package VN3::Staff::Edit;
-
-use VN3::Prelude;
-
-
-my $FORM = {
- aid => { int => 1, range => [ -1000, 1<<40 ] }, # X
- alias => { maxlength => 100, sort_keys => 'aid', aoh => {
- aid => { int => 1, range => [ -1000, 1<<40 ] }, # X, negative IDs are for new aliases
- name => { maxlength => 200 },
- original => { maxlength => 200, required => 0, default => '' },
- inuse => { anybool => 1, _when => 'out' },
- } },
- desc => { required => 0, default => '', maxlength => 5000 },
- gender => { gender => 1 },
- hidden => { anybool => 1 },
- l_site => { required => 0, default => '', weburl => 1 },
- l_wp => { required => 0, default => '', maxlength => 150 },
- l_twitter => { required => 0, default => '', maxlength => 150 },
- l_anidb => { required => 0, id => 1 },
- lang => { language => 1 },
- locked => { anybool => 1 },
-
- id => { _when => 'out', required => 0, id => 1 },
- authmod => { _when => 'out', anybool => 1 },
- editsum => { _when => 'in out', editsum => 1 },
-};
-
-my $FORM_OUT = form_compile out => $FORM;
-my $FORM_IN = form_compile in => $FORM;
-my $FORM_CMP = form_compile cmp => $FORM;
-
-elm_form StaffEdit => $FORM_OUT, $FORM_IN;
-
-
-TUWF::get qr{/$SREV_RE/edit} => sub {
- my $e = entry s => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
- return tuwf->resDenied if !can_edit s => $e;
-
- $e->{authmod} = auth->permDbmod;
- $e->{editsum} = $e->{chrev} == $e->{maxrev} ? '' : "Reverted to revision s$e->{id}.$e->{chrev}";
-
- enrich aid => sub { sql '
- SELECT aid, EXISTS(SELECT 1 FROM vn_staff WHERE aid = x.aid UNION ALL SELECT 1 FROM vn_seiyuu WHERE aid = x.aid) AS inuse
- FROM unnest(', sql_array(@{$_[0]}), '::int[]) AS x(aid)'
- }, $e->{alias};
-
- my $name = (grep $_->{aid} == $e->{aid}, @{$e->{alias}})[0]{name};
- Framework index => 0, narrow => 1, title => "Edit $name",
- top => sub {
- Div class => 'col-md', sub {
- EntryEdit s => $e;
- Div class => 'detail-page-title', sub {
- Txt $name,
- Debug $e;
- };
- };
- }, sub {
- FullPageForm module => 'StaffEdit.Main', data => $e, schema => $FORM_OUT;
- };
-};
-
-
-TUWF::get '/s/new', sub {
- return tuwf->resDenied if !auth->permEdit;
- Framework index => 0, title => 'Add a new staff entry', narrow => 1, sub {
- Div class => 'row', sub {
- Div class => 'col-md col-md--1', sub { Div 'data-elm-module' => 'StaffEdit.New', '' };
- };
- };
-};
-
-
-json_api qr{/(?:$SID_RE/edit|s/add)}, $FORM_IN, sub {
- my $data = shift;
- my $new = !tuwf->capture('id');
- my $e = $new ? { id => 0 } : entry s => tuwf->capture('id') or return tuwf->resNotFound;
-
- return $elm_Unauth->() if !can_edit s => $e;
-
- if(!auth->permDbmod) {
- $data->{hidden} = $e->{hidden}||0;
- $data->{locked} = $e->{locked}||0;
- }
-
- # For positive alias IDs: Make sure they exist and are owned by this entry.
- validate_dbid
- sub { sql 'SELECT aid FROM staff_alias WHERE id =', \$e->{id}, ' AND aid IN', $_[0] },
- grep $_>=0, map $_->{aid}, @{$data->{alias}};
-
- # For negative alias IDs: Assign a new ID.
- for my $alias (@{$data->{alias}}) {
- if($alias->{aid} < 0) {
- my $new = tuwf->dbVali(select => sql_func nextval => \'staff_alias_aid_seq');
- $data->{aid} = $new if $alias->{aid} == $data->{aid};
- $alias->{aid} = $new;
- }
- }
- # We rely on Postgres to throw an error if we attempt to delete an alias that is still being referenced.
-
- $data->{desc} = bb_subst_links $data->{desc};
-
- return $elm_Unchanged->() if !$new && !form_changed $FORM_CMP, $data, $e;
- my($id,undef,$rev) = update_entry s => $e->{id}, $data;
- $elm_Changed->($id, $rev);
-};
-
-1;
diff --git a/lib/VN3/Staff/JS.pm b/lib/VN3/Staff/JS.pm
deleted file mode 100644
index 58ce947b..00000000
--- a/lib/VN3/Staff/JS.pm
+++ /dev/null
@@ -1,43 +0,0 @@
-package Staff::JS;
-
-use VN3::Prelude;
-
-my $elm_StaffResult = elm_api StaffResult => { aoh => {
- id => { id => 1 },
- aid => { id => 1 },
- name => {},
- original => {},
-}};
-
-json_api '/js/staff.json', {
- search => { maxlength => 500 }
-}, sub {
- my $q = shift->{search};
-
- # XXX: This query is kinda slow
- my $qs = $q =~ s/[%_]//gr;
- my $r = tuwf->dbAlli(
- 'SELECT s.id, st.aid, st.name, st.original',
- 'FROM (',
- # ID search
- $q =~ /^$SID_RE$/ ? ('SELECT 1, id, aid, name, original FROM staff_alias WHERE id =', \"$1", 'UNION ALL') : (),
- # exact match
- 'SELECT 2, id, aid, name, original FROM staff_alias WHERE lower(name) = lower(', \$q, ") OR lower(translate(original,' ', '')) = lower(", \($q =~ s/\s//gr), ')',
- 'UNION ALL',
- # prefix match
- 'SELECT 3, id, aid, name, original FROM staff_alias WHERE name ILIKE', \"$qs%", ' OR original ILIKE', \"$qs%",
- 'UNION ALL',
- # substring match
- 'SELECT 4, id, aid, name, original FROM staff_alias WHERE name ILIKE', \"%$qs%", ' OR original ILIKE', \"%$qs%",
- ') AS st (ord, id, aid, name, original)',
- 'JOIN staff s ON s.id = st.id',
- 'WHERE NOT s.hidden',
- 'GROUP BY s.id, st.aid, st.name, st.original',
- 'ORDER BY MIN(st.ord), st.name',
- 'LIMIT 20'
- );
-
- $elm_StaffResult->($r);
-};
-
-1;
diff --git a/lib/VN3/Staff/Page.pm b/lib/VN3/Staff/Page.pm
deleted file mode 100644
index 2d8cd349..00000000
--- a/lib/VN3/Staff/Page.pm
+++ /dev/null
@@ -1,213 +0,0 @@
-package VN3::Staff::Page;
-
-use VN3::Prelude;
-
-sub Notes {
- my $e = shift;
-
- Div class => 'row', sub {
- Div class => 'fixed-size-left-sidebar-md', sub {
- H2 class => 'detail-page-sidebar-section-header', 'Notes';
- };
- Div class => 'col-md', sub {
- Div class => 'description serif mb-5', sub {
- P sub { Lit bb2html $e->{desc} };
- };
- };
- } if $e->{desc};
-}
-
-
-sub DetailsTable {
- my $e = shift;
-
- my @links = (
- $e->{l_site} ? [ 'Official website', $e->{l_site} ] : (),
- $e->{l_wp} ? [ 'Wikipedia', "https://en.wikipedia.org/wiki/$e->{l_wp}" ] : (),
- $e->{l_twitter} ? [ 'Twitter', "https://twitter.com/$e->{l_twitter}" ] : (),
- $e->{l_anidb} ? [ 'AniDB', "http://anidb.net/cr$e->{l_anidb}" ] : (),
- );
- my @alias = grep $_->{aid} != $e->{aid}, @{$e->{alias}};
-
- my @list = (
- @alias ? sub {
- Dt @alias > 1 ? 'Aliases' : 'Alias';
- Dd sub {
- Join \&Br, sub {
- Txt $_[0]{name};
- Txt " ($_[0]{original})" if $_[0]{original};
- }, sort { $a->{name} cmp $b->{name} || $a->{original} cmp $b->{original} } @alias;
- }
- } : (),
-
- sub {
- Dt 'Language';
- Dd sub {
- Lang $e->{lang};
- Txt " $LANGUAGE{$e->{lang}}";
- }
- },
-
- @links ? sub {
- Dt 'Links';
- Dd sub {
- Join ', ', sub { A href => $_[0][1], rel => 'nofollow', $_[0][0] }, @links;
- };
- } : (),
- );
-
- Div class => 'row', sub {
- Div class => 'fixed-size-left-sidebar-md', sub {
- H2 class => 'detail-page-sidebar-section-header', 'Details';
- };
- Div class => 'col-md', sub {
- Div class => 'card card--white mb-5', sub {
- Div class => 'card__section fs-medium', sub {
- Div class => 'row', sub {
- Dl class => 'col-md dl--horizontal', sub { $_->() for @list[0..$#list/2] };
- Dl class => 'col-md dl--horizontal', sub { $_->() for @list[$#list/2+1..$#list] };
- }
- }
- }
- }
- } if @list;
-}
-
-
-sub Roles {
- my $e = shift;
-
- my $roles = tuwf->dbAlli(q{
- SELECT sa.id, sa.aid, v.id AS vid, sa.name, sa.original, v.c_released, v.title, v.original AS t_original, vs.role, vs.note
- FROM vn_staff vs
- JOIN vn v ON v.id = vs.id
- JOIN staff_alias sa ON vs.aid = sa.aid
- WHERE sa.id =}, \$e->{id}, q{ AND NOT v.hidden
- ORDER BY v.c_released ASC, v.title ASC, vs.role ASC
- });
- return if !@$roles;
-
- my $rows = sub {
- for my $r (@$roles) {
- Tr sub {
- Td class => 'tabular-nums muted', sub { ReleaseDate $r->{c_released} };
- Td sub {
- A href => "/v$r->{vid}", title => $r->{t_original}||$r->{title}, $r->{title};
- };
- Td $CREDIT_TYPE{$r->{role}};
- Td title => $r->{original}||$r->{name}, $r->{name};
- Td $r->{note};
- };
- }
- };
-
- # TODO: Full-width table? It's pretty dense
- Div class => 'row', sub {
- Div class => 'fixed-size-left-sidebar-md', sub {
- H2 class => 'detail-page-sidebar-section-header', 'Credits';
- Debug $roles;
- };
- Div class => 'col-md', sub {
- Div class => 'card card--white mb-5', sub {
- Table class => 'table table--responsive-single-sm fs-medium', sub {
- Thead sub {
- Tr sub {
- Th width => '15%', 'Date';
- Th width => '30%', 'Title';
- Th width => '20%', 'Role';
- Th width => '20%', 'As';
- Th width => '15%', 'Note';
- };
- };
- Tbody $rows;
- };
- }
- }
- }
-}
-
-
-sub Cast {
- my $e = shift;
-
- my $cast = tuwf->dbAlli(q{
- SELECT sa.id, sa.aid, v.id AS vid, sa.name, sa.original, v.c_released, v.title, v.original AS t_original, c.id AS cid, c.name AS c_name, c.original AS c_original, vs.note
- FROM vn_seiyuu vs
- JOIN vn v ON v.id = vs.id
- JOIN chars c ON c.id = vs.cid
- JOIN staff_alias sa ON vs.aid = sa.aid
- WHERE sa.id =}, \$e->{id}, q{ AND NOT v.hidden
- ORDER BY v.c_released ASC, v.title ASC
- });
- return if !@$cast;
-
- my $rows = sub {
- for my $c (@$cast) {
- Tr sub {
- Td class => 'tabular-nums muted', sub { ReleaseDate $c->{c_released} };
- Td sub {
- A href => "/v$c->{vid}", title => $c->{t_original}||$c->{title}, $c->{title};
- };
- Td sub {
- A href => "/c$c->{cid}", title => $c->{c_original}||$c->{c_name}, $c->{c_name};
- };
- Td title => $c->{original}||$c->{name}, $c->{name};
- Td $c->{note};
- };
- }
- };
-
- # TODO: Full-width table? It's pretty dense
- Div class => 'row', sub {
- Div class => 'fixed-size-left-sidebar-md', sub {
- H2 class => 'detail-page-sidebar-section-header', 'Voiced Characters';
- Debug $cast;
- };
- Div class => 'col-md', sub {
- Div class => 'card card--white mb-5', sub {
- Table class => 'table table--responsive-single-sm fs-medium', sub {
- Thead sub {
- Tr sub {
- Th width => '15%', 'Date';
- Th width => '30%', 'Title';
- Th width => '20%', 'Cast';
- Th width => '20%', 'As';
- Th width => '15%', 'Note';
- };
- };
- Tbody $rows;
- };
- }
- }
- }
-}
-
-
-TUWF::get qr{/$SREV_RE}, sub {
- my $e = entry s => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
- return tuwf->resNotFound if !$e->{id} || $e->{hidden};
-
- ($e->{name}, $e->{original}) = @{(grep $_->{aid} == $e->{aid}, @{$e->{alias}})[0]}{'name', 'original'};
-
- Framework
- title => $e->{name},
- top => sub {
- Div class => 'col-md', sub {
- EntryEdit s => $e;
- Div class => 'detail-page-title', sub {
- Txt $e->{name};
- Txt ' '.gender_icon $e->{gender};
- Debug $e;
- };
- Div class => 'detail-page-subtitle', $e->{original} if $e->{original};
- }
- },
- sub {
- DetailsTable $e;
- Notes $e;
- Roles $e;
- Cast $e;
- };
-};
-
-1;
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 12:37:35 +0000