Index: openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.tcl 13 Jan 2005 13:54:34 -0000 1.2 +++ openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.tcl 29 Dec 2005 13:54:04 -0000 1.2.2.1 @@ -25,6 +25,8 @@ link_url_col user_url link_html {user_id} } + email {label "EMail" + } } Index: openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.xql,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.xql 13 Jan 2005 13:54:34 -0000 1.2 +++ openacs-4/contrib/packages/mailing-lists/www/madmin/list-subscribers.xql 29 Dec 2005 13:54:04 -0000 1.2.2.1 @@ -4,10 +4,12 @@ -select user_id, person__name(user_id) as full_name - from ml_mailing_list_user_map +select user_id, person__name(user_id) as full_name, email + from ml_mailing_list_user_map mlum, + parties p where list_id = :list_id and subscribed_p = 't' + and p.party_id = mlum.user_id