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
|
package VNWeb::TT::Lib;
use VNWeb::Prelude;
use Exporter 'import';
our @EXPORT = qw/ tagscore_ enrich_group tree_ /;
sub tagscore_ {
my($s, $ign) = @_;
div_ mkclass(tagscore => 1, negative => $s < 0, ignored => $ign), sub {
span_ sprintf '%.1f', $s;
div_ style => sprintf('width: %.0fpx', abs $s/3*30), '';
};
}
# Add a 'group' name for traits
sub enrich_group {
my($type, @lst) = @_;
enrich_merge id => 'SELECT t.id, g.name AS "group" FROM traits t JOIN traits g ON g.id = t."group" WHERE t.id IN', @lst if $type eq 'i';
}
sub tree_ {
my($type, $id) = @_;
my $table = $type eq 'g' ? 'tag' : 'trait';
my $top = tuwf->dbAlli(
"SELECT id, name, c_items FROM ${table}s
WHERE state = 1+1
AND", $id ? sql "id IN(SELECT $table FROM ${table}s_parents WHERE parent = ", \$id, ')'
: "NOT EXISTS(SELECT 1 FROM ${table}s_parents WHERE $table = id)", "
ORDER BY ", $type eq 'g' || $id ? 'name' : '"order"'
);
return if !@$top;
enrich childs => id => parent => sub { sql
"SELECT tp.parent, t.id, t.name, t.c_items FROM ${table}s t JOIN ${table}s_parents tp ON tp.$table = t.id WHERE state = 1+1 AND tp.parent IN", $_, 'ORDER BY name'
}, $top;
$top = [ sort { $b->{childs}->@* <=> $a->{childs}->@* } @$top ] if $type eq 'g' || $id;
my sub lnk_ {
a_ href => "/$type$_[0]{id}", $_[0]{name};
b_ class => 'grayedout', " ($_[0]{c_items})" if $_[0]{c_items};
}
div_ class => 'mainbox', sub {
h1_ $id ? ($type eq 'g' ? 'Child tags' : 'Child traits') : $type eq 'g' ? 'Tag tree' : 'Trait tree';
ul_ class => 'tagtree', sub {
li_ sub {
lnk_ $_;
my $sub = $_->{childs};
ul_ sub {
li_ sub {
txt_ '> ';
lnk_ $_;
} for grep $_, $sub->@[0 .. (@$sub > 6 ? 4 : 5)];
li_ sub {
my $num = @$sub-5;
txt_ '> ';
a_ href => "/$type$_->{id}", style => 'font-style: italic', sprintf '%d more %s%s', $num, $table, $num == 1 ? '' : 's';
} if @$sub > 6;
} if @$sub;
} for @$top;
};
clearfloat_;
br_;
};
}
1;
|
