-%# $Id: help.html,v 1.3 2006-12-05 12:24:51 mike Exp $
+%# $Id: help.html,v 1.5 2006-12-06 14:07:17 mike Exp $
<%args>
$help
</%args>
</head>
<body>
<h1>IRSpy help: <% $help %></h1>
-% my @path = split /\//, $help;
-% foreach my $i (0 .. $#path) {
-% $m->comp("/help/" . join("/", @path[0..$#path-$i]) . ".html");
-% }
- <p>
+<%perl>
+my @path = split /\//, $help;
+foreach my $i (0 .. $#path) {
+ my $partialPath = join("/", @path[0..$#path-$i]);
+ eval { $m->comp("/help/$partialPath.html") };
+ print " <p>[No help for '$partialPath']</p>\n" if $@;
+}
+</%perl>
+ <p style="text-align: center">
<input type="button" onclick="self.close()" value="OK"/>
</p>
</body>