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 -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	6 Sep 2002 21:50:01 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete.tcl	27 Oct 2014 16:39:52 -0000	1.4
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 
 } {
-    segment_id:integer,notnull
+    segment_id:naturalnum,notnull
     { return_url "" }
 } -properties {
     export_vars:onevalue
@@ -28,10 +28,10 @@
      where s.segment_id = :segment_id
 }
 
-set export_vars [export_form_vars segment_id]
+set export_vars [export_vars -form {segment_id}]
 set context [list \
      [list "[ad_conn package_url]admin/rel-segments/" "Relational segments"] \
-     [list one?[ad_export_vars segment_id] "One segment"] \
+     [list one?[export_vars segment_id] "One segment"] \
      "Remove segment"]
 
 ad_return_template