diff options
Diffstat (limited to 'lib/VN3/VN/Lib.pm')
-rw-r--r-- | lib/VN3/VN/Lib.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lib/VN3/VN/Lib.pm b/lib/VN3/VN/Lib.pm new file mode 100644 index 00000000..9571cef8 --- /dev/null +++ b/lib/VN3/VN/Lib.pm @@ -0,0 +1,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; |