Index: openacs-4/packages/notifications/www/manage.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/manage.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/notifications/www/manage.adp	27 Sep 2003 16:59:51 -0000	1.6
+++ openacs-4/packages/notifications/www/manage.adp	24 Jan 2004 16:33:24 -0000	1.7
@@ -1,35 +1,4 @@
 <master>
 <property name="title">#notifications.Manage_Notifications#</property>
-<property name="context">#notifications.Manage_Notifications#</property>
 
-<table class="table-display" cellpadding="5" cellspacing="1" bgcolor="#999999">
-    <tr class="table-header" bgcolor="white">
-      <th>#notifications.Notification_type#</th>
-      <th>#notifications.Item#</th>
-      <th>#notifications.Frequency#</th>
-      <th>#notifications.Action#</th>
-    </tr>
-<multiple name="notifications">
-
-  <if @notifications.rownum@ odd>
-    <tr class="odd" bgcolor="white">
-  </if>
-  <else>
-    <tr class="even" bgcolor="#e9e9e9">
-  </else>
-    <td>@notifications.type@</td>
-    <td><a href=object-goto.tcl?object_id=@notifications.object_id@&type_id=@notifications.type_id@>@notifications.object_name@</a></td> 
-    <td>@notifications.interval@ (<a href=request-change-frequency.tcl?return_url=@return_url@&request_id=@notifications.request_id@>#notifications.Change#</a>)</td> 
-    <td><a href=request-delete.tcl?return_url=@return_url@&request_id=@notifications.request_id@>#notifications.Unsubscribe#</a></td>
-  </tr>
-</multiple>
-
-<if @notifications:rowcount@ eq 0>
-  <tr>
-    <td colspan=4 bgcolor="white"><i>#notifications.lt_You_have_no_notificat#</i></td>
-  </tr>
-</if>
-
-</table>
-
-
+<listtemplate name="notifications"></listtemplate>
Index: openacs-4/packages/notifications/www/manage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/manage.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/notifications/www/manage.tcl	17 May 2003 10:54:55 -0000	1.3
+++ openacs-4/packages/notifications/www/manage.tcl	24 Jan 2004 16:33:24 -0000	1.4
@@ -10,8 +10,32 @@
 ad_maybe_redirect_for_registration
 set user_id [ad_conn user_id]
 set return_url [ad_conn url]
-set context [list "Manage Notifications"]
 
-db_multirow notifications select_notifications {}
+db_multirow -extend { interval_url } notifications select_notifications {} {
+    set interval_url [export_vars -base request-change-frequency { request_id {return_url [ad_return_url]} }]
+}
 
-ad_return_template
+template::list::create \
+    -name notifications \
+    -no_data [_ notifications.lt_You_have_no_notificat] \
+    -elements {
+        type {
+            label {[_ notifications.Notification_type]}
+        }
+        object_name {
+            label {[_ notifications.Item]}
+            link_url_eval {[export_vars -base object-goto { object_id type_id }]}
+        }
+        interval {
+            label {[_ notifications.Frequency]}
+            display_template {
+                @notifications.interval@ 
+                (<a href="@notifications.interval_url@">\#notifications.Change\#</a>)
+            }
+        }
+        action {
+            label {[_ notifications.Action]}
+            display_template {\#notifications.Unsubscribe\#}
+            link_url_eval {[export_vars -base request-delete { request_id {return_url [ad_return_url]} }]}
+        }
+    }