X-Git-Url: https://git.distorted.org.uk/~mdw/bridge-toys/blobdiff_plain/bba7b95e5c451493e5de191e34da503859347141..4e99596f8d875b88744237b14b04ede536b4c7fb:/mason/dhandler diff --git a/mason/dhandler b/mason/dhandler index d7c1da5..7cf6ed6 100755 --- a/mason/dhandler +++ b/mason/dhandler @@ -32,24 +32,37 @@ %perl> %# -<%flags> - inherit => "%html" -%flags> -%# <%args> $nbox => 4 $nrow => 4 %args> %# -<%method title>Single hand%method> +<%method title>\ +% if ($fail) { +Not found\ +% } else { +Single hand\ +% } +%method> +%# +<%def .not-found> +
<% $what |h %>
’.
+% return 404;
+<%args>
+ $what
+%args>
+%def>
%#
<%once>
use Deal;
%once>
%#
+<%shared>
+ my $fail = ($m->dhandler_arg ne "");
+%shared>
+%#
<%init>
- unless ($m->dhandler_arg eq "") {
- $m->clear_buffer;
- $m->comp("%not-found", what => $m->dhandler_arg);
- }
+ return $m->comp(".not-found", what => $m->dhandler_arg)
+ if $fail;
%init>