Commits

Jorge Gajon committed c510030

Don't include analytics code by default.

Comments (0)

Files changed (2)

                                (show-banner t)
                                (show-options t)
                                (show-footer t)
-                               (include-analytics-p t)
+                               (include-analytics-p nil)
                                css-files js-files)
                          &body body)
   `(with-html-output-to-string (*standard-output* nil :prologue t :indent nil)
   ;;
   (standard-page (:title "Evalua.mx - La manera más fácil y rápida de crear evaluaciones en línea."
                   :css-files ("index.css?v=20101004")
-                  :show-options nil)
+                  :show-options nil
+                  :include-analytics-p t)
     ;;
     ;; Middle Section, main benefits.
     ;;
       (redirect "/wait-registry")))
   (standard-page (:title "Evalua.mx - La manera más fácil y rápida de crear evaluaciones en línea."
                   :css-files ("index.css?v=20101004")
-                  :show-options nil)
+                  :show-options nil
+                  :include-analytics-p t)
     (:section :id "wait-registry"
       (:h1 "Gracias por tu interés.")
       (:p "Nosotros te avisaremos por correo electrónico tan pronto el
     (redirect "/dashboard"))
   (standard-page (:title "Evalua.mx - La manera más fácil y rápida de crear evaluaciones en línea."
                   :css-files ("index.css?v=20101019")
-                  :show-options nil
-                  :include-analytics-p nil)
+                  :show-options nil)
     (:section :id "login"
      (show-all-messages)
      (:form :method "post" :action "/login"
 (define-url-fn (logout :auth nil)
   (setf (session-value 'authenticated) nil
         (session-value 'username) "")
-  (redirect "/"))
+  (redirect "/"))