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
|
package VNDB::DB::Chars;
use strict;
use warnings;
use Exporter 'import';
our @EXPORT = qw|dbCharGet dbCharRevisionInsert dbCharImageId|;
# options: id rev what results page
# what: extended changes
sub dbCharGet {
my $self = shift;
my %o = (
page => 1,
results => 10,
what => '',
@_
);
my %where = (
!$o{id} && !$o{rev} ? ( 'c.hidden = FALSE' => 1 ) : (),
$o{id} ? ( 'c.id = ?' => $o{id} ) : (),
$o{rev} ? ( 'h.rev = ?' => $o{rev} ) : (),
);
my @select = qw|c.id cr.name cr.original|;
push @select, qw|c.hidden c.locked cr.alias cr.desc cr.image| if $o{what} =~ /extended/;
push @select, qw|h.requester h.comments c.latest u.username h.rev h.ihid h.ilock|, "extract('epoch' from h.added) as added", 'cr.id AS cid' if $o{what} =~ /changes/;
my @join;
push @join, $o{rev} ? 'JOIN chars c ON c.id = cr.cid' : 'JOIN chars c ON cr.id = c.latest';
push @join, 'JOIN changes h ON h.id = cr.id' if $o{what} =~ /changes/ || $o{rev};
push @join, 'JOIN users u ON u.id = h.requester' if $o{what} =~ /changes/;
my($r, $np) = $self->dbPage(\%o, q|
SELECT !s
FROM chars_rev cr
!s
!W|,
join(', ', @select), join(' ', @join), \%where);
return wantarray ? ($r, $np) : $r;
}
# Updates the edit_* tables, used from dbItemEdit()
# Arguments: { columns in chars_rev },
sub dbCharRevisionInsert {
my($self, $o) = @_;
my %set = map exists($o->{$_}) ? (qq|"$_" = ?|, $o->{$_}) : (),
qw|name original alias desc image|;
$self->dbExec('UPDATE edit_char !H', \%set) if keys %set;
}
# fetches an ID for a new image
sub dbCharImageId {
return shift->dbRow("SELECT nextval('charimg_seq') AS ni")->{ni};
}
1;
|