bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

[bknr-cvs] hans changed trunk/projects/bos/m2/poi.lisp
by BKNR Commits 27 Nov '08

27 Nov '08

Revision: 4086 Author: hans URL: http://bknr.net/trac/changeset/4086 add poi-as-json function. U trunk/projects/bos/m2/poi.lisp Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-11-27 09:37:31 UTC (rev 4085) +++ trunk/projects/bos/m2/poi.lisp 2008-11-27 10:05:53 UTC (rev 4086) @@ -336,15 +336,18 @@ "url" (poi-movie-url movie) "timestamp" (format-date-time (poi-medium-creation-time movie) :mail-style t))) +(defun poi-as-json (poi language) + (let ((*language* language)) + (json:with-object () + (json-encode poi) + (json:with-object-element ("media") + (json:with-array () + (dolist (medium (poi-media poi)) + (json:with-object () + (json-encode medium)))))))) + (defun pois-as-json (language) - (let ((*language* language)) - (json:with-array () - (dolist (poi (class-instances 'poi)) - (when (poi-complete poi language) - (json:with-object () - (json-encode poi) - (json:with-object-element ("media") - (json:with-array () - (dolist (medium (poi-media poi)) - (json:with-object () - (json-encode medium))))))))))) + (json:with-array () + (dolist (poi (class-instances 'poi)) + (when (poi-complete poi language) + (poi-as-json poi language)))))

1 0

[bknr-cvs] hans changed trunk/projects/bos/
by BKNR Commits 27 Nov '08

27 Nov '08

Revision: 4085 Author: hans URL: http://bknr.net/trac/changeset/4085 Add JSON encoding for POIs U trunk/projects/bos/m2/bos.m2.asd U trunk/projects/bos/m2/poi.lisp U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/m2/bos.m2.asd =================================================================== --- trunk/projects/bos/m2/bos.m2.asd 2008-11-27 09:36:39 UTC (rev 4084) +++ trunk/projects/bos/m2/bos.m2.asd 2008-11-27 09:37:31 UTC (rev 4085) @@ -5,7 +5,8 @@ (asdf:defsystem :bos.m2 :depends-on (:bknr.datastore :bknr.modules :cl-smtp :cl-mime :kmrcl :iterate :arnesi - :cl-pdf :cl-pdf-parser :screamer :cl-fad) + :cl-pdf :cl-pdf-parser :screamer :cl-fad + :yason) :components ((:file "packages") (:file "geo-utm" :depends-on ("packages")) (:file "geometry" :depends-on ("packages")) Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-11-27 09:36:39 UTC (rev 4084) +++ trunk/projects/bos/m2/poi.lisp 2008-11-27 09:37:31 UTC (rev 4085) @@ -84,7 +84,9 @@ ;;; poi-movie (defpersistent-class poi-movie (poi-medium) ((url :accessor poi-movie-url :initarg :url :initform nil) - (created :initform (get-universal-time) :reader poi-medium-creation-time))) + (created :initform (error "need :created initarg when creating poi-medium") + :initarg :created + :reader poi-medium-creation-time))) ;;; poi (defpersistent-class poi (textual-attributes-mixin) @@ -294,3 +296,55 @@ (warn "~s has a url of ~s" movie (poi-movie-url movie)))))) (mapc #'poi-sanity-check (class-instances 'poi)) (values))) + +(defvar *language* "en" + "Current language for JSON encoding") + +(defmethod json:encode ((object symbol) &optional stream) + (json:encode (string-downcase (symbol-name object)) stream)) + +(defgeneric json-encode (object) + (:method-combination progn)) + +(defmethod json-encode progn ((object store-object)) + (json:encode-object-element "id" (store-object-id object))) + +(defmethod json-encode progn ((blob blob)) + (json:encode-object-elements + "type" (blob-type blob) + "timestamp" (format-date-time (blob-timestamp blob) :mail-style t))) + +(defmethod json-encode progn ((image store-image)) + (json:encode-object-elements + "name" (store-image-name image) + "width" (store-image-width image) + "height" (store-image-height image))) + +(defmethod json-encode progn ((object bos.m2::textual-attributes-mixin)) + (dolist (field '(title subtitle description)) + (let ((string (slot-string object field *language*))) + (unless (equal "" string) + (json:encode-object-element field string))))) + +(defmethod json-encode progn ((medium poi-medium)) + (json:encode-object-element + "mediumType" + (cl-ppcre:regex-replace "^poi-" (string-downcase (class-name (class-of medium))) ""))) + +(defmethod json-encode progn ((movie poi-movie)) + (json:encode-object-elements + "url" (poi-movie-url movie) + "timestamp" (format-date-time (poi-medium-creation-time movie) :mail-style t))) + +(defun pois-as-json (language) + (let ((*language* language)) + (json:with-array () + (dolist (poi (class-instances 'poi)) + (when (poi-complete poi language) + (json:with-object () + (json-encode poi) + (json:with-object-element ("media") + (json:with-array () + (dolist (medium (poi-media poi)) + (json:with-object () + (json-encode medium))))))))))) Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-11-27 09:36:39 UTC (rev 4084) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-11-27 09:37:31 UTC (rev 4085) @@ -346,7 +346,7 @@ (flet ((make-new-medium (new-medium-type poi) (case new-medium-type (poi-movie - (make-instance 'poi-movie :poi poi :url (query-param "url"))) + (make-instance 'poi-movie :poi poi :url (query-param "url") :created (get-universal-time))) (otherwise (let ((upload (request-uploaded-file "image-file"))) (unless upload @@ -683,3 +683,4 @@ (store-object-id (nth image-index (poi-sat-images poi))) imageproc-arguments)) (error "image index ~a out of bounds for poi ~a" image-index poi))))) +

