Index: openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	8 Dec 2012 18:20:35 -0000	1.8
+++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	29 Jul 2014 11:23:54 -0000	1.8.2.1
@@ -6,7 +6,7 @@
     @creation-date 28 January 2003
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {type ""}
 }
 
Index: openacs-4/packages/acs-admin/www/apm/version-callback-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-delete.tcl,v
diff -u -N -r1.1 -r1.1.24.1
--- openacs-4/packages/acs-admin/www/apm/version-callback-delete.tcl	29 Jan 2003 15:53:23 -0000	1.1
+++ openacs-4/packages/acs-admin/www/apm/version-callback-delete.tcl	29 Jul 2014 11:23:54 -0000	1.1.24.1
@@ -4,7 +4,7 @@
     @creation-date 28 January 2003
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     type:notnull
 }
 
Index: openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl,v
diff -u -N -r1.3 -r1.3.22.1
--- openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	24 Sep 2003 00:01:42 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	29 Jul 2014 11:23:55 -0000	1.3.22.1
@@ -5,7 +5,7 @@
     @creation-date 11 September 2003
     @cvs-id $Id$
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     type:notnull
 }
 
Index: openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl,v
diff -u -N -r1.7 -r1.7.10.1
--- openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl	14 May 2007 20:30:17 -0000	1.7
+++ openacs-4/packages/acs-admin/www/apm/version-callbacks.tcl	29 Jul 2014 11:23:55 -0000	1.7.10.1
@@ -4,7 +4,7 @@
     @creation-date 28 January 2003
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
 }
 
 db_1row package_version_info "select pretty_name, version_name from apm_package_version_info where version_id = :version_id"
Index: openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl,v
diff -u -N -r1.4 -r1.4.22.1
--- openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	22 Oct 2003 11:39:21 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-import.tcl	29 Jul 2014 11:23:55 -0000	1.4.22.1
@@ -5,7 +5,7 @@
     @creation-date 23 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {return_url {[export_vars -base "version-i18n-index" { version_id }]}}
 }
 
Index: openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl,v
diff -u -N -r1.5 -r1.5.20.1
--- openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl	11 Dec 2003 21:39:45 -0000	1.5
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-index.tcl	29 Jul 2014 11:23:55 -0000	1.5.20.1
@@ -5,7 +5,7 @@
     @creation-date 23 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
 } -properties {
     page_title
     context_bar
Index: openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl,v
diff -u -N -r1.16.8.2 -r1.16.8.3
--- openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl	17 Oct 2013 08:44:30 -0000	1.16.8.2
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-process-2.tcl	29 Jul 2014 11:23:55 -0000	1.16.8.3
@@ -5,7 +5,7 @@
     @creation-date 8 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {files:multiple,notnull}
     {file_action:multiple}
     {number_of_keys:integer,notnull ""}
Index: openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl,v
diff -u -N -r1.3.22.1 -r1.3.22.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	17 Oct 2013 08:44:30 -0000	1.3.22.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n-process.tcl	29 Jul 2014 11:23:55 -0000	1.3.22.2
@@ -6,7 +6,7 @@
     @creation-date 8 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {files:multiple}
     {file_action:multiple}
 }
Index: openacs-4/packages/acs-admin/www/apm/version-i18n.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-i18n.tcl,v
diff -u -N -r1.11.10.1 -r1.11.10.2
--- openacs-4/packages/acs-admin/www/apm/version-i18n.tcl	26 Oct 2013 09:35:43 -0000	1.11.10.1
+++ openacs-4/packages/acs-admin/www/apm/version-i18n.tcl	29 Jul 2014 11:23:55 -0000	1.11.10.2
@@ -6,7 +6,7 @@
     @creation-date 8 October 2002
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {pre_select_files_p "1"}
     {show_status_p "0"}
     {only_text_p "0"}
Index: openacs-4/packages/acs-admin/www/auth/authority.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority.tcl,v
diff -u -N -r1.21.10.2 -r1.21.10.3
--- openacs-4/packages/acs-admin/www/auth/authority.tcl	2 Oct 2013 07:46:31 -0000	1.21.10.2
+++ openacs-4/packages/acs-admin/www/auth/authority.tcl	29 Jul 2014 11:14:15 -0000	1.21.10.3
@@ -4,7 +4,7 @@
     @author Peter Marklund
     @creation-date 2003-09-08
 } {
-    authority_id:integer,optional
+    authority_id:naturalnum,optional
     {ad_form_mode display}
 }
 
Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v
diff -u -N -r1.5.4.4 -r1.5.4.5
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	16 Oct 2013 20:08:07 -0000	1.5.4.4
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	29 Jul 2014 11:14:15 -0000	1.5.4.5
@@ -10,7 +10,7 @@
     
     @cvs-id $Id$
 } {
-    version_id:integer,optional
+    version_id:naturalnum,optional
     source_p:integer,optional,trim
     path
 } -properties {
Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v
diff -u -N -r1.3.10.2 -r1.3.10.3
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	16 Apr 2014 07:17:28 -0000	1.3.10.2
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	29 Jul 2014 11:14:15 -0000	1.3.10.3
@@ -3,7 +3,7 @@
 
     @cvs-id $Id$
 } {
-    version_id:integer,optional
+    version_id:naturalnum,optional
     { public_p "" }
     path
 } -properties {
Index: openacs-4/packages/acs-api-browser/www/type-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/type-view.tcl,v
diff -u -N -r1.3.20.2 -r1.3.20.3
--- openacs-4/packages/acs-api-browser/www/type-view.tcl	16 Apr 2014 07:17:28 -0000	1.3.20.2
+++ openacs-4/packages/acs-api-browser/www/type-view.tcl	29 Jul 2014 11:14:15 -0000	1.3.20.3
@@ -5,7 +5,7 @@
     @cvs-id $Id$
 
 } {
-    version_id:integer,optional
+    version_id:naturalnum,optional
     type
 } -properties {
     title:onevalue
Index: openacs-4/packages/acs-core-docs/www/files/tutorial/note-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/files/tutorial/note-edit.tcl,v
diff -u -N -r1.2 -r1.2.20.1
--- openacs-4/packages/acs-core-docs/www/files/tutorial/note-edit.tcl	4 Feb 2004 16:47:34 -0000	1.2
+++ openacs-4/packages/acs-core-docs/www/files/tutorial/note-edit.tcl	29 Jul 2014 11:14:15 -0000	1.2.20.1
@@ -6,7 +6,7 @@
  
     @param item_id If present, assume we are editing that note.  Otherwise, we are creating a new note.
 } {
-    item_id:integer,optional
+    item_id:naturalnum,optional
 }
 
 ad_form -name note -form {
Index: openacs-4/packages/acs-reference/www/view-one-reference.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-reference/www/view-one-reference.tcl,v
diff -u -N -r1.3 -r1.3.16.1
--- openacs-4/packages/acs-reference/www/view-one-reference.tcl	1 Mar 2005 00:01:22 -0000	1.3
+++ openacs-4/packages/acs-reference/www/view-one-reference.tcl	29 Jul 2014 11:23:55 -0000	1.3.16.1
@@ -6,7 +6,7 @@
     @creation-date 17 Sept 2001
     @cvs-id $Id$
 } {
-    repository_id:integer,notnull
+    repository_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     package_id:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -N -r1.13.4.1 -r1.13.4.2
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	11 Oct 2013 11:11:17 -0000	1.13.4.1
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	29 Jul 2014 11:14:15 -0000	1.13.4.2
@@ -4,7 +4,7 @@
     @author Steffen Tiedemann Christensen (steffen@christensen.name)
     @creation-date 2003-09-26
 } {
-    node_id:integer,optional
+    node_id:naturalnum,optional
 }
 
 auth::require_login
