Index: openacs-4/packages/notifications/catalog/notifications.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/catalog/notifications.en_US.ISO-8859-1.xml,v
diff -u -N -r1.13.2.8.2.1 -r1.13.2.8.2.2
--- openacs-4/packages/notifications/catalog/notifications.en_US.ISO-8859-1.xml	20 Feb 2007 16:57:51 -0000	1.13.2.8.2.1
+++ openacs-4/packages/notifications/catalog/notifications.en_US.ISO-8859-1.xml	3 Mar 2007 21:46:16 -0000	1.13.2.8.2.2
@@ -20,6 +20,7 @@
   <msg key="lt_Notification_Requests">Notification Requests</msg>
   <msg key="lt_Request_Notification_">Request Notification for %pretty_name%</msg>
   <msg key="lt_system_name_-_Batched">[%system_name% - Batched Notification]</msg>
+  <msg key="lt_Ubsubscribe_Notification_">Unsubscribe from %pretty_name%</msg>
   <msg key="lt_You_have_no_notificat">You have no notifications.</msg>
   <msg key="lt_You_have_requested_no">You have requested notification for %pretty_name%. You may &lt;a href=&quot;%sub_url%&quot; title=&quot;Unsubscribe for %pretty_name%&quot;&gt;unsubscribe&lt;/a&gt;.</msg>
   <msg key="lt_You_may_a_hrefsub_url">You may &lt;a href=&quot;%sub_url%&quot; title=&quot;Request notification for %pretty_name%&quot;&gt;request notification&lt;/a&gt; for %pretty_name%.</msg>
Index: openacs-4/packages/notifications/tcl/notification-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-display-procs.tcl,v
diff -u -N -r1.14.2.2 -r1.14.2.2.2.1
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	22 Nov 2006 10:03:25 -0000	1.14.2.2
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	3 Mar 2007 21:46:16 -0000	1.14.2.2.2.1
@@ -39,20 +39,24 @@
     set request_id [notification::request::get_request_id -type_id $type_id -object_id $object_id -user_id $user_id]
     
     if {![empty_string_p $request_id]} {
+        set icon /resources/email_delete.gif
         set sub_url [ad_quotehtml [unsubscribe_url -request_id $request_id -url $url]]
         set pretty_name [ad_quotehtml $pretty_name]
+        set title [_ notifications.lt_Ubsubscribe_Notification_]
         set sub_chunk "[_ notifications.lt_You_have_requested_no]"
     } else {
+        set icon /resources/email_add.gif
         set sub_url [ad_quotehtml [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]]
         set pretty_name [ad_quotehtml $pretty_name]
+        set title [_ notifications.lt_Request_Notification_]
         set sub_chunk "[_ notifications.lt_You_may_a_hrefsub_url]"
     }
 
     if { [empty_string_p $sub_url] } {
          return ""
     }
 
-    return $sub_chunk
+    return "<a href=\"$sub_url\" title=\"$title\"><img src=\"$icon\" alt=\"$title\" /></a> $sub_chunk"
 }
 
 ad_proc -public notification::display::subscribe_url {