Index: openacs-4/contrib/packages/portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/portal-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	15 Jan 2004 00:16:41 -0000	1.7
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	22 Jan 2004 02:50:12 -0000	1.8
@@ -857,37 +857,6 @@
         return "[lindex [ns_conn urlv] [expr [ns_conn urlc] - 1]]-2"
     }
 
-    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 __ts ts
-        set ts $template_src
-
-        upvar __pk pk
-        set pk $package_key
-
-        upvar __cflist cflist
-        set cflist $config_list
-
-        uplevel 1 {
-            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]
-            return $output
-        }
-    }
-
     ad_proc dimensional {
         {-no_header:boolean}
         {-no_bars:boolean}