Author: hhubner Date: Tue Jan 22 02:21:24 2008 New Revision: 2385
Modified: branches/bos/projects/bos/web/config.lisp branches/bos/projects/bos/web/startup.lisp Log: Put default for *google-analytics-account* into the right place.
Modified: branches/bos/projects/bos/web/config.lisp ============================================================================== --- branches/bos/projects/bos/web/config.lisp (original) +++ branches/bos/projects/bos/web/config.lisp Tue Jan 22 02:21:24 2008 @@ -8,7 +8,7 @@ (defparameter *worldpay-test-mode* t)
;; Account fuer Google Analytics -(defparameter *google-analytics-account* "UA-3432041-1") +(defparameter *google-analytics-account*)
;; URL für BASE HREFs (defparameter *website-url* "http://create-rainforest.org")
Modified: branches/bos/projects/bos/web/startup.lisp ============================================================================== --- branches/bos/projects/bos/web/startup.lisp (original) +++ branches/bos/projects/bos/web/startup.lisp Tue Jan 22 02:21:24 2008 @@ -17,12 +17,12 @@ (defvar *worldpay-test-mode*)
(defun init (&key (port 8080) - (listeners 1) - (vhosts '("localhost")) - website-directory - website-url - worldpay-test-mode - google-analytics-account) + (listeners 1) + (vhosts '("localhost")) + website-directory + website-url + worldpay-test-mode + (google-analytics-account "UA-3432041-1")) (setf *port* port) (setf *listeners* listeners) (setf *vhosts* vhosts)