Index: openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl,v
diff -u -N -r1.11 -r1.11.4.1
--- openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	15 Apr 2011 10:29:16 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/admin/applications/application-add.tcl	29 Jul 2014 11:14:15 -0000	1.11.4.1
@@ -5,7 +5,7 @@
     @creation-date 2003-05-28
     @cvs-id $Id$
 } {
-    node_id:integer,optional
+    node_id:naturalnum,optional
     {return_url "."}
 }
 
Index: openacs-4/packages/acs-subsite/www/admin/attributes/enum-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/enum-add-2.tcl,v
diff -u -N -r1.2.10.4 -r1.2.10.5
--- openacs-4/packages/acs-subsite/www/admin/attributes/enum-add-2.tcl	9 Sep 2013 16:44:19 -0000	1.2.10.4
+++ openacs-4/packages/acs-subsite/www/admin/attributes/enum-add-2.tcl	29 Jul 2014 11:23:55 -0000	1.2.10.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    attribute_id:integer,notnull
+    attribute_id:naturalnum,notnull
     attribute_enum_values:array,trim,optional
     { operation:trim "Finish adding values" }
     { return_url "" }
Index: openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl,v
diff -u -N -r1.3.10.4 -r1.3.10.5
--- openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl	9 Sep 2013 16:44:19 -0000	1.3.10.4
+++ openacs-4/packages/acs-subsite/www/admin/attributes/enum-add.tcl	29 Jul 2014 11:23:56 -0000	1.3.10.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    attribute_id:integer,notnull
+    attribute_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl,v
diff -u -N -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl	10 Jan 2007 21:22:07 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy-2.tcl	29 Jul 2014 11:23:56 -0000	1.2.10.1
@@ -8,7 +8,7 @@
     @creation-date 2001-02-23
     @cvs-id $Id$
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     join_policy:notnull
     {return_url ""}
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl,v
diff -u -N -r1.3 -r1.3.26.1
--- openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl	6 Sep 2002 21:49:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/groups/change-join-policy.tcl	29 Jul 2014 11:23:56 -0000	1.3.26.1
@@ -8,7 +8,7 @@
     @creation-date 2001-02-23
     @cvs-id $Id$
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     {return_url ""}
 } -properties {
     context:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl,v
diff -u -N -r1.2.10.4 -r1.2.10.5
--- openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl	9 Sep 2013 16:44:20 -0000	1.2.10.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete-2.tcl	29 Jul 2014 11:23:56 -0000	1.2.10.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     { operation "" }
     { return_url "" }
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl,v
diff -u -N -r1.2.26.4 -r1.2.26.5
--- openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	9 Sep 2013 16:44:20 -0000	1.2.26.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/delete.tcl	29 Jul 2014 11:23:56 -0000	1.2.26.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
 } -properties {
     context:onevalue
     group_name:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl,v
diff -u -N -r1.4.22.5 -r1.4.22.6
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl	9 Sep 2013 16:44:21 -0000	1.4.22.5
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display.tcl	29 Jul 2014 11:23:56 -0000	1.4.22.6
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     {member_state ""}
 } -properties {
Index: openacs-4/packages/acs-subsite/www/admin/groups/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/one.tcl,v
diff -u -N -r1.6.10.2 -r1.6.10.3
--- openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	29 Sep 2013 12:03:22 -0000	1.6.10.2
+++ openacs-4/packages/acs-subsite/www/admin/groups/one.tcl	29 Jul 2014 11:23:56 -0000	1.6.10.3
@@ -8,7 +8,7 @@
     @creation-date 2000-12-05
     @cvs-id $Id$
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
 } -properties {
     context:onevalue
     group_id:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl,v
diff -u -N -r1.4.4.4 -r1.4.4.5
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	9 Sep 2013 16:44:21 -0000	1.4.4.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add-2.tcl	29 Jul 2014 11:23:56 -0000	1.4.4.5
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     { return_url "" }
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl,v
diff -u -N -r1.3.26.4 -r1.3.26.5
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl	9 Sep 2013 16:44:21 -0000	1.3.26.4
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-add.tcl	29 Jul 2014 11:23:56 -0000	1.3.26.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl,v
diff -u -N -r1.3.26.5 -r1.3.26.6
--- openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	9 Sep 2013 16:44:22 -0000	1.3.26.5
+++ openacs-4/packages/acs-subsite/www/admin/groups/rel-type-remove.tcl	29 Jul 2014 11:23:56 -0000	1.3.26.6
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_rel_id:integer,notnull
+    group_rel_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/parties/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/parties/one.tcl,v
diff -u -N -r1.4.26.1 -r1.4.26.2
--- openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	6 Sep 2013 12:06:49 -0000	1.4.26.1
+++ openacs-4/packages/acs-subsite/www/admin/parties/one.tcl	29 Jul 2014 11:23:57 -0000	1.4.26.2
@@ -9,7 +9,7 @@
     @creation-date 2001-02-06
     @cvs-id $Id$
 } {
-    party_id:integer,notnull
+    party_id:naturalnum,notnull
 } -properties {
     context:onevalue
     party_id:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl,v
diff -u -N -r1.2.10.4 -r1.2.10.5
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	9 Sep 2013 16:44:22 -0000	1.2.10.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	29 Jul 2014 11:23:57 -0000	1.2.10.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    segment_id:integer,notnull
+    segment_id:naturalnum,notnull
     { operation "" }
     { return_url "" }
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl,v
diff -u -N -r1.3.26.5 -r1.3.26.6
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	9 Sep 2013 16:44:22 -0000	1.3.26.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	29 Jul 2014 11:23:57 -0000	1.3.26.6
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    segment_id:integer,notnull
+    segment_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     export_vars:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl,v
diff -u -N -r1.5 -r1.5.18.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl	12 Mar 2004 18:48:55 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/edit.tcl	29 Jul 2014 11:23:57 -0000	1.5.18.1
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 
 } {
-    segment_id:integer,notnull
+    segment_id:naturalnum,notnull
 } -validate {
     segment_exists_p -requires {segment_id:notnull} {
 	if { ![rel_segments_permission_p $segment_id] } {
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl,v
diff -u -N -r1.5.22.4 -r1.5.22.5
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	9 Sep 2013 16:44:22 -0000	1.5.22.4
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/elements.tcl	29 Jul 2014 11:23:57 -0000	1.5.22.5
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    segment_id:integer,notnull
+    segment_id:naturalnum,notnull
 } -properties {
     context:onevalue
     segment_id:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl,v
diff -u -N -r1.4.22.5 -r1.4.22.6
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	9 Sep 2013 16:44:22 -0000	1.4.22.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	29 Jul 2014 11:23:57 -0000	1.4.22.6
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     { return_url "" }
 } -properties {
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl,v
diff -u -N -r1.4.10.5 -r1.4.10.6
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	9 Sep 2013 16:44:22 -0000	1.4.10.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	29 Jul 2014 11:23:57 -0000	1.4.10.6
@@ -10,7 +10,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     segment_name:notnull
     rel_type:notnull
     { return_url "" }
Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl,v
diff -u -N -r1.3.10.5 -r1.3.10.6
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	9 Sep 2013 16:44:22 -0000	1.3.10.5
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new.tcl	29 Jul 2014 11:23:57 -0000	1.3.10.6
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     { rel_type:trim "" }
     { return_url "" }
 } -properties {
Index: openacs-4/packages/acs-subsite/www/admin/rel-types/add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-types/add-2.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.1.28.1
--- openacs-4/packages/acs-subsite/www/admin/rel-types/add-2.tcl	13 Mar 2001 22:59:26 -0000	1.1.1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-types/add-2.tcl	29 Jul 2014 11:23:57 -0000	1.1.1.1.28.1
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    constraint_id:integer,notnull
+    constraint_id:naturalnum,notnull
     rel_type:notnull
     object_type:notnull
     { return_url "" }
Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -N -r1.10.10.5 -r1.10.10.6
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	10 Oct 2013 21:00:46 -0000	1.10.10.5
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	29 Jul 2014 11:23:57 -0000	1.10.10.6
@@ -9,7 +9,7 @@
     @creation-date 2000-12-11
     @cvs-id $Id$
 } {
-    group_id:integer,notnull
+    group_id:naturalnum,notnull
     rel_type:notnull
     {party_id:integer ""}
     { exact_p "f" }
Index: openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl,v
diff -u -N -r1.2 -r1.2.10.1
--- openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl	10 Jan 2007 21:22:08 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/relations/change-member-state.tcl	29 Jul 2014 11:23:57 -0000	1.2.10.1
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    rel_id:integer,notnull
+    rel_id:naturalnum,notnull
     member_state:notnull
     {return_url ""}
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/relations/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/one.tcl,v
diff -u -N -r1.3.22.1 -r1.3.22.2
--- openacs-4/packages/acs-subsite/www/admin/relations/one.tcl	6 Sep 2013 12:06:50 -0000	1.3.22.1
+++ openacs-4/packages/acs-subsite/www/admin/relations/one.tcl	29 Jul 2014 11:23:57 -0000	1.3.22.2
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    rel_id:integer,notnull
+    rel_id:naturalnum,notnull
 } -properties {
     context:onevalue
     rel_id:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/relations/remove-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/remove-2.tcl,v
diff -u -N -r1.2.10.4 -r1.2.10.5
--- openacs-4/packages/acs-subsite/www/admin/relations/remove-2.tcl	9 Sep 2013 16:44:24 -0000	1.2.10.4
+++ openacs-4/packages/acs-subsite/www/admin/relations/remove-2.tcl	29 Jul 2014 11:23:57 -0000	1.2.10.5
@@ -7,7 +7,7 @@
     @creation-date 2000-12-16
     @cvs-id $Id$
 } {
-    rel_id:integer,notnull
+    rel_id:naturalnum,notnull
     { operation "" }
     { return_url "" }
 } -validate {
Index: openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl,v
diff -u -N -r1.2.26.5 -r1.2.26.6
--- openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	9 Sep 2013 16:44:24 -0000	1.2.26.5
+++ openacs-4/packages/acs-subsite/www/admin/relations/remove.tcl	29 Jul 2014 11:23:57 -0000	1.2.26.6
@@ -7,7 +7,7 @@
     @creation-date 2000-12-16
     @cvs-id $Id$
 } {
-    rel_id:integer,notnull
+    rel_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     context:onevalue
Index: openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl,v
diff -u -N -r1.4 -r1.4.10.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl	10 Jan 2007 21:22:08 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/site-map/auto-mount.tcl	29 Jul 2014 11:23:58 -0000	1.4.10.1
@@ -10,7 +10,7 @@
 
 } {
     package_key:notnull
-    node_id:integer,notnull
+    node_id:naturalnum,notnull
     {return_url ""}
 }
 
Index: openacs-4/packages/acs-subsite/www/admin/site-map/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/delete.tcl,v
diff -u -N -r1.4.26.1 -r1.4.26.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/delete.tcl	9 Sep 2013 16:44:24 -0000	1.4.26.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/delete.tcl	29 Jul 2014 11:23:58 -0000	1.4.26.2
@@ -8,7 +8,7 @@
 
 } {
     expand:integer,multiple
-    node_id:integer,notnull
+    node_id:naturalnum,notnull
     {root_id:integer ""}
 }
 
Index: openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl,v
diff -u -N -r1.2.26.2 -r1.2.26.3
--- openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl	9 Sep 2013 16:44:24 -0000	1.2.26.2
+++ openacs-4/packages/acs-subsite/www/admin/site-map/mount-2.tcl	29 Jul 2014 11:14:15 -0000	1.2.26.3
@@ -9,7 +9,7 @@
   node_id:integer,notnull
   package_id:integer,notnull
   {expand:integer,multiple {}}
-  root_id:integer,optional
+  root_id:naturalnum,optional
 }
 
 permission::require_permission -object_id $package_id -privilege read
