From: Mike Taylor Date: Tue, 5 Dec 2006 12:29:38 +0000 (+0000) Subject: "Soft" errors for not-yet-available help. X-Git-Tag: CPAN-v1.02~717 X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=e14cd3316c84da6a01e4dad42feda1b25216d796;p=irspy-moved-to-github.git "Soft" errors for not-yet-available help. --- diff --git a/web/htdocs/help.html b/web/htdocs/help.html index 8793011..ba4b3ee 100644 --- a/web/htdocs/help.html +++ b/web/htdocs/help.html @@ -1,4 +1,4 @@ -%# $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 @@ -60,10 +60,14 @@ Nice one, W3C! Way to improve cross-browser portability!

IRSpy help: <% $help %>

-% 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 "

[No help for '$partialPath']

\n" if $@; +} +