#include 'head.wml' #use wml::std::tags sub print_li_header { my $page = $_[0]; my $path = $_[1]; my $name = $_[2]; my $_name; if ($page ne $name) { $_name =~ s/\s/_/g; print "
  • $name
  • \n"; } else { print "
  • $name
  • \n"; } return; }