Process input to Configure

Author: isc-etamarch

CHANGELOG.md

@@ -24,6 +24,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Added feedback to settings page (#550)
 - Fix "Home" navigation to point to current namespace (#548)
 - Force export of item if it has been modified (#354)
+- Remove leading/trailing spaces from input to Configure() (#356)
 
 ## [2.6.0] - 2024-10-07
 

cls/SourceControl/Git/Settings.cls

@@ -180,6 +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 status =  inst.ConfigureBinPath(.value)")
             do %code.WriteLine(" if (status) { set valid = 1 }")
             do %code.WriteLine(" }")
@@ -206,6 +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 inst."_property_" = value")
 
     }
@@ -386,4 +388,16 @@ 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
+}
+
 }