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)))))))