diff --git a/docs/changelog/5.x.x.txt b/docs/changelog/5.x.x.txt index 524d8ec3e..8f20d0f95 100644 --- a/docs/changelog/5.x.x.txt +++ b/docs/changelog/5.x.x.txt @@ -19,6 +19,9 @@ usernames in the database. (Thanks to Martin Kamerbeek.) - Fixed a bug in the 5.4.3-5.4.4 upgrade script that some users experienced with null values in their DataForm. + - If the Cache Timeout on a given page is set to 10 seconds or less, that + page will not be cached. + 5.4.4 - Updated Finnish translation. (Thanks to Markus Hynna.) diff --git a/docs/upgrades/upgrade_5.4.4-5.5.0.pl b/docs/upgrades/upgrade_5.4.4-5.5.0.pl index de28c66e8..9cef298e1 100644 --- a/docs/upgrades/upgrade_5.4.4-5.5.0.pl +++ b/docs/upgrades/upgrade_5.4.4-5.5.0.pl @@ -39,12 +39,6 @@ my $macros = $conf->get("macros"); delete $macros->{"\\"}; $macros->{"\\\\"} = "Backslash_pageUrl"; $conf->set("macros"=>$macros); -my $wobjects = $conf->get("wobjects"); -my @newWobjects = qw(SOAPClient); -foreach (@{$wobjects}) { - push(@newWobjects, $_); -} -$conf->set("wobjects"=>\@newWobjects); $conf->set("searchAndReplace"=>undef); $conf->write; diff --git a/etc/WebGUI.conf.original b/etc/WebGUI.conf.original index 6fe0582db..946901203 100644 --- a/etc/WebGUI.conf.original +++ b/etc/WebGUI.conf.original @@ -70,15 +70,3 @@ macros = a => a_account, \ T => T_topMenuVertical, \ u => u_companyUrl -searchAndReplace = \ - :) => "", \ - :-) => "", \ - :( => "", \ - :-( => "", \ - ;) => "", \ - ;-) => "", \ - :D => "", \ - :p => "", \ - :O => "", \ - WebGUI => "WebGUI" - diff --git a/lib/WebGUI.pm b/lib/WebGUI.pm index 81a8839b6..c0f69fb0b 100644 --- a/lib/WebGUI.pm +++ b/lib/WebGUI.pm @@ -225,7 +225,9 @@ sub _processOperations { sub page { my ($cache, $debug, $positions, $wobjectOutput, $pageEdit, $httpHeader, $content, $operationOutput, $template); WebGUI::Session::open($_[0],$_[1]); - my $useCache = ($session{form}{op} eq "" && $session{form}{wid} eq "" && $session{form}{makePrintable} eq "" && not $session{var}{adminOn}); + my $useCache = ($session{form}{op} eq "" && $session{form}{wid} eq "" && $session{form}{makePrintable} eq "" + && (($session{page}{cacheTimeout} > 10 && $session{user}{userId} !=1) || ($session{page}{cacheTimeout} > 10 && $session{user}{userId} == 1)) + && not $session{var}{adminOn}); if ($useCache) { $cache = WebGUI::Cache->new("page_".$session{page}{pageId}."_".$session{user}{userId}); $content = $cache->get;