Differences From:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [adf168e23e] - Extended handling of id's for files so that we have them for backreferences from symbols and revisions. Completed persistence of revisions and symbols at file-level and fixed small problem with left-over links to branches. by aku on 2007-10-24 08:01:01. [view]

To:

File tools/cvs2fossil/lib/c2f_repository.tcl part of check-in [89e9b357ed] - Fixed saving of authors, log messages, meta data. This was wrong since revision 99e165d5c4, when the id databases were introduced. Simplified meta saving due to changed trunk coding (no NULL). by aku on 2007-10-25 05:16:57. [view]

@@ -269,9 +269,9 @@
     }
 
     proc SaveAuthors {} {
 	::variable myauthor
-	foreach {name aid} [array get myauthor] {
+	foreach {name aid} [$myauthor get] {
 	    state run {
 		INSERT INTO author ( aid,  name)
 		VALUES             ($aid, $name);
 	    }
@@ -280,9 +280,9 @@
     }
 
     proc SaveCommitMessages {} {
 	::variable mycmsg
-	foreach {text cid} [array get mycmsg] {
+	foreach {text cid} [$mycmsg get] {
 	    state run {
 		INSERT INTO cmessage ( cid,  text)
 		VALUES               ($cid, $text);
 	    }
@@ -291,21 +291,13 @@
     }
 
     proc SaveMeta {} {
 	::variable mymeta
-	foreach {key mid} [array get mymeta] {
+	foreach {key mid} [$mymeta get] {
 	    struct::list assign $key pid bid aid cid
-	    if {$bid eq ""} {
-		# Trunk. Encoded as NULL.
-		state run {
-		    INSERT INTO meta ( mid,  pid,  bid,  aid,  cid)
-		    VALUES           ($mid, $pid, NULL, $aid, $cid);
-		}
-	    } else {
-		state run {
-		    INSERT INTO meta ( mid,  pid,  bid,  aid,  cid)
-		    VALUES           ($mid, $pid, $bid, $aid, $cid);
-		}
+	    state run {
+		INSERT INTO meta ( mid,  pid,  bid,  aid,  cid)
+		VALUES           ($mid, $pid, $bid, $aid, $cid);
 	    }
 	}
 	return
     }