mirrors/EWF
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Used object test

Browse Source
This commit is contained in:
Jocelyn Fiat
2011-10-19 00:40:04 +02:00
parent 5f492d6fb6
commit eaa99c9c61
1 changed files with 2 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
library/server/request/router/src/misc/request_format_utility.e
View File

@@ -11,17 +11,14 @@ feature -- Access
accepted_content_types (req: WGI_REQUEST): detachable ARRAYED_LIST [READABLE_STRING_8] accepted_content_types (req: WGI_REQUEST): detachable ARRAYED_LIST [READABLE_STRING_8]
local local
l_accept: detachable READABLE_STRING_32
s: STRING_8 s: STRING_8
q: READABLE_STRING_8 q: READABLE_STRING_8
p: INTEGER p: INTEGER
lst: LIST [READABLE_STRING_8] lst: LIST [READABLE_STRING_8]
qs: QUICK_SORTER [READABLE_STRING_8] qs: QUICK_SORTER [READABLE_STRING_8]
do do
l_accept := req.http_accept --TEST if attached ("text/html,application/xhtml+xml;q=0.6,application/xml;q=0.2,text/plain;q=0.5,*/*;q=0.8") as l_accept then
--TEST l_accept := "text/html,application/xhtml+xml;q=0.6,application/xml;q=0.2,text/plain;q=0.5,*/*;q=0.8" if attached req.http_accept as l_accept then
if l_accept /= Void then
lst := l_accept.as_string_8.split (',') lst := l_accept.as_string_8.split (',')
create Result.make (lst.count) create Result.make (lst.count)
from from