bug fixes

docs/changelog/6.x.x.txt

@@ -3,6 +3,7 @@
  - Added all sorts of caching to increase performance.
  - Fixed resetting votes on Poll would crash it.
  - Fixed not being able to set display title and other yes no questions to no.
+ - Fixed a bug where URLs would become unreachable when using SSL.
 
 
 6.3.0

lib/WebGUI/Asset/Wobject.pm

@@ -572,10 +572,10 @@ sub www_view {
 		) && 
 		not $session{var}{adminOn}
 	);
-#	if ($useCache) {
- #              	$cache = WebGUI::Cache->new("asset_".$self->getId."_".$session{user}{userId});
-  #         	$output = $cache->get;
-#	}
+	if ($useCache) {
+               	$cache = WebGUI::Cache->new("wobject_".$self->getId."_".$session{user}{userId});
+           	$output = $cache->get;
+	}
 	unless ($output) {
 		$output = $self->processStyle($self->view);
 		my $ttl;
@@ -584,7 +584,7 @@ sub www_view {
 		} else {
 			$ttl = $self->get("cacheTimeout");
 		}
-#		$cache->set($output, $ttl) if ($useCache && !WebGUI::HTTP::isRedirect());
+		$cache->set($output, $ttl) if ($useCache && !WebGUI::HTTP::isRedirect());
 	}
 	return $output;
 }

lib/WebGUI/URL.pm

@@ -256,9 +256,8 @@ sub page {
         my $url;
         if ($useFullUrl) {
                 $url = getSiteURL();
-        } else {
-                $url = getScriptURL();
         }
+        $url .= getScriptURL();
        	my $pathinfo = $session{env}{PATH_INFO};
 	$pathinfo =~ s/^\/(.*)/$1/;
         $url .= $pathinfo;