Simplified trimming leading spaces

Author: isc-etamarch

cls/SourceControl/Git/Settings.cls

@@ -180,7 +180,7 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
             do %code.WriteLine(" set valid = 0")
             do %code.WriteLine(" while ('valid) {")
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")
-            do %code.WriteLine(" set value = inst.CleanInput(value)")
+            do %code.WriteLine(" set value = $zstrip(value,""<>W"")")
             do %code.WriteLine(" set status =  inst.ConfigureBinPath(.value)")
             do %code.WriteLine(" if (status) { set valid = 1 }")
             do %code.WriteLine(" }")
@@ -207,7 +207,7 @@ ClassMethod Configure() As %Boolean [ CodeMode = objectgenerator ]
             do %code.WriteLine(" set response = ##class(%Library.Prompt).GetString("_promptQuoted_",.value,,,,"_defaultPromptFlag_")")
         }
         do %code.WriteLine(" if response '= $$$SuccessResponse { quit 0 }")
-        do %code.WriteLine(" set value = inst.CleanInput(value)")
+        do %code.WriteLine(" set value = $zstrip(value,""<>W"")")
         do %code.WriteLine(" set inst."_property_" = value")
 
     }
@@ -388,16 +388,4 @@ Method ConfigureBinPath(ByRef path As %String) As %Boolean
     return 1
 }
 
-ClassMethod CleanInput(value As %String)
-{
-    while ($extract(value,1) = " ") || ($extract(value,1) = $char(9)) {
-        set value = $extract(value,2,$length(value))
-    }
-
-    while ($extract(value, $length(value)) = " ") || ($extract(value,$length(value)) = $char(9)) {
-        set value = $extract(value,1,$length(value) - 1)
-    }
-    return value
-}
-
 }