Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.117 -r1.118
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	26 Nov 2009 14:05:13 -0000	1.117
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	16 Jan 2010 23:01:04 -0000	1.118
@@ -4030,6 +4030,16 @@
 #
 ####################
 
+ad_proc util::name_to_path {
+    -name:required
+} {
+    Transforms a pretty name to a reasonable path name.
+} {
+    regsub -all -nocase { } [string trim [string tolower $name]] {-} name
+    regsub -all {[^[:alnum:]\-]} $name {} name
+    return $name
+}
+
 ad_proc -public util::backup_file {
     {-file_path:required}
     {-backup_suffix ".bak"}
@@ -4588,4 +4598,4 @@
         set external_url_p [expr { $external_url_p && ![string match "${encoded_location}/*" $url] } ] 
     }
     return $external_url_p
-}
\ No newline at end of file
+}