Index: openacs-4/packages/acs-subsite/www/admin/site-map/mount.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/mount.tcl,v
diff -u -N -r1.3 -r1.3.22.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/mount.tcl	17 May 2003 10:01:14 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/site-map/mount.tcl	29 Jul 2014 11:14:15 -0000	1.3.22.1
@@ -8,7 +8,7 @@
 } {
   node_id:integer,notnull
   {expand:integer,multiple {}}
-  root_id:integer,optional
+  root_id:naturalnum,optional
 }
 
 set user_id [ad_conn user_id]
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 -N -r1.12.10.1 -r1.12.10.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	9 Sep 2013 16:44:24 -0000	1.12.10.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	29 Jul 2014 11:14:16 -0000	1.12.10.2
@@ -17,7 +17,7 @@
     {instance_name ""}
     package_key:notnull
     {expand:integer,multiple ""}
-    root_id:integer,optional
+    root_id:naturalnum,optional
 }
 
 if {$package_key eq "/new"} {
Index: openacs-4/packages/acs-subsite/www/admin/site-map/rename.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/rename.tcl,v
diff -u -N -r1.2 -r1.2.22.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/rename.tcl	10 Sep 2003 09:38:29 -0000	1.2
+++ openacs-4/packages/acs-subsite/www/admin/site-map/rename.tcl	29 Jul 2014 11:14:16 -0000	1.2.22.1
@@ -28,7 +28,7 @@
   node_id:integer,notnull
   instance_name:notnull
   {expand:integer,multiple {}}
-  root_id:integer,optional
+  root_id:naturalnum,optional
 }
 
 # (bran 2000-06-20) Here I am assuming that only packages can be hung
