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]} }]}
+        }
+    }