- added method 'param_all' to request objects

diff --git a/helm/DEVEL/ocaml-http/debian/changelog b/helm/DEVEL/ocaml-http/debian/changelog
index a360381ffa46f3679248a4a0c9c8b524a644215d..6c6e399a7269445b713c9222fb65ece4ebecd0ef 100644 (file)
--- a/helm/DEVEL/ocaml-http/debian/changelog
+++ b/helm/DEVEL/ocaml-http/debian/changelog
@@ -1,3 +1,10 @@
+ocaml-http (0.0.6) unstable; urgency=low
+
+  * Added support for multiple binding of the same parameter in request
+    objects (new method: 'param_all')
+
+ -- Stefano Zacchiroli <zack@debian.org>  Mon, 25 Nov 2002 11:04:49 +0100
+
 ocaml-http (0.0.5) unstable; urgency=low
 
   * Fixed bug for HTTP encoded GET parameters which contain '?' or '&'

diff --git a/helm/DEVEL/ocaml-http/http_request.ml b/helm/DEVEL/ocaml-http/http_request.ml
index 91bc98a67ac5138fe8a001671037b0e8c9bb4449..c95d198469a82485b1dd2b83cf5c8310cac2010e 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_request.ml
+++ b/helm/DEVEL/ocaml-http/http_request.ml
@@ -39,6 +39,7 @@ class request ~path ~params =
         Hashtbl.find params_tbl name
       with Not_found ->
         raise (Param_not_found name)
+    method param_all name = List.rev (Hashtbl.find_all params_tbl name)
     method params = params
   end
 

diff --git a/helm/DEVEL/ocaml-http/http_types.ml b/helm/DEVEL/ocaml-http/http_types.ml
index 70c8fce63825b8036dd336c89f55ba9d9740ade3..18e2a88ab43851a5be00efc900afbdcc4d7dbd4c 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_types.ml
+++ b/helm/DEVEL/ocaml-http/http_types.ml
@@ -156,5 +156,6 @@ class type request =
     method uri: string
     method path: string
     method param: string -> string
+    method param_all: string -> string list
     method params: (string * string) list
   end