Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	9 May 2018 15:33:34 -0000	1.49
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	17 May 2018 14:02:52 -0000	1.50
@@ -731,6 +731,15 @@
     return $renames
   }
 
+  ::xowiki::utility ad_proc formCSSclass {form_name} {
+    Obtain CSS class name for a form from its name
+  } {
+    set CSSname $form_name
+    regexp {^..:(.*)$} $CSSname _ CSSname
+    regsub {[.].*$} $CSSname "" CSSname
+    return "Form-$CSSname"
+  }
+
   ::xowiki::utility ad_proc change_page_order {
     -from:required
     -to:required