[bknr-cvs] r2385 - branches/bos/projects/bos/web

[hhubner at common-lisp.net]

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)