Index: openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl,v
diff -u -N -r1.3.26.1 -r1.3.26.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl	9 Sep 2013 16:44:25 -0000	1.3.26.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/unmount.tcl	29 Jul 2014 11:14:16 -0000	1.3.26.2
@@ -9,7 +9,7 @@
 } {
     node_id:integer,notnull
     {expand:integer,multiple ""}
-    root_id:integer,optional
+    root_id:naturalnum,optional
 }
 
 site_node::unmount -node_id $node_id
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/file-selector.tcl,v
diff -u -N -r1.4.8.1 -r1.4.8.2
--- openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/file-selector.tcl	10 Oct 2013 21:20:11 -0000	1.4.8.1
+++ openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/file-selector.tcl	29 Jul 2014 11:14:16 -0000	1.4.8.2
@@ -5,7 +5,7 @@
   @cvs-id $Id$
 } {	
   {fs_package_id:integer,notnull,optional}
-  {folder_id:integer,optional}
+  {folder_id:naturalnum,optional}
   {orderby:optional}
   {selector_type "image"}
   {file_types "*"}
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl,v
diff -u -N -r1.2.12.1 -r1.2.12.2
--- openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl	7 Sep 2013 14:36:49 -0000	1.2.12.1
+++ openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-ilink.tcl	29 Jul 2014 11:14:16 -0000	1.2.12.2
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
   {file_types *}
 }
  
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-image.tcl,v
diff -u -N -r1.2 -r1.2.12.1
--- openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-image.tcl	4 Jun 2006 00:45:54 -0000	1.2
+++ openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsFs/popups/insert-image.tcl	29 Jul 2014 11:14:16 -0000	1.2.12.1
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
 }
  
 set selector_type "image"
Index: openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl,v
diff -u -N -r1.17.6.2 -r1.17.6.3
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	11 Oct 2013 09:49:13 -0000	1.17.6.2
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-file.tcl	29 Jul 2014 11:14:16 -0000	1.17.6.3
@@ -7,7 +7,7 @@
     @creation-date 13.07.2004
     @cvs-id $Id$
 } {
-    {parent_id:integer,optional}
+    {parent_id:naturalnum,optional}
     {package_id ""}
     {selector_type "file"}
     {f_href ""}
Index: openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl,v
diff -u -N -r1.11.8.1 -r1.11.8.2
--- openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl	11 Oct 2013 09:49:13 -0000	1.11.8.1
+++ openacs-4/packages/acs-templating/www/scripts/xinha/attach-image.tcl	29 Jul 2014 11:14:16 -0000	1.11.8.2
@@ -7,7 +7,7 @@
     @creation-date 13.07.2004
     @cvs-id $Id$
 } {
-    {parent_id:integer,optional}
+    {parent_id:naturalnum,optional}
     {package_id ""}
     {selector_type "image"}
 }
