Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	10 Jan 2007 21:22:08 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	27 Oct 2014 16:39:56 -0000	1.13
@@ -10,14 +10,14 @@
     @cvs-id $Id$
 
 } {
-    {new_package_id:integer ""}
-    node_id:integer,notnull
+    {new_package_id:naturalnum ""}
+    node_id:naturalnum,notnull
     {new_node_p f}
     {node_name:trim ""}
     {instance_name ""}
     package_key:notnull
     {expand:integer,multiple ""}
-    root_id:integer,optional
+    root_id:naturalnum,optional
 }
 
 if {$package_key eq "/new"} {
@@ -67,4 +67,4 @@
     }
 }
 
-ad_returnredirect ".?[export_url_vars expand:multiple root_id]"
+ad_returnredirect ".?[export_vars -url {expand:multiple root_id}]"