101a102,103
>     my($rev, $revdate, $revuser, $showRev, $orgDate, $orgAuth, $orgRev);
>     my $rev = $store->cleanUpRevID( $query->param( 'rev' )); # CRM
189a192,214
> 
>         ( $revdate, $revuser, $showRev ) = $meta->getRevisionInfo();
> 	$orgDate = $revdate;
> 	$orgAuth = $revuser;
> 	$orgRev  = $showRev;
> 
>         $revdate = TWiki::Time::formatTime( $revdate );
> 
>         if ( !$rev || $rev > $showRev ) {
>             $rev = $showRev;
>         }
> 
>         if( $rev < $showRev ) {
> 	    print STDERR "Loading Old version [$rev] [$editaction]\n";
> 	    # grab the old revision
>             ( $meta, $text ) = $store->readTopic
>               ( $session->{user}, $webName, $topic, $rev );
> 
>             ( $revdate, $revuser ) = $meta->getRevisionInfo();
>             $revdate = TWiki::Time::formatTime( $revdate );
> 	    $session->enterContext( 'old_revision' );
> 	    $extra = "(editing OLD version $rev)";
> #            $logEntry .= 'r'.$rev;
190a216
>     } # If $topicExists
262a289,291
> 
>     print STDERR "[$topicExists] [$rev] [$showRev][$tmpl]\n";
> 
264c293
<         my ( $orgDate, $orgAuth, $orgRev ) = $meta->getRevisionInfo();
---
> #        my ( $orgDate, $orgAuth, $orgRev ) = $meta->getRevisionInfo();
265a295,300
> #        $tmpl =~ s/%ORIGINALREV%/${rev}_$revdate/g;
> 	if( $rev == $showRev ){
> 	    $tmpl =~ s/%EDIT_VERSION_INFO%/(edit)/g;
> 	} else {
> 	    $tmpl =~ s/%EDIT_VERSION_INFO%/(editing Version $rev)/g;
> 	}
267a303
> 	$tmpl =~ s/%EDIT_VERSION_INFO%/(edit)/g;
268a305
>     print STDERR "after [$topicExists] [$rev] [$showRev][$tmpl]\n";
304c341
<                                                  $topic, undef );
---
>                                                  $topic, $rev );