Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	16 Jan 2003 13:29:27 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-procs.tcl	28 Oct 2003 22:30:23 -0000	1.5
@@ -49,19 +49,21 @@
 ad_proc -private cr_scan_mime_types {} {
     # Get the config file ns_set
     set mime_types [ns_configsection "ns/mimetypes"]
-    set n_mime_types [ns_set size $mime_types]
+    if {![empty_string_p $mime_types]} { 
+        set n_mime_types [ns_set size $mime_types]
 
-    for {set i 0} {$i < $n_mime_types} {incr i} {
-	set extension [ns_set key $mime_types $i]
-	set mime_type [ns_set value $mime_types $i]
-	
-	# special case
-	if {$extension == "NoExtension" || $extension == "Default"} {
-	    continue
-	}
+        for {set i 0} {$i < $n_mime_types} {incr i} {
+            set extension [ns_set key $mime_types $i]
+            set mime_type [ns_set value $mime_types $i]
+            
+            # special case
+            if {$extension == "NoExtension" || $extension == "Default"} {
+                continue
+            }
 
-	ns_log Notice "inserting MIME TYPE - $extension maps to $mime_type"
-	# Insert the mime type
-	db_dml insert_mime_type {}
+            ns_log Notice "cr_scan_mime_types: inserting MIME TYPE - $extension maps to $mime_type"
+            # Insert the mime type
+            db_dml insert_mime_type {}
+        }
     }
 }