--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6fc96504e2d27ad82b9a4b433e2acf731b913b72..d9032b153debf9de855467850eaff72703c84375 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -103,9 +103,9 @@ sub Triple::main {
                 $location = $vars->{"uri"};
             }
 
-            my $page = $page{$vars->{uri}} || $page{$vars->{''}};
+            my $search_page = $page{$vars->{uri}} || $page{$vars->{''}};
 
-            my @search = @{$page};
+            my @search = @{$search_page};
 
             if ($search[PAGE_TYPE] == REDIRECT_PAGE) {
                 # $vars->{uri} = $search[PAGE_TO];
@@ -129,10 +129,11 @@ sub Triple::main {
 
             next if $status ne '';
 
+            my $page = $static{$vars->{uri}};
             if (not $page) {
-                if (@{$page{$vars->{uri}}}[PAGE_TO]) {
+                if (@search[PAGE_TO]) {
                 }
-                my $dynamic = $page{$vars->{uri}};
+                my $dynamic = $search_page};
                 if ($dynamic) {
                     my @set = @{$dynamic};
                     $vars->{"title"} = "$set[PAGE_TITLE]";