Index: openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	1 Mar 2005 00:01:23 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/site-map/new.tcl	27 Oct 2014 16:39:56 -0000	1.6
@@ -5,11 +5,11 @@
     @cvs-id $Id$
 
 } {
-    parent_id:integer,notnull
+    parent_id:naturalnum,notnull
     name:notnull
     node_type:notnull
     {expand:integer,multiple {}}
-    {root_id:integer {}}
+    {root_id:naturalnum,notnull {}}
 } -validate {
     name_root_ck -requires name:notnull {
         if {[string match "*/*" $name]} {
@@ -65,4 +65,4 @@
     lappend expand $parent_id
 }
 
-ad_returnredirect ".?[export_url_vars expand:multiple root_id]"
+ad_returnredirect ".?[export_vars -url {expand:multiple root_id}]"