Index: openacs-4/packages/acs-templating/www/scripts/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/file-selector.tcl,v
diff -u -N -r1.2.8.1 -r1.2.8.2
--- openacs-4/packages/acs-templating/www/scripts/xinha/file-selector.tcl	10 Oct 2013 21:20:11 -0000	1.2.8.1
+++ openacs-4/packages/acs-templating/www/scripts/xinha/file-selector.tcl	29 Jul 2014 11:14:16 -0000	1.2.8.2
@@ -5,7 +5,7 @@
   @cvs-id $Id$
 } {	
   {fs_package_id:integer,notnull,optional}
-  {folder_id:integer,optional}
+  {folder_id:naturalnum,optional}
   {orderby:optional}
   {selector_type "image"}
   {file_types "*"}
Index: openacs-4/packages/acs-templating/www/scripts/xinha/insert-ilink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/insert-ilink.tcl,v
diff -u -N -r1.1.12.1 -r1.1.12.2
--- openacs-4/packages/acs-templating/www/scripts/xinha/insert-ilink.tcl	7 Sep 2013 14:36:50 -0000	1.1.12.1
+++ openacs-4/packages/acs-templating/www/scripts/xinha/insert-ilink.tcl	29 Jul 2014 11:14:16 -0000	1.1.12.2
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
   {file_types *}
 }
  
Index: openacs-4/packages/acs-templating/www/scripts/xinha/insert-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/scripts/xinha/insert-image.tcl,v
diff -u -N -r1.1 -r1.1.12.1
--- openacs-4/packages/acs-templating/www/scripts/xinha/insert-image.tcl	18 Aug 2006 19:00:07 -0000	1.1
+++ openacs-4/packages/acs-templating/www/scripts/xinha/insert-image.tcl	29 Jul 2014 11:14:16 -0000	1.1.12.1
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
 }
  
 set selector_type "image"
Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -N -r1.38.4.2 -r1.38.4.3
--- openacs-4/packages/calendar/www/cal-item-new.tcl	11 Oct 2013 11:49:52 -0000	1.38.4.2
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	29 Jul 2014 11:14:17 -0000	1.38.4.3
@@ -8,8 +8,8 @@
     @cvs-id $Id$
 } {
     {calendar_id:integer ""}
-    cal_item_id:integer,optional
-    item_type_id:integer,optional
+    cal_item_id:naturalnum,optional
+    item_type_id:naturalnum,optional
     {date ""}
     {julian_date ""}
     {start_time ""}
Index: openacs-4/packages/calendar/www/admin/calendar-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/admin/calendar-edit.tcl,v
diff -u -N -r1.4 -r1.4.16.1
--- openacs-4/packages/calendar/www/admin/calendar-edit.tcl	9 Jan 2004 21:54:24 -0000	1.4
+++ openacs-4/packages/calendar/www/admin/calendar-edit.tcl	29 Jul 2014 11:14:17 -0000	1.4.16.1
@@ -5,7 +5,7 @@
     @creation-date Dec 14, 2000
     @cvs-id $Id$
 } {
-    {calendar_id:integer,optional}
+    {calendar_id:naturalnum,optional}
 }
 
 set page_title "Add/Edit Calendar"
