Fixed marklogic-community#189: don't get port from browser for server…

…-side localhost http-get
grtjn · Jul 7, 2015 · ffc6986 · ffc6986
1 parent aefee7f
commit ffc6986
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/test/test-helper.xqy b/src/test/test-helper.xqy
@@ -314,15 +314,15 @@ declare function helper:easy-url($url) as xs:string
 {
   if (fn:starts-with($url, "http")) then $url
   else
-    fn:concat("http://localhost:", fn:tokenize(xdmp:get-request-header("Host"), ":")[2], if (fn:starts-with($url, "/")) then () else "/", $url)
+    fn:concat("http://localhost:", xdmp:get-request-port(), if (fn:starts-with($url, "/")) then () else "/", $url)
 };
 
 declare function helper:http-get($url as xs:string, $options as node()?)
 {
   let $uri :=
     if (fn:starts-with($url, "http")) then $url
     else
-      fn:concat("http://localhost:", fn:tokenize(xdmp:get-request-header("Host"), ":")[2], if (fn:starts-with($url, "/")) then () else "/", $url)
+      fn:concat("http://localhost:", xdmp:get-request-port(), if (fn:starts-with($url, "/")) then () else "/", $url)
   return
     xdmp:http-get($uri, $options)
 };