Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	13 Jan 2005 13:55:20 -0000	1.37
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	3 Feb 2005 11:42:29 -0000	1.38
@@ -125,7 +125,7 @@
 } {
     template::adp_append_code "if { \[::ds_show_p\] } {"
     template::adp_append_code "    set __apidoc_path \[string range $stub \[string length \[::acs_root_dir\]\] end\].adp"
-    template::adp_append_code "    set __stub_path \[join \[split $stub /\] \" / \"\]"
+    template::adp_append_code "    set __stub_path $stub"
     template::adp_append_code "    append __adp_output \"<div class=\\\"\[::ds_adp_box_class\]\\\"><span class=\\\"\[::ds_adp_file_class\]\\\"><a href=\\\"/api-doc/content-page-view?source_p=1&path=\$__apidoc_path\\\" style=\\\"text-decoration: none;\\\">\$__stub_path</a></span><div class=\\\"\[::ds_adp_output_class\]\\\">\""
     template::adp_append_code "}"
 }
@@ -135,8 +135,8 @@
     {-stub \$__adp_stub} 
 } {
     template::adp_append_code "if { \[::ds_show_p\] } {"
-    template::adp_append_code "    set __stub_path \[join \[split $stub /\] \" / \"\]"
-    template::adp_append_code "    append __adp_output \"</div></div><!--\$__stub_path-->\""
+    template::adp_append_code "    set __stub_path $stub"
+    template::adp_append_code "    append __adp_output \"</div></div><!-- END\n\$__stub_path (lvl \[info level\])-->\""
     template::adp_append_code "}"
 }