Index: openacs.org-dev/packages/notifications/www/request-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/notifications/www/request-new.tcl,v
diff -u -r1.1.1.2 -r1.1.1.3
--- openacs.org-dev/packages/notifications/www/request-new.tcl	5 Aug 2002 21:38:55 -0000	1.1.1.2
+++ openacs.org-dev/packages/notifications/www/request-new.tcl	8 Oct 2002 15:47:15 -0000	1.1.1.3
@@ -1,9 +1,8 @@
-
 ad_page_contract {
 
     Request a new notification - Ask for more stuff
 
-    @author Ben Adida (ben@openforce)
+    @author Ben Adida (ben@openforce.net)
     @creation-date 2002-05-24
     @cvs-id $Id$
 } {
@@ -13,16 +12,21 @@
     return_url
 }
 
-set user_id [ad_conn user_id]
+set user_id [ad_maybe_redirect_for_registration]
 
 # Check that the object can be subcribed to
 notification::security::require_notify_object -object_id $object_id
 
-set page_title "Request Notification for $pretty_name"
 
-set context_bar [ad_context_bar $page_title]
+if {[empty_string_p $pretty_name]} { 
+    set page_title "Request Notification"
+} else { 
+    set page_title "Request Notification for $pretty_name"
+}
 
+set context [list "Request Notification"]
 
+
 form create subscribe
 
 element create subscribe type_id \