Reorganise docs to include new howto material in intro etc.

[ypp-sc-tools.main.git] / yarrg / web / navbar

diff --git a/yarrg/web/navbar b/yarrg/web/navbar
new file mode 100644 (file)
index 0000000..1b6ed81
--- /dev/null
+++ b/yarrg/web/navbar
@@ -0,0 +1,22 @@
+<a href="lookup">YARRG</a> -
+ Yet Another Revenue Research Gatherer
+<%perl>
+
+$_= <<END;
+intro  introduction
+upload uploading
+docs   documentation
+devel  development
+END
+
+my $name= $m->request_comp()->name();
+
+while (s/^(\w+)\t(.*)$//m) {
+       my ($tname, $thtml) = ($1,$2);
+       if ($tname eq $name) {
+               print "| <b>$thtml</b>\n";
+       } else {
+               print "| <a href=\"$tname\">$thtml</a>\n";
+       }
+}
+</%perl>