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.21.2.2 -r1.21.2.3 --- openacs-4/packages/notifications/tcl/notification-display-procs.tcl 11 Jul 2022 08:07:50 -0000 1.21.2.2 +++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl 12 Jul 2022 14:05:27 -0000 1.21.2.3 @@ -27,7 +27,7 @@ if { [apm_package_url_from_key [notification::package_key]] eq "" } { return {} } - + if {$user_id eq ""} { set user_id [ad_conn user_id] } @@ -37,7 +37,7 @@ # Check if subscribed 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] Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v diff -u -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl 28 Dec 2021 11:40:24 -0000 1.6.2.1 +++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl 12 Jul 2022 14:08:53 -0000 1.6.2.2 @@ -38,7 +38,7 @@ ] set reply_id [package_instantiate_object -extra_vars $extra_vars notification_reply] - + return $reply_id } @@ -60,7 +60,7 @@ } { db_exec_plsql delete_reply {} } - + } # Local variables: