Index: openacs-4/packages/notifications/lib/notification-widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/lib/notification-widget.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/notifications/lib/notification-widget.tcl	19 Sep 2015 16:05:31 -0000	1.1.2.1
@@ -0,0 +1,41 @@
+ad_include_contract {
+    Include for notification chunk
+} {
+    {type:token}
+    {object_id:naturalnum}
+    {pretty_name}
+    {url}
+    {user_id:naturalnum ""}
+}
+
+if {$user_id eq ""} {
+    set user_id [ad_conn user_id]
+}
+
+set type_id [notification::type::get_type_id -short_name $type]
+set request_id [notification::request::get_request_id -type_id $type_id -object_id $object_id -user_id $user_id]
+    
+if {$request_id ne ""} {
+    set icon /resources/acs-subsite/email_delete.gif
+    set icon_alt [_ acs-subsite.icon_of_envelope]
+    set sub_url [notification::display::unsubscribe_url -request_id $request_id -url $url]
+    set title [_ notifications.lt_Ubsubscribe_Notification_]
+    set sub_chunk [_ notifications.lt_You_have_requested_no]
+} else {
+    set icon /resources/acs-subsite/email_add.gif
+    set icon_alt [_ acs-subsite.icon_of_envelope]
+    set sub_url [notification::display::subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]
+    set title [_ notifications.lt_Request_Notification_]
+    set sub_chunk [_ notifications.lt_You_may_a_hrefsub_url]
+}
+
+if { [permission::permission_p -object_id $object_id -privilege admin] } {
+    set subscribers_url [export_vars -base /notifications/subscribers -url {object_id}]
+}
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End:
+