Index: openacs-4/packages/ecommerce/www/doc/styles.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/doc/Attic/styles.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/doc/styles.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/doc/styles.tcl	31 Jan 2002 06:42:00 -0000	1.2
@@ -12,10 +12,6 @@
     sort_by:optional
 }
 
-
-ns_share ad_styletag
-ns_share ad_styletag_source_file
-
 # we assume that we get a list of lists, each one containing
 # {proc_name filename} (i.e., a Tcl list in its own right)
 
@@ -48,16 +44,16 @@
 <hr>
 
 This page lists those styles that the programmers have defined
-using <code>ec_register_styletag</code> (defined in /tcl/ad-style.tcl).
+using <code>ec_register_styletag</code> (defined in ecommerce/tcl/ec-style-procs.tcl).
 
 <p>
 
 "
 
 set list_of_lists [list]
 
-foreach style_name [array names ad_styletag] {
-    lappend list_of_lists [list $style_name $ad_styletag_source_file($style_name)]
+foreach style_name [nsv_array names ec_styletag] {
+    lappend list_of_lists [list $style_name [nsv_get ec_styletag_source_file $style_name]]
 }
 
 if { [info exists sort_by] && $sort_by == "name" } {