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
|
package VNDB::DB::Producers;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw|dbProducerGet dbProducerEdit dbProducerAdd|;
# options: results, page, id, search, char, rev
# what: changes, vn
sub dbProducerGet {
my $self = shift;
my %o = (
results => 10,
page => 1,
what => '',
@_
);
$o{search} =~ s/%//g if $o{search};
my %where = (
!$o{id} && !$o{rev} ? (
'p.hidden = FALSE' => 1 ) : (),
$o{id} ? (
'p.id = ?' => $o{id} ) : (),
$o{search} ? (
'(pr.name ILIKE ? OR pr.original ILIKE ?)', [ '%%'.$o{search}.'%%', '%%'.$o{search}.'%%' ] ) : (),
$o{char} ? (
'LOWER(SUBSTR(pr.name, 1, 1)) = ?' => $o{char} ) : (),
defined $o{char} && !$o{char} ? (
'(ASCII(pr.name) < 97 OR ASCII(pr.name) > 122) AND (ASCII(pr.name) < 65 OR ASCII(pr.name) > 90)' => 1 ) : (),
$o{rev} ? (
'c.rev = ?' => $o{rev} ) : (),
);
my @join;
push @join, $o{rev} ? 'JOIN producers p ON p.id = pr.pid' : 'JOIN producers p ON pr.id = p.latest';
push @join, 'JOIN changes c ON c.id = pr.id' if $o{what} =~ /changes/ || $o{rev};
push @join, 'JOIN users u ON u.id = c.requester' if $o{what} =~ /changes/;
my $select = 'p.id, p.locked, p.hidden, pr.type, pr.name, pr.original, pr.website, pr.lang, pr.desc';
$select .= ', c.added, c.requester, c.comments, p.latest, pr.id AS cid, u.username, c.rev' if $o{what} =~ /changes/;
my($r, $np) = $self->dbPage(\%o, q|
SELECT !s
FROM producers_rev pr
!s
!W
ORDER BY pr.name ASC|,
$select, join(' ', @join), \%where,
);
if(@$r && $o{what} =~ /vn/) {
my %r = map {
$r->[$_]{vn} = [];
($r->[$_]{id}, $_)
} 0..$#$r;
push @{$r->[$r{$_->{pid}}]{vn}}, $_ for (@{$self->dbAll(q|
SELECT MAX(vp.pid) AS pid, v.id, MAX(vr.title) AS title, MAX(vr.original) AS original, MIN(rr.released) AS date
FROM releases_producers vp
JOIN releases_rev rr ON rr.id = vp.rid
JOIN releases r ON r.latest = rr.id
JOIN releases_vn rv ON rv.rid = rr.id
JOIN vn v ON v.id = rv.vid
JOIN vn_rev vr ON vr.id = v.latest
WHERE vp.pid IN(!l)
AND v.hidden = FALSE
GROUP BY v.id
ORDER BY date|,
[ keys %r ]
)});
}
return wantarray ? ($r, $np) : $r;
}
# arguments: id, %options ->( editsum uid + insert_rev )
# returns: ( local revision, global revision )
sub dbProducerEdit {
my($self, $pid, %o) = @_;
my($rev, $cid) = $self->dbRevisionInsert(2, $pid, $o{editsum}, $o{uid});
insert_rev($self, $cid, $pid, \%o);
return ($rev, $cid);
}
# arguments: %options ->( editsum uid + insert_rev )
# returns: ( item id, global revision )
sub dbProducerAdd {
my($self, %o) = @_;
my($pid, $cid) = $self->dbItemInsert(2, $o{editsum}, $o{uid});
insert_rev($self, $cid, $pid, \%o);
return ($pid, $cid);
}
# helper function, inserts a producer revision
# Arguments: global revision, item id, { columns in producers_rev }
sub insert_rev {
my($self, $cid, $pid, $o) = @_;
$self->dbExec(q|
INSERT INTO producers_rev (id, pid, name, original, website, type, lang, "desc")
VALUES (!l)|,
[ $cid, $pid, @$o{qw| name original website type lang desc|} ]
);
}
1;
|