Index: openacs-4/packages/notifications/www/request-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/www/request-new.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/notifications/www/request-new.tcl	13 Sep 2009 23:54:42 -0000	1.11
+++ openacs-4/packages/notifications/www/request-new.tcl	27 Oct 2014 16:41:51 -0000	1.12
@@ -6,8 +6,8 @@
     @creation-date 2002-05-24
     @cvs-id $Id$
 } {
-    type_id:integer,notnull
-    object_id:integer,notnull
+    type_id:naturalnum,notnull
+    object_id:naturalnum,notnull
     {pretty_name ""}
     return_url
 }
@@ -20,7 +20,7 @@
 set doc(title) [_ notifications.Request_Notification]
 set context [list $doc(title)]
 
-if {[empty_string_p $pretty_name]} { 
+if {$pretty_name eq ""} { 
     set page_title [_ notifications.Request_Notification]
 } else { 
     set page_title [_ notifications.lt_Request_Notification_]
@@ -36,7 +36,7 @@
     {delivery_method_id:integer(select)    
         {label "[_ notifications.Delivery_Method]"}
         {options $delivery_methods}
-        {value {[lindex [lindex $delivery_methods 0] 1]}}
+        {value {[lindex $delivery_methods 0 1]}}
     }
 } -on_submit {