Add verbose parameter to DIVIDE

evshvarov · web-flow · commit 6f2cee33bd89 · 2025-03-05T16:50:14.000Z
diff --git a/src/shvarov/objectscript/errors.cls b/src/shvarov/objectscript/errors.cls
@@ -1,7 +1,7 @@
 Class shvarov.objectscript.errors
 {
 
-ClassMethod DIVIDE() As %Status
+ClassMethod DIVIDE(verbose=0) As %Status
 {
     set sc=$$$OK
    try {
@@ -11,7 +11,7 @@ ClassMethod DIVIDE() As %Status
        do e.Log()
        set sc=e.AsStatus()
    }
-   if 'sc do $System.OBJ.DisplayError(sc)
+   if 'sc,verbose do $System.OBJ.DisplayError(sc)
    quit sc
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`Class shvarov.objectscript.errors`
`2`	`2`	`{`
`3`	`3`
`4`		`-ClassMethod DIVIDE() As %Status`
	`4`	`+ClassMethod DIVIDE(verbose=0) As %Status`
`5`	`5`	`{`
`6`	`6`	`set sc=$$$OK`
`7`	`7`	`try {`
`@@ -11,7 +11,7 @@ ClassMethod DIVIDE() As %Status`
`11`	`11`	`do e.Log()`
`12`	`12`	`set sc=e.AsStatus()`
`13`	`13`	`}`
`14`		`- if 'sc do $System.OBJ.DisplayError(sc)`
	`14`	`+ if 'sc,verbose do $System.OBJ.DisplayError(sc)`
`15`	`15`	`quit sc`
`16`	`16`	`}`
`17`	`17`