Fixed export bug for classes with sub packages

doublefint · Jan 26, 2017 · 79f48b6 · 79f48b6
1 parent b84bfed
commit 79f48b6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/sc.alles.cls b/sc.alles.cls
@@ -160,9 +160,10 @@ ClassMethod filename(code)
 	}
 
 	s filename = ##class(%File).NormalizeFilename( code, wd )
+  //B:code="DPRep.Rest.JSON.cls" "L"
 	#; for *.cls Package.Subpackage.ClassName.cls -> Folder/Subfolder/ClassName.cls
 	if ext ="cls" {
-		s dirs = $piece( code, ".", *-2 ), dirs = $translate( dirs, ".", "/" )
+		s dirs = $piece( code, ".",1, *-2 ), dirs = $translate( dirs, ".", "/" )
 		s relpath = dirs _ "/" _ $piece( code, ".", *-1, * ) ;
 		s filename = ##class(%File).NormalizeFilename( relpath, wd )
 	}