Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	20 Nov 2008 23:24:57 -0000	1.28
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	9 Mar 2010 11:49:46 -0000	1.29
@@ -381,17 +381,17 @@
 }
 
 ad_proc -public cr_create_mime_type { 
-    -extension
-    -mime_type
-    -description
+    -mime_type:required
+    {-extension ""}
+    {-description ""}
 } { 
 
     Creates a mime type if it does not exist.  Also maps extension to
     mime_type (unless the extension is already mapped to another mime
-    type).
+    type or extension is empty).
 
-    @param extension the default extension for the given mime type
     @param mime_type the mime_type to create
+    @param extension the default extension for the given mime type
     @param a plain text description of the mime type (< 200 characters)
 
     @author Jeff Davis (davis@xarg.net)
@@ -412,13 +412,15 @@
                           where mime_type = :mime_type)
     }
     
-    db_dml maybe_map_extension { 
-        insert into cr_extension_mime_type_map (extension, mime_type) 
-        select :extension, :mime_type 
-        from dual 
-        where not exists (select 1 
+    if { $extension ne "" } {
+        db_dml maybe_map_extension { 
+            insert into cr_extension_mime_type_map (extension, mime_type) 
+            select :extension, :mime_type 
+            from dual 
+            where not exists (select 1 
                           from cr_extension_mime_type_map 
                           where extension = :extension)
+        }
     }
 }