Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.89 -r1.90
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	19 Jan 2002 18:31:40 -0000	1.89
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	19 Jan 2002 18:33:47 -0000	1.90
@@ -1146,21 +1146,29 @@
     }
 
     ad_proc -public show_proc_helper { 
+        {-template_src ""}
         {-package_key:required}
         {-config_list:required}
     } {
         hides ugly templating calls for portlet "show" procs
     } {
-        
+       
+        if { $template_src == ""} {
+            set template_src $package_key
+        }
+
         # some stupid upvar tricks to get them set right
-        upvar __pk foo
-        set foo $package_key
+        upvar __ts ts
+        set ts $template_src
 
-        upvar __cflist bar
-        set bar $config_list
+        upvar __pk pk
+        set pk $package_key
 
+        upvar __cflist cflist
+        set cflist $config_list
+
         uplevel 1 {
-            set template "<include src=\"$__pk\" cf=\"$__cflist\">"
+            set template "<include src=\"$__ts\" cf=\"$__cflist\">"
             set __adp_stub "[get_server_root]/packages/$__pk/www/."
             set code [template::adp_compile -string $template]	
             set output [template::adp_eval code]