X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fdoc.mc;h=5b93d30b6c90d466acc74e58551f3c8d867227cd;hb=b66f67b1ca0675fc3529ed886d2bd7165d42bd6a;hp=8d71d8ab9f10b39c74b287396d74a74ba737aa5c;hpb=75306034fd1b6d093b085c381c2ae0aca37c46e8;p=irspy-moved-to-github.git

diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc
index 8d71d8a..5b93d30 100644
--- a/web/htdocs/details/doc.mc
+++ b/web/htdocs/details/doc.mc
@@ -1,20 +1,20 @@
-%# $Id: doc.mc,v 1.1 2006-09-28 16:48:20 mike Exp $
 <%once>
 use Pod::Html;
 use IO::Dir;
 </%once>
 <%perl>
-my $module = $r->param("module");
+my $libdir = $r->dir_config("IRSpyLibDir");
+my $module = utf8param($r, "module");
 if (!defined $module) {
     print "     <ul>\n";
-    render_doc_links($LIBDIR, "ZOOM", 6);
+    render_doc_links($libdir, "ZOOM", 6);
     print "     </ul>\n";
 } else {
     print "<b>Documentation for '$module'</b>\n";
     { my $dir = "/tmp/pod2html"; mkdir $dir; chdir $dir || die $!; }
     # For some reason, output to standard output doesn't appear
     my $name = "ZOOM.html";
-    pod2html("$LIBDIR/$module", "--outfile=$name");
+    pod2html("$libdir/$module", "--outfile=$name");
     open F, "<$name" or die "can't open '$name': $!";
     my $text = join("", <F>);
     close F;
@@ -30,7 +30,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()) {
@@ -52,7 +52,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>