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.31 -r1.32
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	25 May 2004 15:16:45 -0000	1.31
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	17 Jun 2004 11:13:21 -0000	1.32
@@ -115,7 +115,7 @@
     {-stub \$__adp_stub} 
 } {
     template::adp_append_code "if { \[::ds_show_p\] } {"
-    template::adp_append_code "    set __apidoc_path \[string range $stub \[string length \[::acs_root_dir\]\] end\].\$template_extension"
+    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 "    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 "}"