Index: openacs-4/packages/evaluation/tcl/evaluation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	7 Jul 2004 17:26:44 -0000	1.9
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.tcl	14 Jul 2004 17:42:07 -0000	1.10
@@ -67,6 +67,17 @@
     return $output
 } 
 
+ad_proc -public evaluation::safe_url_name { 
+    -name:required
+} { 
+    returns the filename replacing some characters
+} {  
+
+    regsub -all {[<>:\"|/@\\\#%&+\\ ,\?]} $name {_} name
+    return $name
+
+} 
+
 ad_proc -public evaluation::notification::do_notification { 
     -task_id:required
     -package_id:required