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