From 0930cca0a1166cfceb3801b2d72e95fd66f1e06f Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Thu, 29 May 2025 18:37:01 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index 6fc9650..d9032b1 100644 --- 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]"; -- 2.39.5