[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

Revision: 3505
Author: ksprotte
URL: http://bknr.net/trac/changeset/3505

removed kml-req-count that was used for debugging
U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-18 14:28:25 UTC (rev 3504)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-18 15:19:08 UTC (rev 3505)
@@ -5,9 +5,7 @@
   ((name :allocation :class :initform 'contract-node)
    (timestamp :accessor timestamp :initform 0) ; timestamp initially "very old"
    (placemark-contracts :initform nil :accessor placemark-contracts)
-   (image :initform nil :accessor image)
-   (kml-req-count :initform 0 :accessor kml-req-count)
-   (image-req-count :initform 0 :accessor image-req-count)))
+   (image :initform nil :accessor image)))
 
 (defun contract-node-invalidate-timestamp (node)
   (let ((image (contract-node-find-corresponding-store-image node)))
@@ -155,8 +153,7 @@
                                     :root-element "kml")
     (with-query-params ((lang "en") (path)
                         (rmcpath) (rmcid))
-      (handle-if-node-modified
-        (incf (kml-req-count node))
+      (handle-if-node-modified     
         (setf (hunchentoot:header-out :last-modified)
               (hunchentoot:rfc-1123-date (timestamp node)))
         (let* ((lod (node-lod node))