@@ -1094,8 +1094,17 @@ ClassMethod ListItemsInFiles(ByRef itemList, ByRef err) As %Status
1094
1094
set mappedFilePath = ##class (%File ).NormalizeFilename (mappedRelativePath , ..TempFolder ())
1095
1095
1096
1096
if (##class (%File ).DirectoryExists (mappedFilePath )){
1097
- set res = $system .OBJ .ImportDir (mappedFilePath ,," -d" ,.err ,1 , .tempItemList , $$$DoNotLoad)
1098
- merge itemList = tempItemList
1097
+ if ##class (%Library.RoutineMgr ).UserType (" foo." _mappingFileType ) {
1098
+ set fileSpec = " *." _$zcvt (mappingFileType ," L" )_" ;*." _$zconvert (mappingFileType ," U" )
1099
+ set files = ##class (%Library.File ).FileSetFunc (mappedFilePath ,fileSpec )
1100
+ while files .%Next () {
1101
+ // Assumes flat file structure
1102
+ set itemList (files .ItemName ) = " "
1103
+ }
1104
+ } else {
1105
+ set res = $system .OBJ .ImportDir (mappedFilePath ,," -d" ,.err ,1 , .tempItemList , $$$DoNotLoad)
1106
+ merge itemList = tempItemList
1107
+ }
1099
1108
}
1100
1109
1101
1110
set mappingCoverage = $order ($$$SourceMapping(mappingFileType , mappingCoverage ))
@@ -1148,7 +1157,11 @@ ClassMethod ImportRoutines(force As %Boolean = 0) As %Status
1148
1157
quit :internalName =" "
1149
1158
set context = ##class (SourceControl.Git.PackageManagerContext ).ForInternalName (internalName )
1150
1159
continue :context .Package '=refPackage
1151
- #dim sc as %Status = ..ImportItem (internalName , force )
1160
+ if ..IsInSourceControl (internalName ) {
1161
+ set sc = ..ImportItem (internalName , force )
1162
+ } else {
1163
+ set sc = ..AddToServerSideSourceControl (internalName )
1164
+ }
1152
1165
if $$$ISERR(sc ) {
1153
1166
set ec = $$$ADDSC(ec , sc )
1154
1167
}
@@ -1173,13 +1186,15 @@ ClassMethod ImportRoutines(force As %Boolean = 0) As %Status
1173
1186
set ec = $$$ADDSC(ec , $system .OBJ .DeleteProject (name ))
1174
1187
}elseif type = " cls" {
1175
1188
set ec = $$$ADDSC(ec , $system .OBJ .Delete (item ))
1176
- }elseif $listfind ($listbuild (" mac" ," int" ," inc" ," bas" ," mvb" ," mvi" , " dfi " ), type ) > 0 {
1189
+ }elseif $listfind ($listbuild (" mac" ," int" ," inc" ," bas" ," mvb" ," mvi" ), type ) > 0 {
1177
1190
set ec = $$$ADDSC(ec , ##class (%Routine ).Delete (item ))
1178
1191
}elseif type = " csp" {
1179
1192
#dim filename = $system .CSP .GetFileName (item )
1180
1193
if ##class (%File ).Exists (filename ) && '##class (%File ).Delete (filename ) {
1181
1194
set ec = $$$ADDSC(ec , ..MakeError (" Error while removing " _item ))
1182
1195
}
1196
+ }elseif ##class (%Library.RoutineMgr ).UserType (item ) {
1197
+ set ec = $$$ADDSC(ec , ##class (%Library.RoutineMgr ).Delete (item ))
1183
1198
} else {
1184
1199
set deleted = 0
1185
1200
}
@@ -1828,4 +1843,3 @@ ClassMethod BuildCEInstallationPackage(ByRef destination As %String) As %Status
1828
1843
}
1829
1844
1830
1845
}
1831
-
0 commit comments