Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	30 Dec 2006 01:55:17 -0000	1.25
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	31 Dec 2006 16:47:00 -0000	1.26
@@ -126,10 +126,11 @@
     upvar name name nls_language nls_language folder_id folder_id \
         object_type object_type mime_type mime_type
     my instvar data
-    #my log "--F validate_name ot=$object_type data=[my exists data]"
+    my log "--F validate_name ot=$object_type data=[my exists data]"
     $data instvar package_id
     if {$object_type eq "::xowiki::File" && [$data exists mime_type]} {
       #my get_uploaded_file
+      #my log "--mime validate_name ot=$object_type data=[my exists data] MIME [$data set mime_type]"
       switch -glob -- [$data set mime_type] {
         image/* {set type image}
         default {set type file}
@@ -289,7 +290,7 @@
     } else {
       #my log "--F no upload_file provided [lsort [$data info vars]]"
       if {[$data exists mime_type]} {
-        #my log "   mime_type=[$data set mime_type]"
+        #my log "--mime_type=[$data set mime_type]"
         #my log "   text=[$data set text]"
         regexp {^[^:]+:(.*)$} [$data set name] _ upload_file
         $data set upload_file $upload_file