Index: openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl,v
diff -u -N -r1.8.2.7 -r1.8.2.8
--- openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl	15 Mar 2022 11:57:38 -0000	1.8.2.7
+++ openacs-4/packages/xowf/tcl/xowf-form-field-procs.tcl	20 Mar 2022 19:47:19 -0000	1.8.2.8
@@ -461,6 +461,28 @@
 
   ###########################################################
   #
+  # ::xowiki::formfield::iprange
+  #
+  ###########################################################
+
+  Class create iprange -superclass select -parameter {
+  }
+
+  iprange instproc initialize {} {
+    if {${:__state} ne "after_specs"} return
+
+    set :options [lsort [lmap rangeObject [::xowf::IpRange info instances -closure] {
+      set intrep [namespace tail $rangeObject]
+      list [$rangeObject cget -title] $intrep
+    }]]
+    next
+
+    set :__initialized 1
+  }
+
+
+  ###########################################################
+  #
   # ::xowiki::formfield::grade_boundary
   #
   ###########################################################