[bknr-cvs] r1993 - branches/xml-class-rework/projects/bos/m2

[bknr at bknr.net]

Author: hhubner
Date: 2006-10-14 07:25:47 -0400 (Sat, 14 Oct 2006)
New Revision: 1993

Modified:
   branches/xml-class-rework/projects/bos/m2/m2.lisp
Log:
Additional changes for improved rendering mechanism.


Modified: branches/xml-class-rework/projects/bos/m2/m2.lisp
===================================================================
--- branches/xml-class-rework/projects/bos/m2/m2.lisp	2006-10-14 11:25:17 UTC (rev 1992)
+++ branches/xml-class-rework/projects/bos/m2/m2.lisp	2006-10-14 11:25:47 UTC (rev 1993)
@@ -338,10 +338,11 @@
       (format t "profil['anzahl'] = ~D;~%" (loop for contract in paid-contracts
 								  sum (length (contract-m2s contract))))
       (format t "profil['nachricht'] = '~A';~%" (string-safe (sponsor-info-text sponsor)))
-      (format t "profil['contracts'] = [ ];~%" (store-object-id (first paid-contracts)))
+      (format t "profil['contracts'] = [ ];~%")
       (loop for contract in paid-contracts
 	    do (destructuring-bind (left top width height) (contract-bounding-box contract)
-		 (format t "profil.contracts.push({ left: ~A, top: ~A, width: ~A, height: ~A, date: ~S });~%"
+		 (format t "profil.contracts.push({ id: ~A, left: ~A, top: ~A, width: ~A, height: ~A, date: ~S });~%"
+			 (store-object-id contract)
 			 left top width height
 			 (format-date-time (contract-date contract) :show-time nil)))))))