Index: openacs-4/packages/ecommerce/www/admin/mailing-lists/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/mailing-lists/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/mailing-lists/index.tcl	9 Mar 2004 00:59:49 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/mailing-lists/index.tcl	19 Aug 2008 11:29:03 -0000	1.4
@@ -6,32 +6,9 @@
 
 ad_require_permission [ad_conn package_id] admin
 
-set page_html "[ad_admin_header "Mailing Lists"]
+set title "Mailing Lists"
+set context [list $title]
 
-<h2>Mailing Lists</h2>
+set mailing_list_widget_html "[ec_mailing_list_widget "f"]"
 
-[ad_context_bar [list "../" "Ecommerce([ec_system_name])"] "Mailing Lists"]
-
-<hr>
-
-<h3>Mailing Lists with Users</h3>
-"
-
-
-
-append page_html "[ec_mailing_list_widget "f"]
-
-<h3>All Mailing Lists</h3>
-
-<blockquote>
-<form method=post action=one>
-
-[ec_category_widget]
-<input type=submit value=\"Go\">
-</form>
-
-</blockquote>
-
-[ad_admin_footer]
-"
-doc_return  200 text/html $page_html
+set category_widget_html "[ec_category_widget]"