SHA1 Hash:	47e271a448a38d7bee7884bc3cea5b51c3ef4f12
Date:	2007-11-22 04:56:39
User:	aku
Comment:	Fixed bug in the initialization of mybranchcode for changesets.
Timelines:	ancestors | descendants | both | trunk
Other Links:	files | ZIP archive | manifest

• branch=trunk inherited from [a28c83647d]
• sym-trunk inherited from [a28c83647d]

Modified tools/cvs2fossil/lib/c2f_prev.tcl from [e0ef55994e] to [6a8631591f].

@@ -673,15 +673,10 @@
 
     typemethod all   {}   { return $mychangesets }
     typemethod of    {id} { return $myidmap($id) }
     typemethod ofrev {id} { return $myrevmap($id) }
 
-    typeconstructor {
-	set mybranchcode [project::sym branch]
-	return
-    }
-
     # # ## ### ##### ######## #############
     ## Configuration
 
     pragma -hastypeinfo    no  ; # no type introspection
     pragma -hasinfo        no  ; # no object introspection
@@ -695,10 +690,11 @@
     namespace eval rev {
 	namespace import ::vc::fossil::import::cvs::state
 	namespace eval project {
 	    namespace import ::vc::fossil::import::cvs::project::sym
 	}
+	::variable mybranchcode [project::sym branch]
 	namespace import ::vc::tools::misc::*
 	namespace import ::vc::tools::trouble
 	namespace import ::vc::tools::log
 	log register csets
     }