*** lib/TWiki.pm.orig 2005-08-22 18:28:57.000000000 +0200 --- lib/TWiki.pm 2005-08-22 19:16:17.000000000 +0200 *************** *** 126,131 **** --- 126,132 ---- $userName $wikiName $wikiUserName $urlHost $debugUserTime $debugSystemTime $script $pageMode $readTopicPermissionFailed $cgiQuery $basicInitDone + $viewForce ); # =========================== *************** *** 854,864 **** -cache_control => "max-age=$expireSeconds", ); } elsif ($pageType eq 'basic') { if ($lastModifiedDate) { my $lastModifiedDateString = &formatTime($lastModifiedDate, '\$http'); if ($expirationLastDateOffset) { my $expirationDateString = &formatTime($lastModifiedDate + ! $expirationLastDateOffset, '\$http'); $coreHeaders = $query->header( -content_type => $contentType, --- 855,868 ---- -cache_control => "max-age=$expireSeconds", ); } elsif ($pageType eq 'basic') { + if ($viewForce) { + $lastModifiedDate = time(); + } if ($lastModifiedDate) { my $lastModifiedDateString = &formatTime($lastModifiedDate, '\$http'); if ($expirationLastDateOffset) { my $expirationDateString = &formatTime($lastModifiedDate + ! ($viewForce ? 0 : $expirationLastDateOffset), '\$http'); $coreHeaders = $query->header( -content_type => $contentType, *************** *** 981,986 **** --- 985,993 ---- sub redirect { my( $query, $url ) = @_; + my $olds = $dispScriptUrlPath . $dispViewPath; + my $news = $dispScriptUrlPath . $dispViewPath . "f"; + $url =~ s|$olds|$news|; if( ! &TWiki::Plugins::redirectCgiQueryHandler( $query, $url ) ) { print $query->redirect( $url ); } *** bin/view.orig 2005-08-22 18:32:01.000000000 +0200 --- bin/view 2005-08-22 18:32:10.000000000 +0200 *************** *** 42,47 **** --- 42,48 ---- my $theTopic = $query->param( 'topic' ); my $theUrl = $query->url; + $TWiki::viewforce = ''; my( $topic, $webName, $scriptUrlPath, $userName ) = TWiki::initialize( $thePathInfo, $theRemoteUser, $theTopic, $theUrl, $query );