From ae0af9c8a90270423a68fc3a1c225d74b80ed09e Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Wed, 1 Nov 2006 10:11:01 +0000
Subject: [PATCH] Fix to work with recently changed library directory
 specification. The setting of PERL5LIB in the Apache
 configuration meant that layout.mc no longer set the global
 LIBDIR, so now we fetch the IRSpyLibDir configuration
 manually.  Much cleaner.

---
 web/htdocs/details/doc.mc |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc
index 8d71d8a..beae59c 100644
--- a/web/htdocs/details/doc.mc
+++ b/web/htdocs/details/doc.mc
@@ -1,20 +1,21 @@
-%# $Id: doc.mc,v 1.1 2006-09-28 16:48:20 mike Exp $
+%# $Id: doc.mc,v 1.2 2006-11-01 10:11:01 mike Exp $
 <%once>
 use Pod::Html;
 use IO::Dir;
 </%once>
 <%perl>
+my $libdir = $r->dir_config("IRSpyLibDir");
 my $module = $r->param("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;
-- 
1.7.10.4