1 0

[bknr-cvs] hans changed trunk/libraries/yason/
by BKNR Commits 27 Nov '08

27 Nov '08

Revision: 4084 Author: hans URL: http://bknr.net/trac/changeset/4084 Add encode-array-elementS and encode-object-elementS convenience functions. U trunk/libraries/yason/encode.lisp U trunk/libraries/yason/package.lisp Modified: trunk/libraries/yason/encode.lisp =================================================================== --- trunk/libraries/yason/encode.lisp 2008-11-26 21:28:07 UTC (rev 4083) +++ trunk/libraries/yason/encode.lisp 2008-11-27 09:36:39 UTC (rev 4084) @@ -176,6 +176,11 @@ (next-aggregate-element) (encode object (output-stream *json-output*))) +(defun encode-array-elements (&rest objects) + "Encode OBJECTS, a list of JSON encodeable object, as array elements." + (dolist (object objects) + (encode-array-element object))) + (defun encode-object-element (key value) "Encode KEY and VALUE as object element to the last JSON object opened with WITH-OBJECT in the dynamic context. KEY and VALUE are @@ -187,6 +192,11 @@ (encode value (output-stream *json-output*)) value) +(defun encode-object-elements (&rest elements) + "Encode plist ELEMENTS as object elements." + (loop for (key value) on elements by #'cddr + do (encode-object-element key value))) + (defmacro with-object-element ((key) &body body) "Open a new encoding context to encode a JSON object element. KEY is the key of the element. The value will be whatever BODY Modified: trunk/libraries/yason/package.lisp =================================================================== --- trunk/libraries/yason/package.lisp 2008-11-26 21:28:07 UTC (rev 4083) +++ trunk/libraries/yason/package.lisp 2008-11-27 09:36:39 UTC (rev 4084) @@ -30,7 +30,9 @@ #:no-json-output-context #:with-array #:encode-array-element + #:encode-array-elements #:with-object #:encode-object-element + #:encode-object-elements #:with-object-element #:with-response))

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/
by BKNR Commits 26 Nov '08

26 Nov '08

Revision: 4083 Author: hans URL: http://bknr.net/trac/changeset/4083 merge 4081 from trunk U deployed/bos/projects/bos/m2/mail-generator.lisp U deployed/bos/projects/bos/web/sponsor-handlers.lisp Modified: deployed/bos/projects/bos/m2/mail-generator.lisp =================================================================== --- deployed/bos/projects/bos/m2/mail-generator.lisp 2008-11-26 21:26:40 UTC (rev 4082) +++ deployed/bos/projects/bos/m2/mail-generator.lisp 2008-11-26 21:28:07 UTC (rev 4083) @@ -202,8 +202,10 @@ (defun lookup-element-name (element-name) "Given an ELEMENT-NAME (which may be either a form field name or a name of a post parameter from worldpay), return the common XML element name" - (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) - element-name)) + (cl-ppcre:regex-replace-all "(?i)[^-a-z0-9]" + (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) + element-name) + "")) (defun make-contract-xml-part (id params) (make-instance 'text-mime Modified: deployed/bos/projects/bos/web/sponsor-handlers.lisp =================================================================== --- deployed/bos/projects/bos/web/sponsor-handlers.lisp 2008-11-26 21:26:40 UTC (rev 4082) +++ deployed/bos/projects/bos/web/sponsor-handlers.lisp 2008-11-26 21:28:07 UTC (rev 4083) @@ -83,8 +83,6 @@ "Download complete sponsor DB in XML format"))) (:tr ((:th :colspan "2" :align "left") (:h2 "Create sponsor"))) - (:tr (:td "Date (DD.MM.YYYY)") - (:td (text-field "date" :size 10 :value (format-date-time (get-universal-time) :show-time nil)))) (:tr (:td "Number of square meters") (:td (text-field "numsqm" :size 5))) (:tr (:td "Country code (2 chars)")

