Index: ncgi.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ncgi/ncgi.tcl,v
retrieving revision 1.38
diff -u -r1.38 ncgi.tcl
--- ncgi.tcl	4 May 2004 22:28:34 -0000	1.38
+++ ncgi.tcl	4 Feb 2005 12:18:48 -0000
@@ -39,7 +39,9 @@
 
     # This is the content-type which affects how the query is parsed
 
+    variable mediatype
     variable contenttype
+    variable mediaparams
 
     # value is an array of parsed query data.  Each array element is a list
     # of values, and the array index is the form element name.
@@ -228,11 +230,16 @@
 
 proc ::ncgi::type {} {
     global env
+    variable mediatype
     variable contenttype
+    variable mediaparams
 
     if {![info exists contenttype]} {
 	if {[info exists env(CONTENT_TYPE)]} {
-	    set contenttype $env(CONTENT_TYPE)
+	    set mediatype $env(CONTENT_TYPE)
+	    set lst [ parseMimeValue $mediatype ]
+	    set contenttype [ lindex $lst 0 ]
+	    set mediaparams [ lrange $lst 1 end ]
 	} else {
 	    return ""
 	}
