yarrg/web/navbar

   1 <a href="lookup">YARRG</a> -
   2  Yet Another Revenue Research Gatherer
   3 <%perl>
   4
   5 $_= <<END;
   6 intro   introduction
   7 upload  uploading
   8 docs    documentation
   9 devel   development
  10 END
  11
  12 my $name= $m->request_comp()->name();
  13
  14 while (s/^(\w+)\t(.*)$//m) {
  15         my ($tname, $thtml) = ($1,$2);
  16         if ($tname eq $name) {
  17                 print "| <b>$thtml</b>\n";
  18         } else {
  19                 print "| <a href=\"$tname\">$thtml</a>\n";
  20         }
  21 }
  22 </%perl>