fix options

nsolov · nsolov · commit 0f644b064a1b · 2023-02-22T10:11:33.000+04:00
diff --git a/src/cls/ZPM/Registry.cls b/src/cls/ZPM/Registry.cls
@@ -54,7 +54,7 @@ XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]
 
 ClassMethod OnPreDispatch(pUrl As %String, pMethod As %String, ByRef pContinue As %Boolean) As %Status
 {
-  If ($$$lcase(pMethod)="options"),(1=$MATCH(pUrl,"^/packages/[^/]+/[^/]+/?$")) {
+  If ($$$lcase(pMethod)="options"),(1=$MATCH(pUrl,"^/packages/[^/]+/[^/]+/?$")),$PIECE(pUrl,"/",3)'="-" {
     Set pContinue = 0
     Return ..OptionsPackageVersion($PIECE(pUrl,"/",3),$PIECE(pUrl,"/",4))
   }

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ]`
`54`	`54`
`55`	`55`	`ClassMethod OnPreDispatch(pUrl As %String, pMethod As %String, ByRef pContinue As %Boolean) As %Status`
`56`	`56`	`{`
`57`		`- If ($$$lcase(pMethod)="options"),(1=$MATCH(pUrl,"^/packages/[^/]+/[^/]+/?$")) {`
	`57`	`+ If ($$$lcase(pMethod)="options"),(1=$MATCH(pUrl,"^/packages/[^/]+/[^/]+/?$")),$PIECE(pUrl,"/",3)'="-" {`
`58`	`58`	`Set pContinue = 0`
`59`	`59`	`Return ..OptionsPackageVersion($PIECE(pUrl,"/",3),$PIECE(pUrl,"/",4))`
`60`	`60`	`}`