Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.57.2.31 -r1.57.2.32
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	12 Apr 2022 08:45:14 -0000	1.57.2.31
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	19 Apr 2022 12:29:26 -0000	1.57.2.32
@@ -55,42 +55,6 @@
     return $text
   }
 
-  ad_proc adp_parse_tags {HTML} {
-
-    Parse the tags of the provided HTML text.
-     This method is similar to
-     <blockquote>
-         template::adp_compile -string $HTML
-     </blockquote>
-    but it just performs tag substion (and not ADP variable
-    substitution, since this is done differently concerning instance
-    attributes, etc) on the provided HTML chunk.
-
-    @param HTML text containing potentially ADP tags
-    @return HTML text with substituted ADP tags
-  } {
-    #
-    #ns_log notice "adp_parse_tags BEGIN: $HTML"
-    set old_parse_list [expr {[info exists ::template::parse_list] ? $::template::parse_list : ""}]
-    set ::template::parse_list ""
-    #
-    # The following exception handler is just for safety to achieve a
-    # high-level of backward compatibility. In case
-    # "adp_compile_chunk" and or the evaluation of the resulting code
-    # fails, fall back to the original behavior without ADP tag
-    # substitution.
-    #
-    try {
-      template::adp_compile_chunk $HTML
-      set HTML [eval [join $::template::parse_list \n]]
-    } on error {errorMsg} {
-      ad_log warning "adp_parse_tags failed on parsing:\n$HTML"
-    }
-    set ::template::parse_list $old_parse_list
-    #ns_log notice "adp_parse_tags END: $HTML"
-    return $HTML
-  }
-
   ad_proc randomized_indices {-seed length} {
     Produce a list of "length" random numbers between 0 and
     length-1.