fix issue where /secure/secure/secure local_hrefs propagated

lib/TCMS.pm

@@ -167,8 +167,11 @@ sub _routes ( $data = {} ) {
     # XXX this is probably bad in the case of the specific content-typed routes, they should be mutex
     my %roots = $data->routes();
 
-    # Setup the /secure/... versions for logged in users
-    @roots{ map { "/secure$_" } keys(%roots) } = values(%roots);
+    # Setup the /secure/... versions for logged in users, except for already secured routes.
+    foreach my $route (keys(%roots)) {
+        next if index($route, '/secure/') == 0;
+        $roots{"/secure$route"} = $roots{$route};
+    }
 
     # It is the responsibility of theme authors to setup /secure routes (other than index)
     my %themed = Trog::Themes::routes();

lib/Trog/DataModule.pm

@@ -402,6 +402,11 @@ sub add ( $self, @posts ) {
         }
         $post->{version} //= 0;
 
+        #XXX if local_href has /secure paths in it, fix this.  We don't want to save that.
+        if (index($post->{local_href}, '/secure/') == 0) {
+            $post->{local_href} =~ s|/secure||gmx;
+        }
+
         $post = _process($post);
 
         push @to_write, $post;