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 -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	5 Mar 2014 10:20:21 -0000	1.9
+++ openacs-4/packages/acs-admin/www/apm/version-callback-add-edit.tcl	27 Oct 2014 16:38:52 -0000	1.10
@@ -6,7 +6,7 @@
     @creation-date 28 January 2003
     @cvs-id $Id$  
 } {
-    version_id:integer,notnull    
+    version_id:naturalnum,notnull    
     {type ""}
 }
 
@@ -65,12 +65,12 @@
 
 } -validate {
     {proc
-    { [info commands ::$proc] ne "" }
-    {The specified procedure name does not exist. Is the -procs.tcl file loaded?}
+	{ {info commands ::$proc} ne "" }
+	{The specified procedure name does not exist. Is the -procs.tcl file loaded?}
     }
     {proc
-    { [apm_callback_has_valid_args -type $type -proc_name $proc] }
-    {The callback proc $proc must be defined with ad_proc [ad_decode [apm_arg_names_for_callback_type -type $type] "" "and should take no arguments" "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"]}
+	{ [apm_callback_has_valid_args -type $type -proc_name $proc] }
+	{The callback proc $proc must be defined with ad_proc [ad_decode [apm_arg_names_for_callback_type -type $type] "" "and should take no arguments" "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"]}
     }
 } -on_submit {