Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	27 Sep 2001 22:48:16 -0000	1.1
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.xql	8 Nov 2002 20:57:52 -0000	1.2
@@ -16,4 +16,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="cr_scan_mime_types.insert_mime_type">
+      <querytext>
+	    insert into cr_mime_types
+	    (mime_type, file_extension)
+	    select
+	    :mime_type, :extension
+	    from dual
+	    where not exists (select 1 from cr_mime_types where mime_type = :mime_type)
+      </querytext>
+</fullquery>
+
 </queryset>