Index: openacs-4/packages/acs-admin/www/auth/batch-job.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/batch-job.tcl,v diff -u -N -r1.12.10.1 -r1.12.10.2 --- openacs-4/packages/acs-admin/www/auth/batch-job.tcl 26 Jul 2014 11:55:48 -0000 1.12.10.1 +++ openacs-4/packages/acs-admin/www/auth/batch-job.tcl 29 Jul 2014 10:56:35 -0000 1.12.10.2 @@ -5,7 +5,7 @@ @creation-date 2003-09-09 } { job_id - page:integer,optional + page:naturalnum,optional success_p:boolean,optional } Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -N -r1.6.16.5 -r1.6.16.6 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 26 Jul 2014 11:27:29 -0000 1.6.16.5 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 29 Jul 2014 10:56:35 -0000 1.6.16.6 @@ -5,7 +5,7 @@ } { proc source_p:optional,integer,trim - {version_id:optional,integer ""} + {version_id:naturalnum,optional ""} } -properties { title:onevalue context:onevalue Index: openacs-4/packages/acs-subsite/lib/user-info.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v diff -u -N -r1.21.6.2 -r1.21.6.3 --- openacs-4/packages/acs-subsite/lib/user-info.tcl 5 Oct 2013 13:02:11 -0000 1.21.6.2 +++ openacs-4/packages/acs-subsite/lib/user-info.tcl 29 Jul 2014 10:56:35 -0000 1.21.6.3 @@ -1,6 +1,6 @@ # # Expects: -# user_id:optional +# user_id:naturalnum,optional # return_url:optional # edit_p:optional # message:optional Index: openacs-4/packages/acs-subsite/www/members/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v diff -u -N -r1.18.10.2 -r1.18.10.3 --- openacs-4/packages/acs-subsite/www/members/index.tcl 26 Jul 2014 11:55:48 -0000 1.18.10.2 +++ openacs-4/packages/acs-subsite/www/members/index.tcl 29 Jul 2014 10:56:35 -0000 1.18.10.3 @@ -7,7 +7,7 @@ } { {member_state "approved"} {orderby "name,asc"} - page:integer,optional + page:naturalnum,optional } -validate { member_state_valid -requires { member_state } { if { [lsearch [group::possible_member_states] $member_state] == -1 } { Index: openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl,v diff -u -N -r1.7.4.2 -r1.7.4.3 --- openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl 8 Sep 2013 08:16:26 -0000 1.7.4.2 +++ openacs-4/packages/acs-subsite/www/permissions/perm-user-add-include.tcl 29 Jul 2014 10:56:35 -0000 1.7.4.3 @@ -2,7 +2,7 @@ } { object_id:integer,notnull return_url - page:integer,optional + page:naturalnum,optional } # check they have read permission on this file Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v diff -u -N -r1.17.2.2 -r1.17.2.3 --- openacs-4/packages/acs-templating/tcl/data-procs.tcl 26 Oct 2013 09:19:59 -0000 1.17.2.2 +++ openacs-4/packages/acs-templating/tcl/data-procs.tcl 29 Jul 2014 10:56:36 -0000 1.17.2.3 @@ -79,7 +79,7 @@ @return True (1) if valid, false (0) if not } { - upvar 2 $message_ref message $value_ref value + upvar 2 $message_ref message $value_ref value set result [regexp {^(0*)(([1-9][0-9]*|0))$} $value match zeros value] Index: openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl,v diff -u -N -r1.2.12.2 -r1.2.12.3 --- openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl 26 Jul 2014 11:55:48 -0000 1.2.12.2 +++ openacs-4/packages/acs-templating/www/doc/demo/list8/index.tcl 29 Jul 2014 10:56:36 -0000 1.2.12.3 @@ -8,7 +8,7 @@ } -query { orderby:optional color_filter_value:optional - page:integer,optional + page:naturalnum,optional } -properties { notes:multirow context:onevalue Index: openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl,v diff -u -N -r1.1.12.2 -r1.1.12.3 --- openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl 26 Jul 2014 11:55:49 -0000 1.1.12.2 +++ openacs-4/packages/acs-templating/www/doc/demo/list9/index.tcl 29 Jul 2014 10:56:36 -0000 1.1.12.3 @@ -8,7 +8,7 @@ } -query { orderby:optional color_filter_value:optional - page:integer,optional + page:naturalnum,optional } -properties { notes:multirow context:onevalue Index: openacs-4/packages/categories/www/categories-browse.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/categories-browse.tcl,v diff -u -N -r1.9.4.6 -r1.9.4.7 --- openacs-4/packages/categories/www/categories-browse.tcl 11 Oct 2013 12:08:22 -0000 1.9.4.6 +++ openacs-4/packages/categories/www/categories-browse.tcl 29 Jul 2014 10:56:36 -0000 1.9.4.7 @@ -14,7 +14,7 @@ {subtree_p:optional f} {letter:optional all} {join:optional or} - package_id:optional + package_id:naturalnum,optional } -properties { page_title:onevalue context_bar:onevalue Index: openacs-4/packages/faq/www/admin/faq-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/faq-add-edit.tcl,v diff -u -N -r1.5 -r1.5.12.1 --- openacs-4/packages/faq/www/admin/faq-add-edit.tcl 29 Jun 2004 10:18:18 -0000 1.5 +++ openacs-4/packages/faq/www/admin/faq-add-edit.tcl 29 Jul 2014 10:56:36 -0000 1.5.12.1 @@ -5,7 +5,7 @@ @author Gerardo Morales Cadoret (gmorales@galileo.edu) @creation-date 2003-11-26 } { - faq_id:optional + faq_id:naturalnum,optional return_url:optional } -properties { context:onevalue Index: openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl,v diff -u -N -r1.10.8.1 -r1.10.8.2 --- openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl 3 Oct 2013 09:08:36 -0000 1.10.8.1 +++ openacs-4/packages/faq/www/admin/q-and-a-add-edit.tcl 29 Jul 2014 10:56:36 -0000 1.10.8.2 @@ -8,7 +8,7 @@ } { faq_id:naturalnum,notnull - entry_id:optional + entry_id:naturalnum,optional {prev_entry_id 0} } -properties { context:onevalue Index: openacs-4/packages/forums/www/forum-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v diff -u -N -r1.33.4.2 -r1.33.4.3 --- openacs-4/packages/forums/www/forum-view.tcl 26 Jul 2014 11:54:39 -0000 1.33.4.2 +++ openacs-4/packages/forums/www/forum-view.tcl 29 Jul 2014 10:56:36 -0000 1.33.4.3 @@ -10,7 +10,7 @@ forum_id:integer,notnull {orderby "last_child_post,desc"} {flush_p 0} - page:integer,optional + page:naturalnum,optional } Index: openacs-4/packages/news/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/index.tcl,v diff -u -N -r1.19.2.1 -r1.19.2.2 --- openacs-4/packages/news/www/index.tcl 26 Jul 2014 11:55:49 -0000 1.19.2.1 +++ openacs-4/packages/news/www/index.tcl 29 Jul 2014 10:56:36 -0000 1.19.2.2 @@ -11,7 +11,7 @@ } { {view:trim "live"} - page:integer,optional + page:naturalnum,optional } -properties { Index: openacs-4/packages/xowiki/www/admin/permissions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/permissions.tcl,v diff -u -N -r1.6 -r1.6.2.1 --- openacs-4/packages/xowiki/www/admin/permissions.tcl 13 Sep 2012 16:05:33 -0000 1.6 +++ openacs-4/packages/xowiki/www/admin/permissions.tcl 29 Jul 2014 10:56:36 -0000 1.6.2.1 @@ -6,7 +6,7 @@ @cvs-id $Id$ } -parameter { - {-item_id:optional} + {-item_id:naturalnum,optional} } if {[info exists item_id]} {