1 0

[bknr-cvs] hans changed trunk/projects/bos/
by BKNR Commits 26 Nov '08

26 Nov '08

Revision: 4082 Author: hans URL: http://bknr.net/trac/changeset/4082 Fix sponsor XML problems. U trunk/projects/bos/m2/mail-generator.lisp U trunk/projects/bos/web/sponsor-handlers.lisp Modified: trunk/projects/bos/m2/mail-generator.lisp =================================================================== --- trunk/projects/bos/m2/mail-generator.lisp 2008-11-25 12:51:47 UTC (rev 4081) +++ trunk/projects/bos/m2/mail-generator.lisp 2008-11-26 21:26:40 UTC (rev 4082) @@ -202,8 +202,10 @@ (defun lookup-element-name (element-name) "Given an ELEMENT-NAME (which may be either a form field name or a name of a post parameter from worldpay), return the common XML element name" - (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) - element-name)) + (cl-ppcre:regex-replace-all "(?i)[^-a-z0-9]" + (or (cdr (find element-name *common-element-names* :key #'car :test #'equal)) + element-name) + "")) (defun make-contract-xml-part (id params) (make-instance 'text-mime Modified: trunk/projects/bos/web/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/web/sponsor-handlers.lisp 2008-11-25 12:51:47 UTC (rev 4081) +++ trunk/projects/bos/web/sponsor-handlers.lisp 2008-11-26 21:26:40 UTC (rev 4082) @@ -83,8 +83,6 @@ "Download complete sponsor DB in XML format"))) (:tr ((:th :colspan "2" :align "left") (:h2 "Create sponsor"))) - (:tr (:td "Date (DD.MM.YYYY)") - (:td (text-field "date" :size 10 :value (format-date-time (get-universal-time) :show-time nil)))) (:tr (:td "Number of square meters") (:td (text-field "numsqm" :size 5))) (:tr (:td "Country code (2 chars)")

1 0

[bknr-cvs] hans changed trunk/projects/bos/payment-website/templates/de/verschenken.xml
by BKNR Commits 25 Nov '08

25 Nov '08

