Index: openacs-4/packages/acs-admin/www/users/bouncing-users.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/bouncing-users.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/bouncing-users.adp	9 Apr 2007 07:10:57 -0000	1.1
@@ -0,0 +1,6 @@
+<master>
+<property name="title">#acs-mail-lite.Bouncing_users#</property>
+<property name="context">@context;noquote@</property>
+<h2>#acs-mail-lite.Bouncing_users#</h2>
+<listtemplate name="bouncing_users"></listtemplate>
+</center>
Index: openacs-4/packages/acs-admin/www/users/bouncing-users.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/bouncing-users.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/bouncing-users.tcl	9 Apr 2007 07:10:57 -0000	1.1
@@ -0,0 +1,53 @@
+ad_page_contract {
+
+    top level list of forums
+
+    @author Ben Adida (ben@openforce.net)
+    @creation-date 2002-05-24
+    @cvs-id $Id: bouncing-users.tcl,v 1.1 2007/04/09 07:10:57 maltes Exp $
+
+} {
+    {page ""}
+    {page_size 25}
+    {orderby "username,asc"}
+}
+
+
+set user_id [ad_conn user_id]
+
+template::list::create \
+    -name bouncing_users \
+    -multirow bouncing_users \
+    -key forum_id \
+    -elements {
+	username {
+	    label "[_ acs-subsite.Username]"
+	}
+	full_name {
+	    label "[_ acs-subsite.Name]"
+	    display_template {<pre>@bouncing_users.full_name;noquote@</pre>}
+	}
+	unbounce_link {
+	    label ""
+	    display_template {<a href="@bouncing_users.unbounce_link;noquote@">[_ acs-mail-lite.Unbounce]</a>}
+	}
+    } -orderby {
+	username {
+	    orderby_asc "username asc"
+	    orderby_desc "username desc"
+	    default_direction asc
+	} 
+        full_name {
+	    orderby_asc "full_name asc"
+	    orderby_desc "full_name desc"
+	    default_direction asc
+	} 
+    }
+
+
+db_multirow -extend {unbounce_link} bouncing_users select_bouncing_users {} {
+    set return_url [ad_return_url]
+    set unbounce_link [export_vars -base "/register/restore-bounce" -url {user_id return_url}]
+}
+
+set context [list [list "." "Users"] "[_ acs_mail_lite.Bouncing_users]"]
Index: openacs-4/packages/acs-admin/www/users/bouncing-users.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/bouncing-users.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/www/users/bouncing-users.xql	9 Apr 2007 07:10:57 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_bouncing_users">
+        <querytext>
+	    select username, (first_names || ' ' || last_name) as full_name, user_id 
+            from cc_users u
+            where u.email_bouncing_p = 't'
+        [template::list::orderby_clause -name bouncing_users -orderby]
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-admin/www/users/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/index.adp,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-admin/www/users/index.adp	14 Jan 2005 15:35:18 -0000	1.11
+++ openacs-4/packages/acs-admin/www/users/index.adp	9 Apr 2007 07:10:57 -0000	1.12
@@ -15,6 +15,7 @@
   </FORM>
         </p>
   <li><a href="complex-search?target=one&only_authorized_p=0&only_needs_approval_p=1">Find all users needing approval</a></li>
+  <li><a href="bouncing-users">Find all bouncing users</a></li>
   <li><a href="user-add">Add a user</a></li>
   <li><a href="/members/user-batch-add">Add a batch of users</a></li>
   <li><a href="/admin/manage-email-privacy">#acs-subsite.manage_users_email#</a></li>