Index: openacs-4/etc/install/tcl/twt-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/etc/install/tcl/twt-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/etc/install/tcl/twt-procs.tcl	23 Oct 2003 13:49:22 -0000	1.8
+++ openacs-4/etc/install/tcl/twt-procs.tcl	29 Oct 2003 14:38:09 -0000	1.9
@@ -247,3 +247,25 @@
 
     return $count
 }
+
+# No longer needed as the problem was due to malformed HTML and is
+# better handled within tclwebtest
+#  ad_proc ::twt::all_urls {} {
+#      Returns all urls on the page last requested.
+
+#      This proc is a workaround to the problem
+#      with Tclwebtest not always finding all links with the [link all]
+#      command.
+
+#      @return A list of URLs of the last requested page
+
+#      @author Peter Marklund
+#  } {
+#      set all_urls [list]
+#      set remaining_body [response body]
+#      while { [regexp -all {^(.*?)<a href="?([^">]+)(.*)$} $remaining_body match before_match link_url remaining_body] } {
+#          lappend all_urls $link_url
+#      }    
+    
+#      return $all_urls
+#  }