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 -r1.14.2.1 -r1.14.2.2
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	20 Nov 2006 20:00:30 -0000	1.14.2.1
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	22 Nov 2006 10:03:25 -0000	1.14.2.2
@@ -19,7 +19,6 @@
     {-pretty_name:required}
     {-url:required}
     {-user_id ""}
-    {-style "default"}
 } {
     Produce a widget for requesting notifications of a given type.   If the notifications package has not been
     mounted then return the empty string.
@@ -42,19 +41,11 @@
     if {![empty_string_p $request_id]} {
         set sub_url [ad_quotehtml [unsubscribe_url -request_id $request_id -url $url]]
         set pretty_name [ad_quotehtml $pretty_name]
-        if {[string equal $style "short"]} {
-	    set sub_chunk "[_ notifications.Short_Unsubscribe_Link]"
-	} else {
-	    set sub_chunk "[_ notifications.lt_You_have_requested_no]"
-	}
+        set sub_chunk "[_ notifications.lt_You_have_requested_no]"
     } else {
         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]
-        if {[string equal $style "short"]} {
-	    set sub_chunk "[_ notifications.Short_Subscribe_Link]"
-	} else {
-	    set sub_chunk "[_ notifications.lt_You_may_a_hrefsub_url]"
-	}
+        set sub_chunk "[_ notifications.lt_You_may_a_hrefsub_url]"
     }
 
     if { [empty_string_p $sub_url] } {