From 08f6de12df7219ee33400bb793590bbf178ec397 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Mon, 12 Apr 2004 03:28:53 +0000
Subject: [PATCH] (GetTextAtTime): Another bugfix for rollback action.

---
 wiki.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 636362d7..5cb74bc3 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -314,7 +314,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
     }
   }
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.381 2004/04/12 02:30:24 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.382 2004/04/12 03:28:53 as Exp $');
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
 }
 
@@ -2360,8 +2360,8 @@ sub OpenPage { # Sets global variables
 
 sub GetTextAtTime {
   my $ts = shift;
-  return $DeletedPage if $Page{revision} == 1 and $Page{ts} > $ts; # page is too new!
-  return $Page{text} if $Page{revision} == 1; # there is no older version!
+  return $Page{text} if $Page{ts} <= $ts; # current page is old enough
+  return $DeletedPage if $Page{revision} == 1 and $Page{ts} > $ts; # created after $ts!
   my @keeps = GetKeepFiles($OpenPageName);
   my ($maxts, $result, $newpage);
   foreach my $keep (@keeps) {