delete code before load in sc.all.sub for importUpdated

doublefint · doublefint · commit 45a3cd7cecf6 · 2016-11-24T20:33:11.000+03:00
diff --git a/sc.all.sub.cls b/sc.all.sub.cls
@@ -79,6 +79,8 @@ ClassMethod importUpdated(qspec = "cku-d", ByRef err = "", recurse = 1, ByRef lo
 		   
 		   } else {
 			   
+			   #; drop existing code before import ( purge DateModified )
+			   s:codets'="" sc = ##class(%RoutineMgr).Delete( codename )
 			   s sc = $system.OBJ.Load( filename, qspec, .err, .loaded)
 			   
 		   }

Original file line number	Diff line number	Diff line change
`@@ -79,6 +79,8 @@ ClassMethod importUpdated(qspec = "cku-d", ByRef err = "", recurse = 1, ByRef lo`
`79`	`79`
`80`	`80`	`} else {`
`81`	`81`
	`82`	`+ #; drop existing code before import ( purge DateModified )`
	`83`	`+ s:codets'="" sc = ##class(%RoutineMgr).Delete( codename )`
`82`	`84`	`s sc = $system.OBJ.Load( filename, qspec, .err, .loaded)`
`83`	`85`
`84`	`86`	`}`