Index: openacs-4/contrib/packages/populate/tcl/populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/populate/tcl/populate-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	27 Jan 2003 20:23:15 -0000	1.1
+++ openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	17 Feb 2003 03:04:55 -0000	1.2
@@ -59,12 +59,8 @@
 } {
     set upload_filename [template::util::file::get_property filename $upload_file]
     set tmp_filename [template::util::file::get_property tmp_filename $upload_file]
+    set mime_type [cr_filename_to_mime_type -create $upload_file]
 
-    # 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_filename]
-
     for { set i 1 } { $i <= $width } { incr i } {
 
          # Build this folder