X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fdoc.mc;h=58c255f626845e474f638ef260e132774567f338;hb=ad90ed871cf7a923681031a57ea7552569d18036;hp=beae59cbb31c1174e8bc41259945de3ceb909300;hpb=ae0af9c8a90270423a68fc3a1c225d74b80ed09e;p=irspy-moved-to-github.git

diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc
index beae59c..58c255f 100644
--- a/web/htdocs/details/doc.mc
+++ b/web/htdocs/details/doc.mc
@@ -1,11 +1,11 @@
-%# $Id: doc.mc,v 1.2 2006-11-01 10:11:01 mike Exp $
+%# $Id: doc.mc,v 1.4 2007-05-03 14:13:19 mike Exp $
 <%once>
 use Pod::Html;
 use IO::Dir;
 </%once>
 <%perl>
 my $libdir = $r->dir_config("IRSpyLibDir");
-my $module = $r->param("module");
+my $module = utf8param($r, "module");
 if (!defined $module) {
     print "     <ul>\n";
     render_doc_links($libdir, "ZOOM", 6);
@@ -31,7 +31,7 @@ sub render_doc_links {
 	or die "can't open directory handle for '$base/$dir'";
 
     print " " x $level, "<li><b>$dir</b></li>\n";
-    print " " x $level, "<ul>\n";
+    print " " x $level, "<li><ul>\n";
 
     my(@files, @dirs);
     while (my $file = $dh->read()) {
@@ -53,7 +53,7 @@ sub render_doc_links {
 	render_doc_links($base, "$dir/$file", $level+1);
     }
 
-    print " " x $level, "</ul>\n";
+    print " " x $level, "</ul></li>\n";
     undef $dh;
 }
 </%perl>