Make shifted keys actually work. Modifier map contains codes, not syms

[ypp-sc-tools.db-test.git] / yarrg / web / dhandler

diff --git a/yarrg/web/dhandler b/yarrg/web/dhandler
index 2cdb09c823ec81ded6fad8a8672bebd723d534e6..aec56ca39e3c22c3d6d6aecedb5179f6ad55a961 100644 (file)
--- a/yarrg/web/dhandler
+++ b/yarrg/web/dhandler
@@ -1,7 +1,7 @@
 <%perl>
 my $arg= $m->dhandler_arg;
 if ($arg =~ m,^/?$,) {
 <%perl>
 my $arg= $m->dhandler_arg;
 if ($arg =~ m,^/?$,) {

-       $m->redirect('lookup');
+       $m->redirect('intro');

 } else {
        $r->header_out('Status','404 Not found');
 </%perl>
 } else {
        $r->header_out('Status','404 Not found');
 </%perl>