Index: openacs-4/packages/categories/www/cadmin/category-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-delete-2.tcl,v
diff -u -N -r1.9 -r1.9.4.1
--- openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	6 Nov 2008 15:50:44 -0000	1.9
+++ openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	29 Jul 2014 11:14:17 -0000	1.9.4.1
@@ -8,8 +8,8 @@
     tree_id:integer
     category_id:integer,multiple
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/category-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-delete.tcl,v
diff -u -N -r1.10 -r1.10.4.1
--- openacs-4/packages/categories/www/cadmin/category-delete.tcl	6 Nov 2008 15:50:44 -0000	1.10
+++ openacs-4/packages/categories/www/cadmin/category-delete.tcl	29 Jul 2014 11:14:17 -0000	1.10.4.1
@@ -8,8 +8,8 @@
     tree_id:integer
     category_id:integer,multiple
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-form.tcl,v
diff -u -N -r1.10 -r1.10.2.1
--- openacs-4/packages/categories/www/cadmin/category-form.tcl	20 May 2011 10:41:11 -0000	1.10
+++ openacs-4/packages/categories/www/cadmin/category-form.tcl	29 Jul 2014 11:14:17 -0000	1.10.2.1
@@ -5,11 +5,11 @@
     @cvs-id $Id:
 } {
     tree_id:integer
-    category_id:integer,optional
-    {parent_id:integer,optional [db_null]}
+    category_id:naturalnum,optional
+    {parent_id:naturalnum,optional [db_null]}
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     context_bar:onevalue
     page_title:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl,v
diff -u -N -r1.7.4.2 -r1.7.4.3
--- openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	3 Oct 2013 07:56:58 -0000	1.7.4.2
+++ openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	29 Jul 2014 11:14:17 -0000	1.7.4.3
@@ -9,8 +9,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-link-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-3.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-add-3.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-link-add-3.tcl	29 Jul 2014 11:14:17 -0000	1.4.4.1
@@ -9,8 +9,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-link-add-4.tcl	29 Jul 2014 11:14:17 -0000	1.4.4.1
@@ -9,8 +9,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/category-link-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-add.tcl	6 Nov 2008 15:50:44 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-link-add.tcl	29 Jul 2014 11:14:17 -0000	1.4.4.1
@@ -8,8 +8,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl,v
diff -u -N -r1.5 -r1.5.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl	6 Nov 2008 15:50:44 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/category-link-delete-2.tcl	29 Jul 2014 11:14:17 -0000	1.5.4.1
@@ -9,8 +9,8 @@
     category_id:integer
     tree_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/category-link-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-delete.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/www/cadmin/category-link-delete.tcl	9 Nov 2008 23:29:23 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-link-delete.tcl	29 Jul 2014 11:14:17 -0000	1.6.4.1
@@ -9,8 +9,8 @@
     category_id:integer
     tree_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-links-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-links-view.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/www/cadmin/category-links-view.tcl	9 Nov 2008 23:29:23 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-links-view.tcl	29 Jul 2014 11:14:17 -0000	1.6.4.1
@@ -8,9 +8,9 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
+    object_id:naturalnum,optional
     orderby:optional
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-parent-change-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-parent-change-2.tcl,v
diff -u -N -r1.2 -r1.2.4.1
--- openacs-4/packages/categories/www/cadmin/category-parent-change-2.tcl	6 Nov 2008 15:50:44 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/category-parent-change-2.tcl	29 Jul 2014 11:14:17 -0000	1.2.4.1
@@ -7,10 +7,10 @@
 } {
     tree_id:integer
     category_id:integer
-    {parent_id:integer,optional [db_null]}
+    {parent_id:naturalnum,optional [db_null]}
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
Index: openacs-4/packages/categories/www/cadmin/category-parent-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-parent-change.tcl,v
diff -u -N -r1.4.4.2 -r1.4.4.3
--- openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	3 Oct 2013 07:56:58 -0000	1.4.4.2
+++ openacs-4/packages/categories/www/cadmin/category-parent-change.tcl	29 Jul 2014 11:14:17 -0000	1.4.4.3
@@ -8,8 +8,8 @@
     tree_id:integer
     category_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/category-phase-in.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-phase-in.tcl,v
diff -u -N -r1.5 -r1.5.4.1
--- openacs-4/packages/categories/www/cadmin/category-phase-in.tcl	6 Nov 2008 15:50:44 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/category-phase-in.tcl	29 Jul 2014 11:14:18 -0000	1.5.4.1
@@ -7,8 +7,8 @@
     tree_id:integer
     category_id:integer,multiple
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
Index: openacs-4/packages/categories/www/cadmin/category-phase-out.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-phase-out.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/www/cadmin/category-phase-out.tcl	6 Nov 2008 15:50:44 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-phase-out.tcl	29 Jul 2014 11:14:18 -0000	1.6.4.1
@@ -7,8 +7,8 @@
     tree_id:integer
     category_id:integer,multiple
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } 
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
Index: openacs-4/packages/categories/www/cadmin/category-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-usage.tcl,v
diff -u -N -r1.6 -r1.6.12.1
--- openacs-4/packages/categories/www/cadmin/category-usage.tcl	1 Mar 2005 00:01:26 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-usage.tcl	29 Jul 2014 11:14:18 -0000	1.6.12.1
@@ -8,7 +8,7 @@
     category_id:integer
     tree_id:integer
     {locale ""}
