Index: openacs-4/templates/widgets/companies.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/templates/widgets/Attic/companies.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/templates/widgets/companies.tcl	28 Jul 2003 01:56:14 -0000	1.1.2.1
@@ -0,0 +1,10 @@
+# practically an unlimited no. of companies should be displayed
+set n_companies  1000
+set companies_limit  [expr $n_companies + 1]
+
+
+etp::get_page_attributes
+etp::get_content_items
+
+etp::get_content_items -package_id 3906 -result_name companies -limit $companies_limit
+#etp::get_content_items -package_id 3188 -result_name companies -limit $companies_limit