Index: openacs-4/packages/acs-templating/tcl/file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/file-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-templating/tcl/file-procs.tcl	21 Jun 2005 06:59:57 -0000	1.5
+++ openacs-4/packages/acs-templating/tcl/file-procs.tcl	21 Jun 2005 13:01:56 -0000	1.6
@@ -83,15 +83,6 @@
     return $output_filename
 }
 
-ad_proc -private template::util::file::get_file_extension {
-    {-filename:required}
-} {
-    get the file extension from a file
-} {
-    return [lindex [split $filename "."] end]
-}
-
-
 ad_proc -public template::util::file::store_for_party {
     {-upload_file:required}
     {-party_id:required}
@@ -116,7 +107,7 @@
 	set tmp_filename [template::util::file::get_property tmp_filename $upload_file]
 	set mime_type [template::util::file::get_property mime_type $upload_file]
 	set tmp_size [file size $tmp_filename]
-	set extension [lindex [split $filename "."] end]
+	set extension [file extension $filename]
 	if {![exists_and_not_null title]} {
 	    regsub -all ".${extension}\$" $filename "" title
 	}