Revision: 4081 Author: hans URL: http://bknr.net/trac/changeset/4081 Correct typo. U trunk/projects/bos/payment-website/templates/de/verschenken.xml Modified: trunk/projects/bos/payment-website/templates/de/verschenken.xml =================================================================== --- trunk/projects/bos/payment-website/templates/de/verschenken.xml 2008-11-25 10:35:24 UTC (rev 4080) +++ trunk/projects/bos/payment-website/templates/de/verschenken.xml 2008-11-25 12:51:47 UTC (rev 4081) @@ -1,39 +1,41 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" - "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel - template="toplevel_extra" - title="REGENWALD für SAMBOJA LESTARI - Verschenken" - xmlns="http://www.w3.org/1999/xhtml" - xmlns:bknr="http://bknr.net" - xmlns:bos="http://headcraft.de/bos" - > - <p class="text_content"> + template="toplevel_extra" + title="REGENWALD für SAMBOJA LESTARI - Verschenken" + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + > + <p class="text_content"> - <p>Suchen Sie ein sinnvolles Geschenk?</p> + <p>Suchen Sie ein sinnvolles Geschenk?</p> - <p><b>Verschenken Sie Quadratmeter wiederentstehenden Regenwaldes!</b></p> + <p><b>Verschenken Sie Quadratmeter wiederentstehenden Regenwaldes!</b></p> -<p> -Der/Die Beschenkte erhält eine attraktive Urkunde und persönliche -Zugangscodes, um "seine/ihre" Quadratmeter in Borneo leicht orten zu -können. Zudem kann er/sie den Quadratmetern einen Grußtext anhängen, -der für jeden Besucher einsehbar ist. -</p> -<p> -Auch Sie erhalten die gleichen Zugangscodes und können z.B. einen -Geburtstagsgruß "auf" den verschenkten Quadratmetern -hinterlassen. -</p> -<p> -Setzen Sie das Häckchen und fahren Sie wie gewünscht fort. -</p> -<p> -Unmittelbar nach erfolgter Zahlung (wenige Sekunden später) werden Sie -nach Namen und Versandadresse der zu Beschenkenden Person gefragt. -</p> -<p> -Der Geschenkservice ist aus administrativen Gründen leider nur bei Online-Spenden ab 90 Euro möglich. -</p> - </p> + <p> + Der/Die Beschenkte erhält eine attraktive Urkunde und persönliche + Zugangscodes, um "seine/ihre" Quadratmeter in Borneo leicht orten zu + können. Zudem kann er/sie den Quadratmetern einen Grußtext anhängen, + der für jeden Besucher einsehbar ist. + </p> + <p> + Auch Sie erhalten die gleichen Zugangscodes und können z.B. einen + Geburtstagsgruß "auf" den verschenkten Quadratmetern + hinterlassen. + </p> + <p> + Setzen Sie das Häkchen und fahren Sie wie gewünscht fort. + </p> + <p> + Unmittelbar nach erfolgter Zahlung (wenige Sekunden später) + werden Sie nach Namen und Versandadresse der zu beschenkenden + Person gefragt. + </p> + <p> + Der Geschenkservice ist aus administrativen Gründen leider nur + bei Online-Spenden ab 90 Euro möglich. + </p> + </p> </bknr:toplevel>

1 0

[bknr-cvs] hans changed trunk/projects/bos/payment-website/templates/
by BKNR Commits 25 Nov '08

25 Nov '08

