X-Git-Url: https://git.distorted.org.uk/~mdw/bridge-toys/blobdiff_plain/bba7b95e5c451493e5de191e34da503859347141..8faa0e7d8b55cb199b5c5ffb526e386afef1731b:/mason/dhandler diff --git a/mason/dhandler b/mason/dhandler index d7c1da5..59d5e3e 100755 --- a/mason/dhandler +++ b/mason/dhandler @@ -41,15 +41,32 @@ $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>