-    object_id:integer,optional
+    object_id:naturalnum,optional
     {page:integer,optional 1}
     {orderby:optional object_name}
 } -properties {
Index: openacs-4/packages/categories/www/cadmin/object-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/object-map.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/categories/www/cadmin/object-map.tcl	20 May 2011 10:41:12 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/object-map.tcl	29 Jul 2014 11:14:18 -0000	1.6.2.1
@@ -8,7 +8,7 @@
     @cvs-id $Id:
 } {
     object_id:integer,notnull
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
     {locale ""}
 } -properties {
     page_title:onevalue
Index: openacs-4/packages/categories/www/cadmin/permission-manage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/permission-manage.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/categories/www/cadmin/permission-manage.tcl	20 May 2011 10:41:12 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/permission-manage.tcl	29 Jul 2014 11:14:18 -0000	1.6.2.1
@@ -5,7 +5,7 @@
     @cvs-id $Id:
 } {
     tree_id:integer
-    object_id:integer,optional
+    object_id:naturalnum,optional
     {locale ""}
 } -properties {
     page_title:onevalue
Index: openacs-4/packages/categories/www/cadmin/site-wide-status-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/site-wide-status-change.tcl,v
diff -u -N -r1.5 -r1.5.12.1
--- openacs-4/packages/categories/www/cadmin/site-wide-status-change.tcl	1 Mar 2005 00:01:27 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/site-wide-status-change.tcl	29 Jul 2014 11:14:18 -0000	1.5.12.1
@@ -7,7 +7,7 @@
     tree_id:integer
     action:integer
     {locale ""}
-    object_id:integer,optional
+    object_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/synonym-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-delete-2.tcl,v
diff -u -N -r1.3 -r1.3.4.1
--- openacs-4/packages/categories/www/cadmin/synonym-delete-2.tcl	6 Nov 2008 15:50:44 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/synonym-delete-2.tcl	29 Jul 2014 11:14:18 -0000	1.3.4.1
@@ -9,8 +9,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/synonym-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-delete.tcl,v
diff -u -N -r1.3 -r1.3.4.1
--- openacs-4/packages/categories/www/cadmin/synonym-delete.tcl	6 Nov 2008 15:50:44 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/synonym-delete.tcl	29 Jul 2014 11:14:18 -0000	1.3.4.1
@@ -9,8 +9,8 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/synonym-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-form.tcl,v
diff -u -N -r1.5.4.1 -r1.5.4.2
--- openacs-4/packages/categories/www/cadmin/synonym-form.tcl	27 Aug 2013 11:33:58 -0000	1.5.4.1
+++ openacs-4/packages/categories/www/cadmin/synonym-form.tcl	29 Jul 2014 11:14:18 -0000	1.5.4.2
@@ -5,12 +5,12 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
-    synonym_id:integer,optional
+    synonym_id:naturalnum,optional
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     context_bar:onevalue
     page_title:onevalue
Index: openacs-4/packages/categories/www/cadmin/synonyms-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonyms-view.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/categories/www/cadmin/synonyms-view.tcl	9 Nov 2008 23:29:23 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/synonyms-view.tcl	29 Jul 2014 11:14:18 -0000	1.4.4.1
@@ -8,9 +8,9 @@
     category_id:integer,notnull
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
+    object_id:naturalnum,optional
     orderby:optional
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-copy-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy-2.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/www/cadmin/tree-copy-2.tcl	6 Nov 2008 15:50:44 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/tree-copy-2.tcl	29 Jul 2014 11:14:18 -0000	1.6.4.1
@@ -8,8 +8,8 @@
     target_tree_id:integer
     source_tree_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl,v
diff -u -N -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	3 Oct 2013 07:56:58 -0000	1.4.2.2
+++ openacs-4/packages/categories/www/cadmin/tree-copy-view.tcl	29 Jul 2014 11:14:18 -0000	1.4.2.3
@@ -8,8 +8,8 @@
     source_tree_id:integer
     target_tree_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-copy.tcl,v
diff -u -N -r1.11 -r1.11.2.1
--- openacs-4/packages/categories/www/cadmin/tree-copy.tcl	20 May 2011 10:41:12 -0000	1.11
+++ openacs-4/packages/categories/www/cadmin/tree-copy.tcl	29 Jul 2014 11:14:18 -0000	1.11.2.1
@@ -7,8 +7,8 @@
 } {
     tree_id:integer
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl,v
diff -u -N -r1.7 -r1.7.4.1
--- openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl	6 Nov 2008 15:50:44 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-delete-2.tcl	29 Jul 2014 11:14:18 -0000	1.7.4.1
@@ -7,8 +7,8 @@
 } {
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/tree-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete.tcl,v
diff -u -N -r1.11 -r1.11.2.1
--- openacs-4/packages/categories/www/cadmin/tree-delete.tcl	20 May 2011 10:41:12 -0000	1.11
+++ openacs-4/packages/categories/www/cadmin/tree-delete.tcl	29 Jul 2014 11:14:18 -0000	1.11.2.1
@@ -7,8 +7,8 @@
 } {
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-form.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/categories/www/cadmin/tree-form.tcl	20 May 2011 10:41:12 -0000	1.8
+++ openacs-4/packages/categories/www/cadmin/tree-form.tcl	29 Jul 2014 11:14:18 -0000	1.8.2.1
@@ -4,10 +4,10 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
-    tree_id:integer,optional
+    tree_id:naturalnum,optional
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     context_bar:onevalue
     page_title:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-map-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map-2.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	20 May 2011 10:41:12 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-map-2.tcl	29 Jul 2014 11:14:19 -0000	1.7.2.1
@@ -10,11 +10,11 @@
     @cvs-id $Id:
 } {
     tree_id:integer,notnull
-    {category_id:integer,optional ""}
+    {category_id:naturalnum,optional ""}
     {locale ""}
     object_id:integer,notnull
     {edit_p 0}
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 }
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/tree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/categories/www/cadmin/tree-map.tcl	29 Sep 2013 12:04:42 -0000	1.9.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-map.tcl	29 Jul 2014 11:14:19 -0000	1.9.2.2
@@ -8,7 +8,7 @@
     tree_id:integer
     {locale ""}
     object_id:integer,notnull
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-order-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-order-update.tcl,v
diff -u -N -r1.5.4.1 -r1.5.4.2
--- openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	29 Sep 2013 12:04:42 -0000	1.5.4.1
+++ openacs-4/packages/categories/www/cadmin/tree-order-update.tcl	29 Jul 2014 11:14:19 -0000	1.5.4.2
@@ -8,8 +8,8 @@
     tree_id:integer
     sort_key:array
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 }
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
Index: openacs-4/packages/categories/www/cadmin/tree-unmap-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-unmap-2.tcl,v
diff -u -N -r1.6 -r1.6.4.1
--- openacs-4/packages/categories/www/cadmin/tree-unmap-2.tcl	6 Nov 2008 15:50:44 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/tree-unmap-2.tcl	29 Jul 2014 11:14:19 -0000	1.6.4.1
@@ -8,7 +8,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,notnull
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 } 
 
 set user_id [auth::require_login]
Index: openacs-4/packages/categories/www/cadmin/tree-unmap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-unmap.tcl,v
diff -u -N -r1.7 -r1.7.4.1
--- openacs-4/packages/categories/www/cadmin/tree-unmap.tcl	6 Nov 2008 15:50:44 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-unmap.tcl	29 Jul 2014 11:14:19 -0000	1.7.4.1
@@ -8,7 +8,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,notnull
-    ctx_id:integer,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.tcl,v
diff -u -N -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	29 Sep 2013 12:04:42 -0000	1.9.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	29 Jul 2014 11:14:19 -0000	1.9.2.2
@@ -7,8 +7,8 @@
 } {
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
Index: openacs-4/packages/categories/www/cadmin/tree-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-view.tcl,v
diff -u -N -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/categories/www/cadmin/tree-view.tcl	29 Sep 2013 12:04:42 -0000	1.16.2.1
+++ openacs-4/packages/categories/www/cadmin/tree-view.tcl	29 Jul 2014 11:14:19 -0000	1.16.2.2
@@ -7,8 +7,8 @@
 } {
     tree_id:integer,notnull
     {locale ""}
-    object_id:integer,optional
-    ctx_id:integer,optional
+    object_id:naturalnum,optional
+    ctx_id:naturalnum,optional
 } -properties {
     page_title:onevalue
     tree_name:onevalue
Index: openacs-4/packages/faq/www/one-faq.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/one-faq.tcl,v
diff -u -N -r1.10.2.2 -r1.10.2.3
--- openacs-4/packages/faq/www/one-faq.tcl	4 Oct 2013 06:53:06 -0000	1.10.2.2
+++ openacs-4/packages/faq/www/one-faq.tcl	29 Jul 2014 11:14:19 -0000	1.10.2.3
@@ -7,7 +7,7 @@
     @creation-date 2000-10-24
  
 } {
-    {category_id:integer,optional {}}
+    {category_id:naturalnum,optional {}}
     faq_id:naturalnum,notnull
 }
 
