projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
email link.
[irspy-moved-to-github.git]
/
web
/
htdocs
/
details
/
doc.mc
diff --git
a/web/htdocs/details/doc.mc
b/web/htdocs/details/doc.mc
index
beae59c
..
58c255f
100644
(file)
--- 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");
<%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);
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";
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()) {
my(@files, @dirs);
while (my $file = $dh->read()) {
@@
-53,7
+53,7
@@
sub render_doc_links {
render_doc_links($base, "$dir/$file", $level+1);
}
render_doc_links($base, "$dir/$file", $level+1);
}
- print " " x $level, "</ul>\n";
+ print " " x $level, "</ul></li>\n";
undef $dh;
}
</%perl>
undef $dh;
}
</%perl>