1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
package VN3::VN::Lib;
use VN3::Prelude;
our @EXPORT = qw/TopNav/;
sub TopNav {
my($page, $v) = @_;
my $rg = exists $v->{rgraph} ? $v->{rgraph} : tuwf->dbVali('SELECT rgraph FROM vn WHERE id=', \$v->{id});
Div class => 'nav raised-top-nav', sub {
Div mkclass('nav__item' => 1, 'nav__item--active' => $page eq 'details'), sub { A href => "/v$v->{id}", class => 'nav__link', 'Details'; };
Div mkclass('nav__item' => 1, 'nav__item--active' => $page eq 'discussions'),sub { A href => "/t/v$v->{id}", class => 'nav__link', 'Discussions'; }; # TODO: count
Div mkclass('nav__item' => 1, 'nav__item--active' => $page eq 'relations'), sub { A href => "/v$v->{id}/rg", class => 'nav__link', 'Relations'; } if $rg;
};
}
1;
|