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.3 -r1.4
--- openacs-4/packages/notifications/tcl/notification-display-procs.tcl	9 Jul 2002 16:29:39 -0000	1.3
+++ openacs-4/packages/notifications/tcl/notification-display-procs.tcl	1 Aug 2002 12:57:55 -0000	1.4
@@ -33,7 +33,7 @@
             set sub_url [unsubscribe_url -request_id $request_id -url $url]
             set sub_chunk "You have requested notification for $pretty_name. You may <a href=\"$sub_url\">unsubscribe</a>."
         } else {
-            set sub_url [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id]
+            set sub_url [subscribe_url -type $type -object_id $object_id -url $url -user_id $user_id -pretty_name $pretty_name]
             set sub_chunk "You may <a href=\"$sub_url\">request notification</a> for $pretty_name."
         }
 
@@ -45,11 +45,12 @@
         {-object_id:required}
         {-url:required}
         {-user_id:required}
+        {-pretty_name}
     } {
         set type_id [notification::type::get_type_id -short_name $type]
 
         set root_path [apm_package_url_from_key [notification::package_key]]
-        set subscribe_url "${root_path}request-new?type_id=$type_id&user_id=$user_id&object_id=$object_id&return_url=[ns_urlencode $url]"
+        set subscribe_url "${root_path}request-new?[export_vars { type_id user_id object_id pretty_name {return_url $url} }]"
 
         return $subscribe_url
     }