Index: openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	7 Aug 2017 23:48:00 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	27 Aug 2024 10:08:01 -0000	1.4.2.1
@@ -15,7 +15,7 @@
     @tdom::get_tag_value
     @tdom::get_attribute_value
     @tdom::get_node_xml
-    
+
 }
 
 namespace eval tdom {}
@@ -44,10 +44,10 @@
     # Do a loop for the args. The first non null result is returned
     set node_object ""
     foreach node_name $args {
-	catch {set node_object [$parent_node_object getElementsByTagName "$node_name"]}
-	if {$node_object ne "" } {
-	    return $node_object
-	}
+        catch {set node_object [$parent_node_object getElementsByTagName "$node_name"]}
+        if {$node_object ne "" } {
+            return $node_object
+        }
     }
 
     return $node_object
@@ -84,10 +84,10 @@
     set tag_value ""
 
     foreach tag_name $args {
-	catch {set tag_value [[$node_object getElementsByTagName "$tag_name"] text]} errormsg
-	if {[string trim $tag_value] ne "" } {
-	    return $tag_value
-	}
+        catch {set tag_value [[$node_object getElementsByTagName "$tag_name"] text]} errormsg
+        if {[string trim $tag_value] ne "" } {
+            return $tag_value
+        }
     }
 
     return $tag_value