use the form element name as key, not the filename

diff --git a/basis/mime/multipart/multipart-tests.factor b/basis/mime/multipart/multipart-tests.factor
index f4156fac9e848dd0de90b7b102ddb90376764e9e..b6d76c328a3295e6acb8d486fd6caee5d69f4c32 100644 (file)
--- a/basis/mime/multipart/multipart-tests.factor
+++ b/basis/mime/multipart/multipart-tests.factor
@@ -20,7 +20,7 @@ IN: mime.multipart.tests
 
 [ t ] [
     mime-test-stream [ upload-separator parse-multipart ] with-input-stream
-    "\"up.txt\"" swap key?
+    "\"file1\"" swap key?
 ] unit-test
 
 [ t ] [

diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 1b5ce74620592faf7e2386d6b121b12134dfddaf..b25c78c198c953dfe5224b3ab2783ca67c3d1c9e 100755 (executable)
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -84,7 +84,7 @@ ERROR: end-of-stream multipart ;
         drop
     ] [
         [ [ header>> ] [ filename>> ] [ temp-file>> ] tri mime-file boa ]
-        [ filename>> ]
+        [ content-disposition>> "name" swap at ]
         [ mime-parts>> set-at ] tri
     ] if ;