Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	27 Nov 2022 17:55:10 -0000	1.19.2.3
+++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	7 Jul 2024 10:18:33 -0000	1.19.2.4
@@ -246,7 +246,7 @@
 
     if {[info exists to_type] && $to_type ne ""} {
         set to_type_clause [db_map to_type_where_clause]
-            if {[content::type::is_content_type -object_type $to_type]} {
+        if {[content::type::is_content_type -object_type $to_type]} {
             set to_type_clause [db_map content_type_where_clause]
             set content_type_from_clause [db_map content_type_from_clause]
         }
@@ -272,7 +272,7 @@
 
     if {[info exists from_type] && $from_type ne ""} {
         set from_type_clause [db_map from_type_where_clause]
-            if {[content::type::is_content_type -content_type $from_type]} {
+        if {[content::type::is_content_type -content_type $from_type]} {
             set from_type_clause [db_map content_type_where_clause]
             set content_type_from_clause [db_map content_type_from_clause]
         }