From 0bee80fadf9da6a724f6ec839913331bb7951695 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Sat, 25 Jan 2003 12:19:54 +0000
Subject: [PATCH] Remove bug from POST forms: Let GET-HEADER return only the
 header value.

---
 scheme/httpd/surflets/surflets.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index 07d1501..5676f17 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -83,7 +83,10 @@
     (release-lock *cache-lock*)
     result))
 
-(define get-header assq)
+(define (get-header headers tag)
+  (cond ((assq tag headers) => cdr)
+	(else #f)))
+	 
    
 ;; Will be needed when we handle POST requests.
 (define (get-content-length headers)
@@ -96,7 +99,7 @@
 		 (string->number (substring content-length first-digit 
 					    content-length-len))
 		 ;; (status-code bad-request) req 
-		 `(error "Illegal `Content-length:' header.")))))
+		 (error "Illegal `Content-length:' header.")))))
 	(else 
 	 (error "No Content-length specified for POST data."))))