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.40 -r1.41
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	6 Feb 2005 18:10:01 -0000	1.40
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	15 Feb 2005 18:27:24 -0000	1.41
@@ -131,7 +131,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 $stub"
+    template::adp_append_code "    set __stub_path \[join \[split $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 "}"
 }
@@ -141,8 +141,7 @@
     {-stub \$__adp_stub} 
 } {
     template::adp_append_code "if { \[::ds_show_p\] } {"
-    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 "    append __adp_output \"</div></div><!-- END\n$stub (lvl \[info level\])-->\""
     template::adp_append_code "}"
 }