Index: openacs-4/packages/file-storage/www/copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v
diff -u -N -r1.9.4.2 -r1.9.4.3
--- openacs-4/packages/file-storage/www/copy.tcl	3 Oct 2013 08:33:57 -0000	1.9.4.2
+++ openacs-4/packages/file-storage/www/copy.tcl	29 Jul 2014 11:14:19 -0000	1.9.4.3
@@ -8,7 +8,7 @@
     
 } -query {
     object_id:notnull,integer,multiple
-    folder_id:integer,optional
+    folder_id:naturalnum,optional
     {return_url ""}
     {root_folder_id ""}
     {redirect_to_folder:boolean 0}
Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -N -r1.17.2.5 -r1.17.2.6
--- openacs-4/packages/file-storage/www/file-add.tcl	1 Apr 2014 18:37:32 -0000	1.17.2.5
+++ openacs-4/packages/file-storage/www/file-add.tcl	29 Jul 2014 11:14:19 -0000	1.17.2.6
@@ -5,8 +5,8 @@
     @creation-date 6 Nov 2000
     @cvs-id $Id$
 } {
-    file_id:integer,optional,notnull
-    folder_id:integer,optional,notnull
+    file_id:naturalnum,optional,notnull
+    folder_id:naturalnum,optional,notnull
     upload_file:trim,optional
     return_url:optional
     upload_file.tmpfile:tmpfile,optional
Index: openacs-4/packages/file-storage/www/folder-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-add.tcl,v
diff -u -N -r1.2.8.2 -r1.2.8.3
--- openacs-4/packages/file-storage/www/folder-add.tcl	3 Oct 2013 08:33:57 -0000	1.2.8.2
+++ openacs-4/packages/file-storage/www/folder-add.tcl	29 Jul 2014 11:14:19 -0000	1.2.8.3
@@ -5,7 +5,7 @@
     @creation-date 6 Nov 2000
     @cvs-id $Id$
 } {
-    folder_id:integer,optional,notnull
+    folder_id:naturalnum,optional,notnull
     upload_folder:trim,optional
     return_url:optional
     {lock_title_p 0}
Index: openacs-4/packages/file-storage/www/folder-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-create.tcl,v
diff -u -N -r1.9.6.1 -r1.9.6.2
--- openacs-4/packages/file-storage/www/folder-create.tcl	3 Oct 2013 08:33:58 -0000	1.9.6.1
+++ openacs-4/packages/file-storage/www/folder-create.tcl	29 Jul 2014 11:14:19 -0000	1.9.6.2
@@ -7,8 +7,8 @@
     @creation-date 4 Jan 2004
     @cvs-id $Id$
 } {
-    parent_id:integer,optional,notnull
-    folder_id:integer,optional,notnull
+    parent_id:naturalnum,optional,notnull
+    folder_id:naturalnum,optional,notnull
 } -validate {
     file_id_or_folder_id {
 	if { (![info exists folder_id] || $folder_id eq "") && (![info exists parent_id] || $parent_id eq "") } {
Index: openacs-4/packages/file-storage/www/folder-zip-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-zip-add.tcl,v
diff -u -N -r1.4.6.4 -r1.4.6.5
--- openacs-4/packages/file-storage/www/folder-zip-add.tcl	1 Apr 2014 18:37:32 -0000	1.4.6.4
+++ openacs-4/packages/file-storage/www/folder-zip-add.tcl	29 Jul 2014 11:14:19 -0000	1.4.6.5
@@ -5,8 +5,8 @@
     @creation-date 6 Nov 2000
     @cvs-id $Id$
 } {
-    file_id:integer,optional,notnull
-    folder_id:integer,optional,notnull
+    file_id:naturalnum,optional,notnull
+    folder_id:naturalnum,optional,notnull
     upload_file:trim,optional
     return_url:optional
     upload_file.tmpfile:tmpfile,optional
Index: openacs-4/packages/file-storage/www/move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v
diff -u -N -r1.9.4.2 -r1.9.4.3
--- openacs-4/packages/file-storage/www/move.tcl	3 Oct 2013 08:33:58 -0000	1.9.4.2
+++ openacs-4/packages/file-storage/www/move.tcl	29 Jul 2014 11:14:20 -0000	1.9.4.3
@@ -8,7 +8,7 @@
     
 } -query {
     object_id:notnull,integer,multiple
-    folder_id:integer,optional
+    folder_id:naturalnum,optional
     {return_url ""}
     {root_folder_id ""}
     {redirect_to_folder:boolean 0}
Index: openacs-4/packages/xowiki/www/xinha/file-selector.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/file-selector.tcl,v
diff -u -N -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/xowiki/www/xinha/file-selector.tcl	13 Oct 2013 18:13:59 -0000	1.15.2.1
+++ openacs-4/packages/xowiki/www/xinha/file-selector.tcl	29 Jul 2014 11:14:20 -0000	1.15.2.2
@@ -5,7 +5,7 @@
   @cvs-id $Id$
 } {     
   {fs_package_id:integer,notnull,optional}
-  {folder_id:integer,optional}
+  {folder_id:naturalnum,optional}
   {orderby:optional}
   {selector_type "image"}
   {file_types "*"}
Index: openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl,v
diff -u -N -r1.6.2.1 -r1.6.2.2
--- openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl	7 Sep 2013 14:36:50 -0000	1.6.2.1
+++ openacs-4/packages/xowiki/www/xinha/insert-ilink.tcl	29 Jul 2014 11:14:20 -0000	1.6.2.2
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
   {file_types *}
 }
  
Index: openacs-4/packages/xowiki/www/xinha/insert-image.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/xinha/insert-image.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/xowiki/www/xinha/insert-image.tcl	13 Sep 2012 16:07:09 -0000	1.6
+++ openacs-4/packages/xowiki/www/xinha/insert-image.tcl	29 Jul 2014 11:14:20 -0000	1.6.2.1
@@ -4,8 +4,8 @@
   @creation-date 13.07.2004
   @cvs-id $Id$
 } {
-  {fs_package_id:integer,optional}
-  {folder_id:integer,optional}
+  {fs_package_id:naturalnum,optional}
+  {folder_id:naturalnum,optional}
 }
  
 set selector_type "image"