Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.151 -r1.152
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Mar 2018 00:14:57 -0000	1.151
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	24 Mar 2018 08:26:03 -0000	1.152
@@ -4021,70 +4021,6 @@
     ns_log $level "${message}\n[uplevel ad_get_tcl_call_stack]${request}\n"
 }
 
-
-if {[info commands ns_parseurl] eq ""} {
-    #
-    # In case, we are not running under NaviServer, provide a proc
-    # compatible with NaviServer's built in ns_parseurl.
-    #
-    ad_proc ns_parseurl {url} {
-        Emulation of NaviServer's ns_parseurl
-        
-        @author Gustaf Neumann
-    } {
-        #puts stderr url=$url
-        set result ""
-        if {[regexp {^([a-zA-Z]+):(.*)$} $url . proto url]} {
-            #
-            # a protocol was specified
-            #
-            lappend result proto $proto
-        }
-        if {[regexp {^//([^/]+)(/?.*)$} $url . host url]} {
-            #
-            # two slashes -> host is specified
-            #
-            if {[regexp {^\[(.*)\]:([0-9]+)$} $host . host port]} {
-                # IP literal notation followed by port
-                lappend result host $host port $port
-            } elseif {[regexp {^\[(.*)\]$} $host . host port]} {
-                # IP literal notation followed with no port
-                lappend result host $host
-            } elseif {[regexp {^(.*):([0-9]+)$} $host . host port]} {
-                lappend result host $host port $port
-            } else {
-                lappend result host $host
-            }
-        }
-        if {[regexp {^/(.*)/([^/]+)$} $url . path tail]} {
-            lappend result path $path tail $tail
-        } elseif {[regexp {^/([^/]+)$} $url . tail]} {
-            lappend result path "" tail $tail
-        } elseif {$url in {"/" ""}} {
-            lappend result path {} tail {}
-        } else {
-            lappend result tail $url
-        }
-        return $result
-    }
-}
-
-if {[info commands ns_md5] eq ""} {
-    #
-    # In case, we are not running under NaviServer, provide a proc
-    # compatible with NaviServer's built in ns_md5
-    #
-    ad_proc ns_md5 {value} {
-        Emulation of NaviServer's ns_md5
-        
-        @author Gustaf Neumann
-    } {
-        package require md5
-        return [md5::Hex [md5::md5 -- $value]]
-    }
-}
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4