Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.63 -r1.64
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	11 Jan 2008 17:07:15 -0000	1.63
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	6 Mar 2008 00:12:23 -0000	1.64
@@ -738,11 +738,11 @@
     # we have to do this here because we create the object before
     # calling cr_import_content
     
-#    if {[content::type::content_type_p -mime_type $mime_type -content_type "image"]} {
-#        set content_type image
-#    } else {
+    if {[content::type::content_type_p -mime_type $mime_type -content_type "image"]} {
+        set content_type image
+    } else {
         set content_type file_storage_object
-#    }
+    }
 
     if {$item_id eq ""} {
 	set item_id [db_nextval acs_object_id_seq]
@@ -751,12 +751,6 @@
     db_transaction {
 	if {![db_string item_exists ""]} {
 	    
-	    if {$indbp} {
-		set storage_type ""
-	    } else {
-		set storage_type "file"
-	    }
-	    
 	    set item_id [content::item::new \
 			     -item_id $item_id \
 			     -parent_id $parent_id \