Index: openacs-4/packages/attachments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/file-add-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/attachments/www/file-add-2.tcl	7 Nov 2002 15:11:50 -0000	1.3
+++ openacs-4/packages/attachments/www/file-add-2.tcl	17 May 2003 10:13:01 -0000	1.4
@@ -45,10 +45,7 @@
 # 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]
+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]]