-%# $Id: help.html,v 1.3 2006-12-05 12:24:51 mike Exp $
+%# $Id: help.html,v 1.4 2006-12-05 12:29:38 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");
-% }
+<%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>
<input type="button" onclick="self.close()" value="OK"/>
</p>
projects / irspy-moved-to-github.git / commitdiff