Index: openacs-4/packages/notifications/catalog/notifications.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/catalog/notifications.de_DE.ISO-8859-1.xml,v diff -u -N -r1.17 -r1.18 --- openacs-4/packages/notifications/catalog/notifications.de_DE.ISO-8859-1.xml 10 Dec 2007 09:12:38 -0000 1.17 +++ openacs-4/packages/notifications/catalog/notifications.de_DE.ISO-8859-1.xml 17 Jun 2015 20:34:47 -0000 1.18 @@ -15,12 +15,11 @@ Benachrichtigungsmethode Benachrichtigungsmethoden Benachrichtigungsintervall - Benachrichtigunsintervale - Benachrichtigungen Benachrichtigungsfunktion f�r %pretty_name% aktivieren [%system_name% - Batched Notification] Sie haben keine Benachrichtigungsfunktion aktiviert. - Sie haben f�r "%pretty_name%" die Benachrichtigungsfunktion aktiviert. Sie k�nnen diese <a href="%sub_url%">deaktivieren</a>. + Deaktiviere Benachrichtigungsfunktion. + Aktiviere Benachrichtungungsfunktion Benachrichtigungsoptionen verwalten Benachrichtigung Antworten auf Benachrichtigungen Index: openacs-4/packages/notifications/catalog/notifications.es_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/catalog/notifications.es_ES.ISO-8859-1.xml,v diff -u -N -r1.19 -r1.20 --- openacs-4/packages/notifications/catalog/notifications.es_ES.ISO-8859-1.xml 13 Sep 2009 23:54:42 -0000 1.19 +++ openacs-4/packages/notifications/catalog/notifications.es_ES.ISO-8859-1.xml 17 Jun 2015 20:34:47 -0000 1.20 @@ -20,8 +20,6 @@ Modo de Entrega de Notificaciones Modos de Entrega de Notificaciones Intervalo de notificaci�n - Intervalos de Notificaci�n - Solicitudes de Notificaci�n Intervalo de notificaci�n Pedir notificaci�n para %pretty_name% [%system_name% - Notificaci�n en Batch] 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.19 -r1.20 --- openacs-4/packages/notifications/tcl/notification-display-procs.tcl 27 Oct 2014 16:41:50 -0000 1.19 +++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl 17 Jun 2015 20:34:47 -0000 1.20 @@ -41,22 +41,24 @@ if {$request_id ne ""} { set icon /resources/acs-subsite/email_delete.gif set icon_alt [_ acs-subsite.icon_of_envelope] - set sub_url [ad_quotehtml [unsubscribe_url -request_id $request_id -url $url]] + set sub_url [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]" + 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 [ad_quotehtml [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]] + set sub_url [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]" + set sub_chunk [_ notifications.lt_You_may_a_hrefsub_url] } - set notif_chunk "\"$icon_alt\" $sub_chunk" + set notif_chunk "\ + \"$icon_alt\"$sub_chunk" # if they are an admin give them to view all subscribers if { [permission::permission_p -object_id $object_id -privilege admin] } { - append notif_chunk " \[[_ notifications.Subscribers]\]" + set href [export_vars -base /notifications/subscribers -url {object_id}] + append notif_chunk " \[[_ notifications.Subscribers]\]" } if { $sub_url ne "" } { Index: openacs-4/packages/notifications/www/subscribers.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/subscribers.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/notifications/www/subscribers.tcl 27 Oct 2014 16:41:51 -0000 1.5 +++ openacs-4/packages/notifications/www/subscribers.tcl 17 Jun 2015 20:34:47 -0000 1.6 @@ -25,7 +25,8 @@ # if objects have multiple types we may need to separate them # with different links to their respective objects. -set notice "$name - [_ notifications.Notifications]" +set url [export_vars -base object-goto -url {object_id type_id}] +set notice "$name - [_ notifications.Notifications]"