Index: openacs-4/contrib/packages/mailing-lists/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/mailing-lists/www/index.tcl	1 Oct 2003 05:01:54 -0000	1.1
+++ openacs-4/contrib/packages/mailing-lists/www/index.tcl	21 Jan 2004 19:22:15 -0000	1.2
@@ -26,24 +26,30 @@
 set package_id [ad_conn package_id]
 set admin_p [permission::permission_p -object_id $package_id -privilege mailing_list_admin]
 
-if {![info exists locale]} {
-    set locale [ad_conn locale]
-}
+set context_bar ""
 
-db_multirow subscribed_lists get_lists_user_is_subscribed {}
+db_1row check_email_verified_p {}
 
-template::multirow create lists list_id name teaser tree_id tree_name category_id category_name
-
-db_foreach get_lists_by_language {} {
-    if {$subscribed_p == "f"} {
-	set category_name [category::get_name $category_id]
-	set tree_name [category_tree::get_name $tree_id]
-	template::multirow append lists $list_id $name $teaser $tree_id $tree_name $category_id $category_name
+if {$email_verified_p == "t"} {
+    if {![info exists locale]} {
+	set locale [ad_conn locale]
     }
-}
 
-db_multirow languages get_languages {}
+    db_multirow subscribed_lists get_lists_user_is_subscribed {}
 
-set context_bar ""
+#    template::multirow create lists list_id name teaser tree_id tree_name category_id category_name
+    template::multirow create lists list_id name teaser
 
+    db_foreach get_lists_by_language_new {} {
+	if {$subscribed_p == "f"} {
+#	    set category_name [category::get_name $category_id]
+#	    set tree_name [category_tree::get_name $tree_id]
+#	    template::multirow append lists $list_id $name $teaser $tree_id $tree_name $category_id $category_name
+	    template::multirow append lists $list_id $name $teaser
+	}
+    }
+
+    db_multirow languages get_languages {}
+}
+
 ad_return_template