Index: openacs-4/packages/general-comments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/general-comments/www/file-add-2.tcl	7 Nov 2002 08:32:49 -0000	1.4
+++ openacs-4/packages/general-comments/www/file-add-2.tcl	17 May 2003 10:45:05 -0000	1.5
@@ -51,17 +51,8 @@
 
 # remove the first . from the file extension
 regsub {\.} $file_extension "" file_extension
-set guessed_file_type [ns_guesstype $upload_file]
+set guessed_file_type [cr_filename_to_mime_type -create $upload_file]
 
-# if the guessed_file_type is not an entry in 
-# cr_mime_types, then set it as null
-if { ![db_0or1row is_mime_type_valid {
-    select mime_type
-      from cr_mime_types
-    where mime_type = :guessed_file_type }] } {
-      set guessed_file_type [db_null]
-}
-
 # strip off the C:\directories... crud and just get the file name
 if ![regexp {([^/\\]+)$} $upload_file match client_filename] {
     # couldn't find a match