use the form element name as key, not the filename

db4
Doug Coleman 2009-01-26 15:49:38 -06:00
parent 43830f5fcc
commit 24599a6437
2 changed files with 2 additions and 2 deletions

View File

@ -20,7 +20,7 @@ IN: mime.multipart.tests
[ t ] [ [ t ] [
mime-test-stream [ upload-separator parse-multipart ] with-input-stream mime-test-stream [ upload-separator parse-multipart ] with-input-stream
"\"up.txt\"" swap key? "\"file1\"" swap key?
] unit-test ] unit-test
[ t ] [ [ t ] [

View File

@ -84,7 +84,7 @@ ERROR: end-of-stream multipart ;
drop drop
] [ ] [
[ [ header>> ] [ filename>> ] [ temp-file>> ] tri mime-file boa ] [ [ header>> ] [ filename>> ] [ temp-file>> ] tri mime-file boa ]
[ filename>> ] [ content-disposition>> "name" swap at ]
[ mime-parts>> set-at ] tri [ mime-parts>> set-at ] tri
] if ; ] if ;