***************
*** 289,294 ****
---- 290,323 ----
+--- 290,319 ----
}
} #}}}
+ my $page=shift;
+ my $unescaped=shift;
+
-+ print "debug1: $page\n";
-+
+ if ($page =~ m#/#) {
+ $page =~ s#^/##;
+ $page =~ s#/index$##;
+ $page=~s/(__(\d+)__|_)/$1 eq '_' ? ' ' : "&#$2;"/eg;
+ }
+
-+ print "debug2: $page\n";
-+
+ return $page;
+ } #}}}
+