Index: openacs-4/packages/file-storage/www/version-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/version-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/file-storage/www/version-add-2.tcl	12 Nov 2002 08:36:44 -0000	1.4
+++ openacs-4/packages/file-storage/www/version-add-2.tcl	17 May 2003 10:39:54 -0000	1.5
@@ -43,10 +43,8 @@
 # Get the ip
 set creation_ip [ad_conn peeraddr]
 
-# The content repository is kinda stupid about mime types,
-# so we have to check if we know about this one and possibly 
-# add it.
-set mime_type [fs_maybe_create_new_mime_type $upload_file]
+# get mime type (create if needed) 
+set mime_type [cr_filename_to_mime_type -create $upload_file]
 
 # Get the storage type
 set indb_p [ad_parameter "StoreFilesInDatabaseP" -package_id [ad_conn package_id]]