Revision: 4080 Author: hans URL: http://bknr.net/trac/changeset/4080 Textaenderungen, Willie ist nicht mehr Vorsitzender von BOS. U trunk/projects/bos/payment-website/templates/de/headline2.xml U trunk/projects/bos/payment-website/templates/en/headline2.xml Modified: trunk/projects/bos/payment-website/templates/de/headline2.xml =================================================================== --- trunk/projects/bos/payment-website/templates/de/headline2.xml 2008-11-20 20:04:58 UTC (rev 4079) +++ trunk/projects/bos/payment-website/templates/de/headline2.xml 2008-11-25 10:35:24 UTC (rev 4080) @@ -1,87 +1,94 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" - "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel - template="toplevel_main" - title="REGENWALD für SAMBOJA LESTARI" - xmlns="http://www.w3.org/1999/xhtml" - xmlns:bknr="http://bknr.net" - xmlns:bos="http://headcraft.de/bos" - > + template="toplevel_main" + title="REGENWALD für SAMBOJA LESTARI" + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + > <bos:set-cachable/> - <div id="content_main"> - <div id="textbox_content_bigger"> - <table border="0" cellpadding="0" cellspacing="0"> - <tr> - <td colspan="2"> - <span class="headline"> - Der Schlüssel zum Erfolg - die lokale Bevölkerung - </span> - </td> - <td align="center" valign="top"> - <img src="../images/pfeil_back.gif" width="10" height="9" alt="" /> - <a href="#" onclick="history.back()" class="titlegray"> - zurück - </a> - </td> - </tr> - <tr> - <td height="6"><img src="../images/trans.gif" width="120" height="10" alt="" /> - </td> - <td><img src="../images/trans.gif" width="130" height="6" alt="" /> - </td> - <td width="150"><img src="../images/trans.gif" width="140" height="6" alt="" /> - </td> - </tr> - <tr> - <td valign="top"> - Der Naturschutz und die Bedürfnisse der Bevölkerung dürfen sich nicht im Wege stehen. - <br /><br /> - Das Naturreservat Samboja Lestari bietet der lokalen Bevölkerung ein gesichertes Einkommen, Gesundheit - und Bildung. Die Menschen werden in alle Phasen des Projektes mit einbezogen. Landwirtschaft, Baumschule, - Kompostproduktion, Aufforstung, Anpflanzung, Forschung und Aufbau der Infrastruktur bieten sichere Arbeitsplätze. - <br /> - </td> - <td align="right" colspan="2"><img src="../images/pic_headline2_big.jpg" width="256" height="150" border="0" alt="" /></td> - </tr> - <tr> - <td height="10"> - </td> - </tr> - <tr> - <td colspan="3"> - <b>"Auf diese Weise wird den Menschen eine Alternative geboten, und sie brauchen den Wald nicht mehr zu roden. So können - wir der Welt zeigen, dass Natur und Menschen zusammenleben können und einander nicht auszuschließen brauchen."</b> - <br /> - sagt Dr. Willie Smits, Vorsitzender von BOS Indonesien. - <br /> - </td> - <td></td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td colspan="3"> - </td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td colspan="3"> - Die Sicherheit des Naturschutzreservates ist durch die Akzeptanz der indonesischen Bevölkerung gewährleistet. - Der Erfolg des Projektes garantiert einen besseren Lebensstandard und umgekehrt. - </td> - </tr> - <tr><td height="16"></td></tr> - </table> - </div> - </div> + <div id="content_main"> + <div id="textbox_content_bigger"> + <table border="0" cellpadding="0" cellspacing="0"> + <tr> + <td colspan="2"> + <span class="headline"> + Der Schlüssel zum Erfolg - die lokale Bevölkerung + </span> + </td> + <td align="center" valign="top"> + <img src="../images/pfeil_back.gif" width="10" height="9" alt="" /> + <a href="#" onclick="history.back()" class="titlegray"> + zurück + </a> + </td> + </tr> + <tr> + <td height="6"><img src="../images/trans.gif" width="120" height="10" alt="" /> + </td> + <td><img src="../images/trans.gif" width="130" height="6" alt="" /> + </td> + <td width="150"><img src="../images/trans.gif" width="140" height="6" alt="" /> + </td> + </tr> + <tr> + <td valign="top"> + Der Naturschutz und die Bedürfnisse der Bevölkerung dürfen + sich nicht im Wege stehen. <br /><br /> Das Naturreservat + Samboja Lestari bietet der lokalen Bevölkerung ein + gesichertes Einkommen, Gesundheit und Bildung. Die + Menschen werden in alle Phasen des Projektes mit + einbezogen. Landwirtschaft, Baumschule, Kompostproduktion, + Aufforstung, Anpflanzung, Forschung und Aufbau der + Infrastruktur bieten sichere Arbeitsplätze. <br /> + </td> + <td align="right" colspan="2"><img src="../images/pic_headline2_big.jpg" width="256" height="150" border="0" alt="" /></td> + </tr> + <tr> + <td height="10"> + </td> + </tr> + <tr> + <td colspan="3"> + <b>"Auf diese Weise wird den Menschen eine Alternative + geboten, und sie brauchen den Wald nicht mehr zu + roden. So können wir der Welt zeigen, dass Natur und + Menschen zusammenleben können und einander nicht + auszuschließen brauchen." + </b> + <br /> sagt Dr. Willie Smits, Gründer der BOS Foundation + in Indonesien. <br /> + </td> + <td></td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td colspan="3"> + </td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td colspan="3"> + Die Sicherheit des Naturschutzreservates ist durch die + Akzeptanz der indonesischen Bevölkerung gewährleistet. + Der Erfolg des Projektes garantiert einen besseren + Lebensstandard und umgekehrt. + </td> + </tr> + <tr><td height="16"></td></tr> + </table> + </div> + </div> </bknr:toplevel> Modified: trunk/projects/bos/payment-website/templates/en/headline2.xml =================================================================== --- trunk/projects/bos/payment-website/templates/en/headline2.xml 2008-11-20 20:04:58 UTC (rev 4079) +++ trunk/projects/bos/payment-website/templates/en/headline2.xml 2008-11-25 10:35:24 UTC (rev 4080) @@ -1,83 +1,86 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" - "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel - template="toplevel_main" - title="RAINFOREST for SAMBOJA LESTARI" - xmlns="http://www.w3.org/1999/xhtml" - xmlns:bknr="http://bknr.net" - xmlns:bos="http://headcraft.de/bos" - > + template="toplevel_main" + title="RAINFOREST for SAMBOJA LESTARI" + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + > <bos:set-cachable/> - <div id="content_main"> - <div id="textbox_content_bigger"> - <table border="0" cellpadding="0" cellspacing="0"> - <tr> - <td colspan="2"> - <span class="headline"> - The key to success - the local population - </span> - </td> - <td align="center" valign="top"> - <img src="../images/pfeil_back.gif" width="10" height="9" alt="" /> - <a href="#" onclick="history.back()" class="titlegray"> - back - </a> - </td> - </tr> - <tr> - <td height="6"><img src="../images/trans.gif" width="120" height="10" alt="" /> - </td> - <td><img src="../images/trans.gif" width="130" height="6" alt="" /> - </td> - <td width="150"><img src="../images/trans.gif" width="140" height="6" alt="" /> - </td> - </tr> - <tr> - <td valign="top"> - Nature conservation and the needs of the population must not be in conflict with each other. - <br /><br /> - The nature reserve Samboja Lestari offers a safe income, health and education to the local population. The people will be included into all phases of the project. Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. - <br /> - </td> - <td align="right" colspan="2"><img src="../images/pic_headline2_big.jpg" width="256" height="150" border="0" alt="" /></td> - </tr> - <tr> - <td height="10"> - </td> - </tr> - <tr> - <td colspan="3"> - <b>"This offers an alternative to the people, so that they don't have to clear the forest any more. Thus we can show the world, that nature and humans are able to coexist and don't have to exclude each other."</b> - <br /> - says Dr. Willie Smits, chairman of BOS Indonesia. - <br /> - </td> - <td></td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td colspan="3"> - </td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td height="6"> - </td> - </tr> - <tr> - <td colspan="3"> - The safety of the nature reserve is guaranteed by the acceptance through the Indonesian population. The success of the project guarantees a better standard of living and vice versa. - </td> - </tr> - <tr><td height="16"></td></tr> - </table> - </div> - </div> + <div id="content_main"> + <div id="textbox_content_bigger"> + <table border="0" cellpadding="0" cellspacing="0"> + <tr> + <td colspan="2"> + <span class="headline"> + The key to success - the local population + </span> + </td> + <td align="center" valign="top"> + <img src="../images/pfeil_back.gif" width="10" height="9" alt="" /> + <a href="#" onclick="history.back()" class="titlegray"> + back + </a> + </td> + </tr> + <tr> + <td height="6"><img src="../images/trans.gif" width="120" height="10" alt="" /> + </td> + <td><img src="../images/trans.gif" width="130" height="6" alt="" /> + </td> + <td width="150"><img src="../images/trans.gif" width="140" height="6" alt="" /> + </td> + </tr> + <tr> + <td valign="top"> + Nature conservation and the needs of the population must not be in conflict with each other. + <br /><br /> + The nature reserve Samboja Lestari offers a safe income, health and education to the local population. The people will be included into all phases of the project. Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. + <br /> + </td> + <td align="right" colspan="2"><img src="../images/pic_headline2_big.jpg" width="256" height="150" border="0" alt="" /></td> + </tr> + <tr> + <td height="10"> + </td> + </tr> + <tr> + <td colspan="3"> + <b> + "This offers an alternative to the people, so that they + don't have to clear the forest any more. Thus we can show + the world, that nature and humans are able to coexist and + don't have to exclude each other." + </b> <br /> says Dr. Willie Smits, founder of BOS + Indonesia. <br /> + </td> + <td></td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td colspan="3"> + </td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td height="6"> + </td> + </tr> + <tr> + <td colspan="3"> + The safety of the nature reserve is guaranteed by the acceptance through the Indonesian population. The success of the project guarantees a better standard of living and vice versa. + </td> + </tr> + <tr><td height="16"></td></tr> + </table> + </div> + </div> </bknr:toplevel>

1 0

[bknr-cvs] hans changed deployed/bos/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4079 Author: hans URL: http://bknr.net/trac/changeset/4079 deployed version of bos application. A deployed/bos/ Copied: deployed/bos (from rev 4016, trunk)

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4078 Author: hans URL: http://bknr.net/trac/changeset/4078 re-branch part 2 A deployed/lisp-ecoop/ Copied: deployed/lisp-ecoop (from rev 3475, trunk)

1 0

[bknr-cvs] hans changed deployed/lisp-ecoop/
by BKNR Commits 20 Nov '08

20 Nov '08

Revision: 4077 Author: hans URL: http://bknr.net/trac/changeset/4077 re-branch D deployed/lisp-ecoop/

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs