Index: openacs-4/packages/chat/www/chat-room-grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/chat-room-grant.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/chat-room-grant.tcl	17 Jun 2016 17:36:11 -0000	1.3
+++ openacs-4/packages/chat/www/chat-room-grant.tcl	20 Jun 2016 08:37:04 -0000	1.4
@@ -4,7 +4,7 @@
     @creation-date November 16, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
     pretty_name:trim,notnull
     require_privilege:trim,notnull
     assign_privilege:trim,notnull
Index: openacs-4/packages/chat/www/chat-transcript.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcript.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/chat-transcript.tcl	17 Jun 2016 17:27:51 -0000	1.4
+++ openacs-4/packages/chat/www/chat-transcript.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -1,8 +1,8 @@
 ad_page_contract {
     mostra mensagens do chat arquivadas
 } {
-   room_id:integer
-   {transcript_id:integer,optional 0}
+   room_id:naturalnum,notnull
+   {transcript_id:naturalnum,optional 0}
 } 
 
 set page_title "[_ chat.Transcript]"   
Index: openacs-4/packages/chat/www/chat-transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcripts.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/chat-transcripts.tcl	24 Jun 2006 14:23:42 -0000	1.2
+++ openacs-4/packages/chat/www/chat-transcripts.tcl	20 Jun 2016 08:37:04 -0000	1.3
@@ -5,7 +5,7 @@
     @author Peter Alberer (peter@alberer.com)
     @creation-date March 26, 2006
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 } 
 
 if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/chat/www/chat.tcl	17 Jun 2016 17:36:11 -0000	1.15
+++ openacs-4/packages/chat/www/chat.tcl	20 Jun 2016 08:37:04 -0000	1.16
@@ -7,7 +7,7 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id
+    room_id:naturalnum,notnull
   {client "ajax"}
     {message:html ""}
 } -properties {
Index: openacs-4/packages/chat/www/message-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/www/message-delete-2.tcl	19 Nov 2007 01:14:16 -0000	1.7
+++ openacs-4/packages/chat/www/message-delete-2.tcl	20 Jun 2016 08:37:04 -0000	1.8
@@ -6,7 +6,7 @@
     @creation-date January 18, 2001
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_room_delete
Index: openacs-4/packages/chat/www/message-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/message-delete.tcl	17 Jun 2016 17:36:11 -0000	1.6
+++ openacs-4/packages/chat/www/message-delete.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,7 +6,7 @@
     @creation-date January 18, 2001
     @cvs-id $Id$
 } {
-    room_id:notnull,integer
+    room_id:notnull,naturalnum
 } -properties {
     room_id:onevalue
     pretty_name:onevalue
Index: openacs-4/packages/chat/www/moderator-grant-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/moderator-grant-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/moderator-grant-2.tcl	17 Jun 2016 17:36:11 -0000	1.2
+++ openacs-4/packages/chat/www/moderator-grant-2.tcl	20 Jun 2016 08:37:04 -0000	1.3
@@ -7,8 +7,8 @@
     @creation-date November 17, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_moderator_grant
Index: openacs-4/packages/chat/www/moderator-grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/moderator-grant.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/moderator-grant.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/moderator-grant.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -6,7 +6,7 @@
     @creation-date November 16, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     title:onevalue
Index: openacs-4/packages/chat/www/moderator-revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/moderator-revoke-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/moderator-revoke-2.tcl	17 Jun 2016 17:36:11 -0000	1.2
+++ openacs-4/packages/chat/www/moderator-revoke-2.tcl	20 Jun 2016 08:37:04 -0000	1.3
@@ -7,8 +7,8 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_moderator_revoke
Index: openacs-4/packages/chat/www/moderator-revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/moderator-revoke.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/moderator-revoke.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/moderator-revoke.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -7,8 +7,8 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_moderator_revoke
Index: openacs-4/packages/chat/www/room-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/room-delete-2.tcl	17 Jun 2016 17:36:11 -0000	1.6
+++ openacs-4/packages/chat/www/room-delete-2.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,7 +6,7 @@
     @creation-date November 16, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_room_delete
Index: openacs-4/packages/chat/www/room-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/room-delete.tcl	17 Jun 2016 17:36:11 -0000	1.6
+++ openacs-4/packages/chat/www/room-delete.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,7 +6,7 @@
     @creation-date November 15, 2000
     @cvs-id $Id$
 } {
-    room_id:notnull,integer
+    room_id:notnull,naturalnum
 } -properties {
     room_id:onevalue
     pretty_name:onevalue
Index: openacs-4/packages/chat/www/room-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-edit.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/chat/www/room-edit.tcl	9 Nov 2008 23:29:23 -0000	1.11
+++ openacs-4/packages/chat/www/room-edit.tcl	20 Jun 2016 08:37:04 -0000	1.12
@@ -5,7 +5,7 @@
     @author Peter Alberer (peter@alberer.com)
     @creation-date March 26, 2006
 } {
-    room_id:integer,optional
+    room_id:naturalnum,optional
 } 
 
 permission::require_permission -object_id [ad_conn package_id] -privilege chat_room_edit
Index: openacs-4/packages/chat/www/room-enter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-enter.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/chat/www/room-enter.tcl	17 Jun 2016 17:27:51 -0000	1.8
+++ openacs-4/packages/chat/www/room-enter.tcl	20 Jun 2016 08:37:04 -0000	1.9
@@ -7,7 +7,7 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
     client:trim
 } 
 
Index: openacs-4/packages/chat/www/room-exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-exit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/room-exit.tcl	17 Jun 2016 17:27:51 -0000	1.6
+++ openacs-4/packages/chat/www/room-exit.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,7 +6,7 @@
     @creation-date November 25, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 }
 
 set user_id [ad_conn user_id]
Index: openacs-4/packages/chat/www/room.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/chat/www/room.tcl	9 Nov 2008 23:29:23 -0000	1.8
+++ openacs-4/packages/chat/www/room.tcl	20 Jun 2016 08:37:04 -0000	1.9
@@ -5,7 +5,7 @@
     @creation-date November 15, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     pretty_name:onevalue
Index: openacs-4/packages/chat/www/search-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/search-2.tcl	17 Jun 2016 17:36:11 -0000	1.6
+++ openacs-4/packages/chat/www/search-2.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,9 +6,9 @@
     keyword:optional
     target
     type:notnull
-    room_id:notnull
+    room_id:naturalnum,notnull
     {passthrough ""}
-    {limit_users_in_group_id ""}
+    {limit_users_in_group_id:naturalnum ""}
 } -properties {
     group_name:onevalue
     search_type:onevalue
Index: openacs-4/packages/chat/www/search-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-3.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/search-3.tcl	17 Jun 2016 17:36:11 -0000	1.5
+++ openacs-4/packages/chat/www/search-3.tcl	20 Jun 2016 08:37:04 -0000	1.6
@@ -2,8 +2,8 @@
 
 } {
     type:notnull
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 if {$type eq "user"} {
Index: openacs-4/packages/chat/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/search.tcl	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/search.tcl	20 Jun 2016 08:37:04 -0000	1.2
@@ -2,7 +2,7 @@
 
 } {
   type:notnull
-  room_id:notnull
+  room_id:naturalnum,notnull
 } 
     
 set context [list "Users"]
Index: openacs-4/packages/chat/www/transcript-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/transcript-delete-2.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/transcript-delete-2.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -2,8 +2,8 @@
 ad_page_contract {
     Delete chat transcript.
 } {
-    room_id:integer,notnull
-    transcript_id:integer,notnull
+    room_id:naturalnum,notnull
+    transcript_id:naturalnum,notnull
     
 }
 
Index: openacs-4/packages/chat/www/transcript-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/transcript-delete.tcl	9 Nov 2008 23:29:23 -0000	1.6
+++ openacs-4/packages/chat/www/transcript-delete.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,8 +6,8 @@
     @creation-date November 28, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    transcript_id:integer,notnull
+    room_id:naturalnum,notnull
+    transcript_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     room_id:onevalue
Index: openacs-4/packages/chat/www/transcript-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-edit-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/www/transcript-edit-2.tcl	19 Nov 2007 01:14:16 -0000	1.7
+++ openacs-4/packages/chat/www/transcript-edit-2.tcl	20 Jun 2016 08:37:04 -0000	1.8
@@ -6,10 +6,10 @@
     @creation-date November 28, 2000
     @cvs-id $Id$
 } {
-    transcript_id:notnull,integer
+    transcript_id:notnull,naturalnum
     transcript_name:trim,notnull
     contents:html,notnull
-    room_id:notnull,integer
+    room_id:notnull,naturalnum
     {description:trim ""}
 }
 
