--- Store-ORIG.pm	Mon Oct  8 20:48:10 2001
+++ Store.pm	Thu Oct 18 20:39:29 2001
@@ -453,7 +453,20 @@
     my $tmp= $TWiki::revCoCmd;
     my $fileName = "$TWiki::dataDir/$theWeb/$theTopic.txt";
     $tmp =~ s/%FILENAME%/$fileName/;
-    $tmp =~ s/%REVISION%/$theRev/;
+    # begin mtbear 2001-10-18: allow datetime for revision
+    if ($theRev =~ /^D\d{4}/)  # revision is a date
+    {
+    	$theRev =~ s/^D//;
+    	$tmp =~ s/%DATETIME%/"$theRev"/;
+    	$tmp =~ s/%REVISION%//;
+    }
+    else # normal revision
+    {
+    	$tmp =~ s/%DATETIME%//;
+    	$tmp =~ s/%REVISION%/$theRev/;
+    }
+    # end mtbear 2001-10-18: allow datetime for revision
+    #$tmp =~ s/%REVISION%/$theRev/;
     $tmp =~ /(.*)/;
     $tmp = $1;       # now safe, so untaint variable
     my $text = `$tmp`;
@@ -469,7 +482,20 @@
    my $tmp = $TWiki::revCoCmd;
    my $fileName = getFileName( $theWeb, $theTopic, $theAttachment, ",v" ); 
    $tmp =~ s/%FILENAME%/$fileName/;
-   $tmp =~ s/%REVISION%/$theRev/;
+    # begin mtbear 2001-10-18: allow datetime for revision
+    if ($theRev =~ /^D\d{4}/)  # revision is a date
+    {
+    	$theRev =~ s/^D//;
+    	$tmp =~ s/%DATETIME%/"$theRev"/;
+    	$tmp =~ s/%REVISION%//;
+    }
+    else # normal revision
+    {
+    	$tmp =~ s/%DATETIME%//;
+    	$tmp =~ s/%REVISION%/$theRev/;
+    }
+    # end mtbear 2001-10-18: allow datetime for revision
+   #$tmp =~ s/%REVISION%/$theRev/;
    $tmp =~ /(.*)/;
    $tmp = $1;       # now safe, so untaint variable
    my $text = `$tmp`;