projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b53ac0d
)
"Soft" errors for not-yet-available help.
author
Mike Taylor
<mike@indexdata.com>
Tue, 5 Dec 2006 12:29:38 +0000
(12:29 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Tue, 5 Dec 2006 12:29:38 +0000
(12:29 +0000)
web/htdocs/help.html
patch
|
blob
|
history
diff --git
a/web/htdocs/help.html
b/web/htdocs/help.html
index
8793011
..
ba4b3ee
100644
(file)
--- 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
</%args>
<%args>
$help
</%args>
@@
-60,10
+60,14
@@
Nice one, W3C! Way to improve cross-browser portability!
</head>
<body>
<h1>IRSpy help: <% $help %></h1>
</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>
<p>
<input type="button" onclick="self.close()" value="OK"/>
</p>