Index: openacs-4/packages/chat/www/transcript-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/chat/www/transcript-edit.tcl	19 Nov 2007 01:14:16 -0000	1.6
+++ openacs-4/packages/chat/www/transcript-edit.tcl	20 Jun 2016 08:37:04 -0000	1.7
@@ -6,8 +6,8 @@
     @creation-date November 28, 2000
     @cvs-id $Id$
 } {
-    transcript_id:integer,notnull
-    room_id:integer,notnull
+    transcript_id:naturalnum,notnull
+    room_id:naturalnum,notnull
 } 
 
 permission::require_permission -object_id $transcript_id -privilege chat_transcript_edit
Index: openacs-4/packages/chat/www/transcript-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-new-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/transcript-new-2.tcl	19 Nov 2007 01:14:16 -0000	1.4
+++ openacs-4/packages/chat/www/transcript-new-2.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -2,7 +2,7 @@
 ad_page_contract {
     Save transcript.
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
     transcript_name:trim,notnull
     {description:trim ""}
     {delete_messages:optional "off"}
Index: openacs-4/packages/chat/www/transcript-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/www/transcript-new.tcl	9 Nov 2008 23:29:23 -0000	1.7
+++ openacs-4/packages/chat/www/transcript-new.tcl	20 Jun 2016 08:37:04 -0000	1.8
@@ -2,7 +2,7 @@
 ad_page_contract {
     Display available all available chat messages.
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     title:onevalue
Index: openacs-4/packages/chat/www/transcript-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-view.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/transcript-view.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/transcript-view.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -6,7 +6,7 @@
     @creation-date November 28, 2000
     @cvs-id $Id$
 } {
-    transcript_id:integer,notnull
+    transcript_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     transcript_name:onevalue
Index: openacs-4/packages/chat/www/user-ban-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-ban-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/user-ban-2.tcl	19 Nov 2007 01:14:16 -0000	1.3
+++ openacs-4/packages/chat/www/user-ban-2.tcl	20 Jun 2016 08:37:04 -0000	1.4
@@ -7,8 +7,8 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_user_ban
Index: openacs-4/packages/chat/www/user-ban.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-ban.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/user-ban.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/user-ban.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -7,7 +7,7 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
+    room_id:naturalnum,notnull
 } -properties {
     context_bar:onevalue
     title:onevalue
Index: openacs-4/packages/chat/www/user-unban-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-unban-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/www/user-unban-2.tcl	17 Jun 2016 17:36:11 -0000	1.2
+++ openacs-4/packages/chat/www/user-unban-2.tcl	20 Jun 2016 08:37:04 -0000	1.3
@@ -7,8 +7,8 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_user_unban
Index: openacs-4/packages/chat/www/user-unban.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-unban.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/user-unban.tcl	17 Jun 2016 17:36:11 -0000	1.4
+++ openacs-4/packages/chat/www/user-unban.tcl	20 Jun 2016 08:37:04 -0000	1.5
@@ -7,8 +7,8 @@
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
-    room_id:integer,notnull
-    party_id:integer,notnull
+    room_id:naturalnum,notnull
+    party_id:naturalnum,notnull
 }
 
 permission::require_permission -object_id $room_id -privilege chat_user_unban