From achiumenti at common-lisp.net Wed Oct 1 11:56:42 2008
From: achiumenti at common-lisp.net (achiumenti at common-lisp.net)
Date: Wed, 1 Oct 2008 07:56:42 -0400 (EDT)
Subject: [claw-cvs] r98 - trunk/main/claw/src
Message-ID: <20081001115642.23F9A71123@common-lisp.net>
Author: achiumenti
Date: Wed Oct 1 07:56:41 2008
New Revision: 98
Modified:
trunk/main/claw/src/lisplet.lisp
Log:
several bugfixes and enhancements
Modified: trunk/main/claw/src/lisplet.lisp
==============================================================================
--- trunk/main/claw/src/lisplet.lisp (original)
+++ trunk/main/claw/src/lisplet.lisp Wed Oct 1 07:56:41 2008
@@ -258,5 +258,5 @@
(string-not-equal (claw-script-name) login-page-url))
(redirect-to-https (format nil "~a~a" *root-path* (lisplet-login-page lisplet))))
((and sslport (not (= (claw-server-port) sslport)))
- (redirect-to-https (format nil "~a~a" *root-path* (car protected-resource)))
+ (redirect-to-https (format nil "~a/~a" *root-path* (car protected-resource)))
(throw 'handler-done nil)))))))))
From achiumenti at common-lisp.net Wed Oct 1 11:57:13 2008
From: achiumenti at common-lisp.net (achiumenti at common-lisp.net)
Date: Wed, 1 Oct 2008 07:57:13 -0400 (EDT)
Subject: [claw-cvs] r99 - trunk/main/claw-html/src
Message-ID: <20081001115713.1C0E479187@common-lisp.net>
Author: achiumenti
Date: Wed Oct 1 07:57:12 2008
New Revision: 99
Modified:
trunk/main/claw-html/src/components.lisp
trunk/main/claw-html/src/packages.lisp
trunk/main/claw-html/src/tags.lisp
trunk/main/claw-html/src/translators.lisp
Log:
several bugfixes and enhancements
Modified: trunk/main/claw-html/src/components.lisp
==============================================================================
--- trunk/main/claw-html/src/components.lisp (original)
+++ trunk/main/claw-html/src/components.lisp Wed Oct 1 07:57:12 2008
@@ -38,9 +38,9 @@
- OBJ the wcomponent instance
- PAGE-OBJ the wcomponent owner page"))
-(defgeneric component-id-and-value (cinput &key from-request-p)
+(defgeneric component-id-and-value (cinput)
(:documentation "Returns the form component \(such as and