Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.68 -r1.69
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	10 Jul 2007 19:00:06 -0000	1.68
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	11 Jul 2007 11:57:14 -0000	1.69
@@ -59,9 +59,15 @@
     return [string map [list : _ # _] [self]]
   }
 
-  ::xowiki::Portlet proc make_id {} {
+  ::xowiki::Portlet proc self_id {} {
     return [string map [list : _ # _] [self]]
   }
+  ::xowiki::Portlet proc html_id {name} {
+    # Construct a valid HTML id or name. 
+    # For details, see http://www.w3.org/TR/html4/types.html
+    regsub -all {[^A-Za-z0-9_:.-]} $name _ name
+    return $name
+  }
 
   ::xowiki::Portlet instproc screen_name {user_id} {
     acs_user::get -user_id $user_id -array user