Diff
Not logged in

Differences From:

File tools/lib/cvs_timeline.tcl part of check-in [10e3b3ed76] - Fixed bug in the new code setting up the timeline, forgot to clean up loop state, causing data from previous iterations to bleed into the current one, causing the use of bogus data and ultimatively a bogus timeline. Note! Incidentially a bug in the old code was fixed by the new one, the use of mismatching revisions and commit messages. That caused the generation of extra changesets in the old code. by aku on 2007-09-17 04:14:18. [view]

To:

File tools/lib/cvs_timeline.tcl part of check-in [a5476aed27] - Modified sorting of timeline entries for the same second to properly split files and file versions from each other, and to have newer revisions later. Further added a storage for error messages to be repeated when the importer exist. First user is the code reporting corrupted archive files detected during a checkout. by aku on 2007-09-20 03:51:49. [view]

@@ -31,14 +31,16 @@
 
     ::foreach date [lsort -dict [array names timeline]] {
 	# file revision operation author commitmsg
 	# 0    1        2         3      4/end
-	#               b         c      a
+	# d    e        b         c      a
 
-	set entries [lsort -index 3 \
-			 [lsort -index 2 \
-			      [lsort -index end \
-				   $timeline($date)]]]
+	set entries [lsort -index 1 \
+			 [lsort -index 0 \
+			      [lsort -index 3 \
+				   [lsort -index 2 \
+					[lsort -index end \
+					     $timeline($date)]]]]]
 	#puts [join $entries \n]
 
 	::foreach entry $entries {
 	    lassign $entry file revision operation author cmsg