bknr-cvs December 2006

bknr-cvs@common-lisp.net

1 participants
28 discussions

[bknr-cvs] r2110 - trunk/projects/bos/payment-website/static
by bknr＠bknr.net 07 Dec '06

07 Dec '06

Author: hhubner Date: 2006-12-07 15:01:22 -0500 (Thu, 07 Dec 2006) New Revision: 2110 Added: trunk/projects/bos/payment-website/static/bos_da.js trunk/projects/bos/payment-website/static/profil_da.js Log: Copy english versions of javascript files to a to-be danish version. Copied: trunk/projects/bos/payment-website/static/bos_da.js (from rev 2109, trunk/projects/bos/payment-website/static/bos_en.js) Copied: trunk/projects/bos/payment-website/static/profil_da.js (from rev 2109, trunk/projects/bos/payment-website/static/profil_en.js)

1 0

[bknr-cvs] r2109 - in trunk/projects/bos/payment-website: infosystem/da templates/da
by bknr＠bknr.net 07 Dec '06

07 Dec '06

Author: hhubner Date: 2006-12-07 14:56:32 -0500 (Thu, 07 Dec 2006) New Revision: 2109 Modified: trunk/projects/bos/payment-website/infosystem/da/messages.js trunk/projects/bos/payment-website/templates/da/archive.xml trunk/projects/bos/payment-website/templates/da/bestellung.xml trunk/projects/bos/payment-website/templates/da/certificat.xml trunk/projects/bos/payment-website/templates/da/privacy.xml trunk/projects/bos/payment-website/templates/da/quittung.xml trunk/projects/bos/payment-website/templates/da/ueberweisung.xml Log: Latest version of the danish site. Modified: trunk/projects/bos/payment-website/infosystem/da/messages.js =================================================================== --- trunk/projects/bos/payment-website/infosystem/da/messages.js 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/infosystem/da/messages.js 2006-12-07 19:56:32 UTC (rev 2109) @@ -1,10 +1,11 @@ document.messages = { 'Anzahl Sponsoren': 'Antal sponsorer', 'Anzahl verkaufte m²': 'Antal solgte kvardratmeter ', - 'Das Laden des Panoramas dauert einen Moment und benÃ¶tigt Java in Ihrem Browser.<br /><br />Klicken und Ziehen Sie mit der Maus, um sich im Panorama umzusehen!': 'Det tager lidt tid for oversigtskortet at loade og Java er nødvendigt<br /><br />Klik og træk med din mus for at se dig omkring i billedet.', - 'Diese Anwendung benÃ¶tigt Cookies, um zu funktionieren. Bitte schalten Sie Cookies in Ihrem Browser ein.': 'Denne funktion foresætter at cookies er slået fra i din browser. Slå venligst cookies-funktionen fra og prøv igen.', + 'Das Laden des Panoramas dauert einen Moment und benötigt Java in Ihrem Browser.<br /><br />Klicken und Ziehen Sie mit der Maus, um sich im Panorama umzusehen!': 'Det tager lidt tid for oversigtskortet at loade og Java er nødvendigt<br /><br />Klik og træk med din mus for at se dig omkring i billedet.', + 'Letzter Sponsor': 'Sidste sponsor' + 'Diese Anwendung benötigt Cookies, um zu funktionieren. Bitte schalten Sie Cookies in Ihrem Browser ein.': 'Denne funktion foresætter at cookies er slået fra i din browser. Slå venligst cookies-funktionen fra og prøv igen.', 'Dieser m² wurde bisher noch nicht verkauft': 'Denne kvardratmeter er endnu ikke solgt.', - 'Fehler beim Laden der POI-Informationen, bitte probieren Sie es spÃ¤ter noch einmal': 'Fejl ved loading af POI-information, prøv venligst igen senere!', + 'Fehler beim Laden der POI-Informationen, bitte probieren Sie es später noch einmal': 'Fejl ved loading af POI-information, prøv venligst igen senere!', 'Land': 'Land', 'Luftbild': 'Luftbillede', 'Name': 'Navn', @@ -12,11 +13,11 @@ 'Sat-Karte': 'Satellit billede', 'Sponsor-ID': 'Donor ID', 'Verkaufte m²': 'Solgte m²' , - 'Zu Verkaufen': 'For sale!', - 'gesponsort': 'donated', + 'Zu Verkaufen': 'Til Salg!', + 'gesponsort': 'doneret', 'meine m²': 'mine m²', - 'm²-Verkaufsgebiet': 'm² sale area', - 'noch nicht verkauft': 'not yet sold', - 'seit': 'since', - 'zu verkaufen!': 'For sale!' + 'm²-Verkaufsgebiet': 'Område med m² til salg', + 'noch nicht verkauft': 'Endnu ikke solgt', + 'seit': 'siden', + 'zu verkaufen!': 'Til Salg!' }; Modified: trunk/projects/bos/payment-website/templates/da/archive.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/archive.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/archive.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -1,7 +1,7 @@ <?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" > <bknr:toplevel template="toplevel_extra" title="Regnskov i SAMBOJA LESTARI - Nyhedsarkiv" xmlns="http://www.w3.org/1999/xhtml" xmlns:bknr="http://bknr.net" xmlns:bos="http://headcraft.de/bos"> - <h1 class="extra">NEWS im ARCHIV</h1> + <h1 class="extra">NYHEDSARKIV</h1> <p class="text_content"> <bos:news-headlines archive="1"></bos:news-headlines> </p> Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -1,6 +1,11 @@ <?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" > -<bknr:toplevel title="REGNSKOV i SAMBOJA LESTARI" xmlns="http://www.w3.org/1999/xhtml" xmlns:bknr="http://bknr.net" xmlns:bos="http://headcraft.de/bos"> +<bknr:toplevel + title="Regnskov i SAMBOJA LESTARI" + xmlns="http://www.w3.org/1999/xhtml" + xmlns:bknr="http://bknr.net" + xmlns:bos="http://headcraft.de/bos" + >  <div id="content">  @@ -159,7 +164,7 @@ <tr> <td align="right" colspan="3"> <input type="submit" class="form_big_bold" name="action" value="Doner online" onclick="return check_online();" /> -  +  <input type="submit" class="form_big" name="action" value="overføre" onclick="return check_ueberweisung();" /> Modified: trunk/projects/bos/payment-website/templates/da/certificat.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/certificat.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/certificat.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -3,6 +3,6 @@ <bknr:toplevel template="toplevel_extra" title="Regnskov i SAMBOJA LESTARI - Regnskovs Diplom" xmlns="http://www.w3.org/1999/xhtml" xmlns:bknr="http://bknr.net" xmlns:bos="http://headcraft.de/bos"> <h1 class="extra">Sådan vil dit Regnskovs Diplom se ud:</h1> <center> - <img src="/images/certificate_en.jpg" width="300" height="424" alt="" border="0"></img> + <img src="/images/certificate_da.jpg" width="300" height="417" alt="" border="0"></img> </center> </bknr:toplevel> Modified: trunk/projects/bos/payment-website/templates/da/privacy.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/privacy.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/privacy.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -10,30 +10,30 @@ <b>Hvad sker der med dine personlige data?</b> </p> <p> -NÃ¥r du har besluttet dig for at lave en donation online, vil du blive bedt om at give dine bank-oplysninger. Denne information vil blive behandlet egenhÃ¦ndigt af WorldPay. +Når du har besluttet dig for at lave en donation online, vil du blive bedt om at give dine bank-oplysninger. Denne information vil blive behandlet egenhændigt af WorldPay. WorldPay er en anerkendt, international udbyder af online betalling. Din data vil blive sendt til WorldPay gennem en kodet SSL-forbindelse, og vil blive slettet straks efter en successfuld transaktion. BOS International har ellers ingen afgang til din bank-information. </p> <p> -Hver kvardratmeter du sponserer med din donation er linket til din personlige profil. Denne profil bestÃ¥r af dit navn, hjemland, antal kvardratmeter du sponserer og datoen for din donation. -Det er desuden muligt at skrive en personlig hilsen. Alt profil-information (undtagen e-mail addresse og post addresse) vil vÃ¦re tilgÃ¦ngelig til besÃ¸gende pÃ¥ vores website. PÃ¥ denne mÃ¥de promoveres kommunikation og menningsudveksling mellem vores sponsore. Profil information kan altid Ã¦ndres ved at logge ind med dit password. Ved at gÃ¸re dette, er det ogsÃ¥ muligt at forblive anonym. +Hver kvardratmeter du sponserer med din donation er linket til din personlige profil. Denne profil består af dit navn, hjemland, antal kvardratmeter du sponserer og datoen for din donation. +Det er desuden muligt at skrive en personlig hilsen. Alt profil-information (undtagen e-mail addresse og post addresse) vil være tilgængelig til besøgende på vores website. På denne måde promoveres kommunikation og menningsudveksling mellem vores sponsore. Profil information kan altid ændres ved at logge ind med dit password. Ved at gøre dette, er det også muligt at forblive anonym. </p> <p> For at kunne sende dig din personlige profil, indeholdende dit sponsor-ID og password, skal vi bruge din e-mail addresse. -For at kunne sende dit Regnskovs Diplom med normal post skal vi bruge din post addresse, og navnet pÃ¥ den person diplomet skal udstedes til. +For at kunne sende dit Regnskovs Diplom med normal post skal vi bruge din post addresse, og navnet på den person diplomet skal udstedes til. For at kunne modtage vores nyhedsbrev/nyhedher, skal vi bruge din e-mail addresse. </p> <p> -Vi forsikre dig om at din data kun vil blive brugt til administrative og informative formÃ¥l for BOS international. -Hvis du pÃ¥ noget tidspunkt ikke lÃ¦ngere Ã¸nsker at modtage mere information fra os, kan du til hver en tid slette din data fra vores system. In case you do not wish to receive any more information from us, you are able to +Vi forsikre dig om at din data kun vil blive brugt til administrative og informative formål for BOS international. +Hvis du på noget tidspunkt ikke længere ønsker at modtage mere information fra os, kan du til hver en tid slette din data fra vores system. In case you do not wish to receive any more information from us, you are able to delete your data from the system at any time. -Til dette formÃ¥l, vÃ¦r venlig altid at oplyse dit sponsor ID! +Til dette formål, vær venlig altid at oplyse dit sponsor ID! </p> <p> -Hvis du har flere spÃ¸rgsmÃ¥I vedrÃ¸rende reglerne om Privacy policy for BOS International +Hvis du har flere spørgsmåI vedrørende reglerne om Privacy policy for BOS International send venligst en e-mail til: bos(a)orangutang.dk </p> </p> Modified: trunk/projects/bos/payment-website/templates/da/quittung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/quittung.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/quittung.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -123,7 +123,7 @@ </tr> <tr> <td colspan="3" align="right"> - <input type="submit" class="form_big" name="Button" onclick="javascript:return confirm('Is the indicated name correct?');" value="gem og fortsæt"></input> + <input type="submit" class="form_big" name="Button" onclick="javascript:return confirm('Er det nævnte navn korrekt?');" value="gem og fortsæt"></input> </td> </tr> </table> Modified: trunk/projects/bos/payment-website/templates/da/ueberweisung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/ueberweisung.xml 2006-12-04 10:42:51 UTC (rev 2108) +++ trunk/projects/bos/payment-website/templates/da/ueberweisung.xml 2006-12-07 19:56:32 UTC (rev 2109) @@ -40,7 +40,7 @@ enctype="application/x-www-form-urlencoded" name="mailtransfer" id="mailtransfer" - onsubmit="YY_checkform('mailtransfer','vorname','#q','0','Bitte das Feld \'Vorname\' ausfuellen.','name','#q','0','Bitte das Feld \'Name\' ausfuellen.','strasse','#q','0','Bitte das Feld \'Strasse\' ausfuellen.','plz','#q','0','Bitte das Feld \'PLZ\' ausfuellen.','ort','#q','0','Bitte das Feld \'Ort\' ausfuellen.');return document.MM_returnValue"> + onsubmit="YY_checkform('mailtransfer','vorname','#q','0','Anuller venligst dette felt \'Fornavn\'.','name','#q','0','Anuller venligst dette felt \'Efternavn\'.','strasse','#q','0','Anuller venligst dette felt \'Gade/Nr.\'.','plz','#q','0','Anuller venligst dette felt \'Postnummer\'.','ort','#q','0','Anuller venligst dette felt \'Kommune\'.');return document.MM_returnValue"> <input type="hidden" name="contract-id" value="$(contract-id)" /> <input type="hidden" name="donationcert-yearly" value="$(donationcert-yearly)" /> <table id="formTable" width="95%" border="0" cellspacing="0" cellpadding="0"> @@ -133,7 +133,8 @@ <br /><br /> BOS Danmark <br /> - Økologihuset, Blegdamsvej 4b + Økologihuset, <br /> + Blegdamsvej 4b <br /> 2200 København N <br /><br />

1 0

[bknr-cvs] r2108 - trunk/projects/bos/worldpay-test
by bknr＠bknr.net 04 Dec '06

04 Dec '06

Author: hhubner Date: 2006-12-04 05:42:51 -0500 (Mon, 04 Dec 2006) New Revision: 2108 Modified: trunk/projects/bos/worldpay-test/tags.lisp Log: direkt bank transfer enabled for danish version. Modified: trunk/projects/bos/worldpay-test/tags.lisp =================================================================== --- trunk/projects/bos/worldpay-test/tags.lisp 2006-12-04 10:02:09 UTC (rev 2107) +++ trunk/projects/bos/worldpay-test/tags.lisp 2006-12-04 10:42:51 UTC (rev 2108) @@ -59,16 +59,17 @@ (define-bknr-tag buy-sqm (&key children) (with-template-vars (numsqm numsqm1 action gift donationcert-yearly download-only) (let* ((numsqm (parse-integer (or numsqm numsqm1))) - ;; Wer ueber dieses Formular bestellt, ist ein neuer Sponsor, - ;; also ein neues Sponsorenobjekt anlegen. Eine Profil-ID - ;; wird automatisch zugewiesen, sonstige Daten haben wir zu - ;; diesem Zeitpunkt noch nicht. - ;; XXX Überweisung wird nur für die deutsche Website - ;; angeboten, was passenderweise durch die folgende + ;; Wer ueber dieses Formular bestellt, ist ein neuer + ;; Sponsor, also ein neues Sponsorenobjekt anlegen. Eine + ;; Profil-ID wird automatisch zugewiesen, sonstige Daten + ;; haben wir zu diesem Zeitpunkt noch nicht. XXX + ;; Überweisung wird nur für die deutsche und dänische + ;; Website angeboten, was passenderweise durch die folgende ;; Überprüfung auch sicher gestellt wurde. Sollte man aber ;; eventuell noch mal prüfen und sicher stellen. (manual-transfer (or (scan #?r"rweisen" action) - (scan #?r"rweisung" action))) + (scan #?r"rweisung" action) + (scan #?r"overf" action))) (sponsor (make-sponsor)) (price (* numsqm 3)) (contract (make-contract sponsor numsqm

1 0

[bknr-cvs] r2107 - trunk/projects/bos/payment-website/templates/da
by bknr＠bknr.net 04 Dec '06

04 Dec '06

Author: hhubner Date: 2006-12-04 05:02:09 -0500 (Mon, 04 Dec 2006) New Revision: 2107 Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml trunk/projects/bos/payment-website/templates/da/versand_info.xml Log: Current version. Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-03 13:28:16 UTC (rev 2106) +++ trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-04 10:02:09 UTC (rev 2107) @@ -159,9 +159,9 @@ <tr> <td align="right" colspan="3"> <input type="submit" class="form_big_bold" name="action" value="Doner online" onclick="return check_online();" /> - <input type="submit" class="form_big" name="action" value="ueberweisen" onclick="return check_ueberweisung();" /> +  - +<input type="submit" class="form_big" name="action" value="overføre" onclick="return check_ueberweisung();" /> </td> </tr> Modified: trunk/projects/bos/payment-website/templates/da/versand_info.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/versand_info.xml 2006-12-03 13:28:16 UTC (rev 2106) +++ trunk/projects/bos/payment-website/templates/da/versand_info.xml 2006-12-04 10:02:09 UTC (rev 2107) @@ -50,7 +50,7 @@ </tr> <tr> <td></td> - <td colspan="2"> for din stÃ¸tte og for din tilld til BOS. <br /><br />The mÂ² du har sponseret er i gode hÃ¦nder. </td> + <td colspan="2"> for din støtte og for din tilld til BOS. <br /><br />The m² du har sponseret er i gode hænder. </td> <td></td> </tr> </table> @@ -98,7 +98,7 @@ </tr> <tr> <td colspan="3"> - I hvilket navn skal vi udstede dit Regnskovs diplom? [Vi acceptere det intastede navn i dette felt. VÃ¦r venlig at Ã¦ndre navnet om nÃ¸dvendigt. ] + I hvilket navn skal vi udstede dit Regnskovs diplom? [Vi acceptere det intastede navn i dette felt. Vær venlig at ændre navnet om nødvendigt. ] </td> </tr> <tr> @@ -156,8 +156,8 @@ <div id="content_right"> <div id="helpbox"> <br /><br /> - [<strong>Betalings-bekrÃ¦ftigelse</strong>]<br /> - Denne betalings-bekrÃ¦ftigelse fra WorldPay er allerede undervejs til din indbox. I den uventede situation at du ikke skulle modtage nogen besked, venligst kontakt: + [<strong>Betalings-bekræftigelse</strong>]<br /> + Denne betalings-bekræftigelse fra WorldPay er allerede undervejs til din indbox. I den uventede situation at du ikke skulle modtage nogen besked, venligst kontakt: <br /> <img src="/images/pfeil_link_on.gif" width="10" height="9" alt="" /> <a href="mailto:service@create-rainforest.org" class="more">

1 0

[bknr-cvs] r2106 - trunk/thirdparty/emacs/slime
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 08:28:16 -0500 (Sun, 03 Dec 2006) New Revision: 2106 Removed: trunk/thirdparty/emacs/slime/swank-loader.x86f Log: Remove unwanted file Deleted: trunk/thirdparty/emacs/slime/swank-loader.x86f =================================================================== --- trunk/thirdparty/emacs/slime/swank-loader.x86f 2006-12-03 13:27:47 UTC (rev 2105) +++ trunk/thirdparty/emacs/slime/swank-loader.x86f 2006-12-03 13:28:16 UTC (rev 2106) @@ -1,66 +0,0 @@ -FASL FILE output from /usr/home/hans/bknr-svn/thirdparty/emacs/slime/swank-loader.lisp. -Compiled Wednesday, 11/15/06 07:15:22 am GMT on ibuprofen.huebner.org -Compiler 1.1, Lisp 19c Release (19C) -Targeted for Intel x86, FASL version 19C -��Q&KERNEL%DEFPACKAGE&SWANK-LOADER&COMMON-LISPQUOTEQUOTEQUOTEQUOTEQUOTE&COMMON-LISPQUOTEQUOTEQUOTEQUOTE6RQ%IN-PACKAGEQUOTE&SWANK-LOADER6R?>#�B&lispNNAMENTYPE MAKE-PATHNAME<*COMPILE-FILE-PATHNAME*MERGE-PATHNAMES<*LOAD-PATHNAME**DEFAULT-PATHNAME-DEFAULTS*Q&CCOMPILED-DEBUG-INFORQR($$-Q& -EXTENSIONSINSTANCER($$-QSTRUCTURE-OBJECTR($$- Q -DEBUG-INFOR ("$$-#($$$-%&DEFUN MAKE-SWANK-PATHNAME&&SWANK-LOADER'QCOMPILED-DEBUG-FUNCTIONR QDEBUG-FUNCTIONR (*$$-+(,$$ --Q&SWANK-LOADERR.MAKE-SWANK-PATHNAMENEXTERNAL+G2MG3�G4��1+&2$+$3NSTANDARD$'$$#�1 5$5-&NOPTIONAL+NAME�7+58$+94$'$$5#�1 :$A-/+NAMECTYPECOMMON-LISP�;+EA*<$$ OPTIONAL-ARGS$(>4$'$$A#�1 ?(@1AB; -�~�E��e��t��u�U�}�� -M�U��E�܃��}�5�E�C��k��P�� !�A�=�tH=�(t��%��u��`� )�A�=�t#=�(t��ԋ-�x��t�� -N� -N� -QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�rQNABSOLUTER�]QNABSOLUTER�QQNABSOLUTER�HQNABSOLUTER�:=?K/&(name &optional (type "lisp"))LFUNCTION &OPTIONALOPATHNAMEQ�/RJ?>S#B&nregexST&swank-source-path-parserU&swank-source-file-cacheV&swank-cmuclWXAPPEND</<.*SYSDEP-PATHNAMES*CONS%&DEFPARAMETER *SYSDEP-PATHNAMES*\'-&Top-Level Form]N TOP-LEVEL+_+P{ W`$+a4$'$$#x1 b(c1de;~�E��e��(�4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� ��u��u�܃��=��k��P��u��΋��}��u�V��܃��k��P��u�}��4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� �ˁ��(t>�_�v��$<u>��=�(�c��E�@� !�A��(�M��E��%� -!�� -��QNABSOLUTER�lQNABSOLUTER�OQNRELATIVER�alloc_overflow_ebx�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�QNRELATIVER�alloc_overflow_ebxE=?n]&()oM�/R&BReturn a pathname with name component NAME in the Slime directory.qPROCLAIM<SPECIALZt#]1uv;? !"�q#$�q0�w]$$QSIMPLE-BYTE-FUNCTIONRQFUNCTIONR(z$$-{QFUNCALLABLE-INSTANCER{(}$$-~QBYTE-FUNCTION-OR-CLOSURER{~(�$$-�Q BYTE-FUNCTIONR{~�(�$$-�(�$$-��8p8LSET-DEFVAR-SOURCE-LOCATION<ZQFILE-SOURCE-LOCATIONR QFORM-NUMBERSR (�$$-�(�$$-�$&@/usr/home/hans/bknr-svn/thirdparty/emacs/slime/swank-loader.lisp�1�r<s.*IMPLEMENTATION-FEATURES*�NALLEGRON LISPWORKSNSBCLNOPENMCLNCMUNCLISPNCCLNCORMANN ARMEDBEARNGCLNECL��$�1�s. *OS-FEATURES*�NMACOSXNLINUXNWINDOWSN MSWINDOWSNWIN32NSOLARISNDARWINNSUNOSNUNIX ��$�1�#]1��; !"�q#$�q%&� '(�q#)�q*+� +,�q0��]$$��8?>�$]BLISP-IMPLEMENTATION-VERSION< -SUBSTITUTE<%&DEFUN LISP-VERSION-STRING�'-.LISP-VERSION-STRING0+G0M�+;�$+�4$'$$$X1 �$"-�+�+"�$+�4$'$$"$]1 �(�1��;]~�E��e��u6�ԃ��1ɉj��P��-��/��u��`�� -MQNABSOLUTER�GQNABSOLUTER�)=?��oMSIMPLE-BASE-STRINGĎ��J?>�#&B�&&No implementation feature found in ~a.��&No os feature found in ~a.�.*ARCHITECTURE-FEATURES*&$No architecture feature found in ~a.��<&TDon't know how to get Lisp ~ - implementation version.�&~(~@{~a~^-~}~)�FORMAT< -*FEATURES*FIND<WARN<&unknown�%&DEFUN UNIQUE-DIRECTORY-NAME�'-.UNIQUE-DIRECTORY-NAME0+G6M�+��$+�4$'$$#�1 �$&-�+VALUE��+f&)�,�+�&+�3�$+�4$'$$&#�1 �#�-FLET.FIRST-OF��+F�FEATURES��+C��F ��$+�+�$'$#�#1 �#M-�. -MAYBE-WARN��+ARGS��FSTRINGcVALUEC�+4�M N" < �$$$REST-ARG$(�+�$'$#M#1 �(�1��;&~�E��e�� A�=��͋ԃ� �؉J��E��j��P��4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� �ŋ̃� �q��Q��A��E�%�q�E� �A�=��͋ԃ� �؉J��E�V��P��4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� �ŋ̃� �q��Q��A��E��E�!�X��T�ŋ̃� �A��E��!�P��*�4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� �ŋ̃� �q�%�Q��A��E��E�ԃ��)1ɉj��P��ŋ̃� �Q�-�Q��(�A��E��(�=1�u�E��E�E�E�E�5��u��`��(��$<�<�Ë��(�[�]�V��v��$<�!�u��9�x��e��]�=��k��P��]�u��(u��(u��(�e��m��}��(��]��A�x��(��U��R�E��$<��ˋ��(9�t�q��I��$<t�� -N��)��]�ǋ�)�S��{��s��k��P��]��E�e��m��E�� -M� -N� -� -N� -� -� -� -�� -�� -� -� -�QNABSOLUTER��QNABSOLUTER�_QNABSOLUTER�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�sQNABSOLUTER�WQNABSOLUTER�DQNABSOLUTER�5QNRELATIVER�alloc_overflow_ebx�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�}QNRELATIVER�alloc_overflow_ebxFQNABSOLUTER�QNABSOLUTER�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNRELATIVER�alloc_overflow_ebx�QNABSOLUTER�XQNABSOLUTER�KQNABSOLUTER�(=? �oMORBASE-STRINGNULL ��Jr<s�NPOWERPCNPPCNX86NX86-64NI686NPC386NIAPX386NSPARC��<��$�1��&�Return a name that can be used as a directory name that is -unique to a Lisp implementation, Lisp implementation version, -operating system, and hardware architecture.s.*SWANK-PATHNAME*/<&swank#]1 ;' !�q"#�$%&�q?'(0�q?)*+�q ,�q-.�/�0�!]$$��"8?>##�BFILE-WRITE-DATE<%&DEFUN FILE-NEWER-P$'-.FILE-NEWER-P0+G0MG1�G2��&+{'$ -+$(4$'$$#�1 )$)-%+NEW-FILECOLD-FILEc*+4) -+$ -+,4$'$$)#�1 -(.1/0;�~�E��e��uu�U�}��܃��U��k��P��U�܃��U��k��P��U��(u��(�M��E��'�(�ꐐ�� -MQNRELATIVERQ&X86 2 GENERIC->R�lQNABSOLUTER�SQNABSOLUTER�3=?6%&(new-file old-file)7M8MEMBER:;�%<J?>=#�BCOMPILE-FILE-PATHNAME<�<NRELATIVE&.slime?&fasl@ PATHNAME-NAME< PATHNAME-TYPE<N DIRECTORY<USER-HOMEDIR-PATHNAME<<%&DEFUN BINARY-PATHNAMEE'-.BINARY-PATHNAME0+ -G0MG1�G+�sH$+I4$'$$#�1 J$*-F+CFP�SOURCE-PATHNAMECK+:* - -�: L$+M4$'$$*#�1 N(O1PQ;�~�E��e��i�U�܃��U��k��P��U�ԃ��1ɉj��P��=�5!�E��4�(��(� |�(;��(v��|�(�[�ÉP��@��x��@��p��@��M��H��@�(��(�=4�(t� �]��܃��U�%��k��P��U�܃��U�)��k��P��܃��-�}��51�M�K�� 5�K�C�9��k��P��U��ԃ��=1ɉj��P��U��A��u��`� -MQNABSOLUTER��QNABSOLUTER�jQNABSOLUTER�MQNABSOLUTER�AQNABSOLUTER�5QNABSOLUTER�,QNABSOLUTER�QNABSOLUTER��QNRELATIVER�alloc_overflow_ebx�QNABSOLUTER�qQNABSOLUTER�kQNABSOLUTER�eQNABSOLUTER�QQNABSOLUTER�4=?`F&(source-pathname)aMbPc�FdJ?>e#` BPARSE-UNKNOWN-TYPE-SPECIFIER<NOTE-UNDEFINED-REFERENCE<L*ABORTED-COMPILATION-UNITS*L*IN-COMPILATION-UNIT**UNDEFINED-WARNINGS**COMPILER-ERROR-COUNT**COMPILER-WARNING-COUNT**COMPILER-NOTE-COUNT*BPARSE-UNKNOWN-TYPEQ& -CONDITIONSR n*HANDLER-CLUSTERS*F<ENSURE-DIRECTORIES-EXIST<NOUTPUT-FILENPRINTNVERBOSECOMPILE-FILE<LOAD< -PROBE-FILE<%< PRINT-SUMMARY<%&&DEFUN COMPILE-FILES-IF-NEEDED-SERIALLYx'-. COMPILE-FILES-IF-NEEDED-SERIALLY0+G51CG52cz+$(��{$+|4$'$$$#8 1 }$b-x0+G53MG54�~+��$+�4$'$#�#= 1 �#�-x+ CLISPC�+��$+�4$'$#�#B 1 �#�-� G40y�NCLEANUP+�+%� -�F�$+�+�$'$#�#B 1 �# --y+FILES��+�� -��'� � -'RR�r�$+�+�$'$# -#G 1 �#�-� G0y�+@BINARY-PATHNAME�FILES�NEEDS-RECOMPILECSOURCE-PATHNAMEc�+�� -!� C # - ] �$+�+�$'$#�#Q 1 �#�-� G31y��+�+��)2�$+�+�$'$#�#[ 1 �( �1��;` ~�E��e��M�U��E�� ŋ́��U��Q�A��E��ЋM��E��ᐐ��~6�E��e��U�܃��U��k��P��=��u��`�@�=�(u��(�e��m��P��O��P��Ƌ !�A�=��)=�(��'�(�4�(��(�|�(;��(v��|�(��@�H��(�=4�(t� �E��(�%� ��(�C�� (�A��Y��S�1ҋ)� ��(�C�� (�A��Y��S�1ҋ-� ��(�C�� (�A��Y��S�1ҋ1� ��(�C�� (�A��Y��S��'�(�!� ��(�C�� (�A��Y��S�1ҋ� ��(�C�� (�A��Y��S��4�(��(�|�(;��(v��|�(�@��(�=4�(t� � 9�H�� 5�H��4�(��(�|�(;��(v��|�(�[�ÉP��@�(��(�=4�(t� � =�A�=��C�4�(��(�|�(;��(v��|�(�R��(�=4�(t� �Z��B�=� ��(�C�� (�A��Y��S��(�E��(� ��(��(�E��M��U��e��M��(��i�A��E��(�ŋ́��U�A��E�=��E�E��(�H��(��(�ŋ́��U��A��E�w��(�B��J��H��B��(��(�B��J��H��B��(��(�B��J��H��B��(��(�B��J��H��B��(��(�B��J��H��B��(��(�B��J��H��B��(��(�B��J��H��B��(�E�e��m��'�(�4�(��(�|�(;��(v��|�(��@�H��(�=4�(t� �E��(�E��(� ��(��(�E��M��U��e��MЋ��(��i�AQ�EЉ��(�ŋ́��U�A��E��;�E�E��(�H��(��(�͋ԁ��E��J��E�L��U�]��M�E��M��U��(� ��(��(�]��(9�t!�B� �t �J��H��B��9�u��(�͋ԁ��E��J��E��n��E�]��M��U�]��M�E��M��U��(� ��(��(�]��(9�t!�B� �t �J��H��B��9�u��(�ŋ́��U��A��E�?�&�E�]��M��E��(�U��r�E��@��E��܃��U��A��k��P��Uܺ�(� =�A�=��4�(��(�|�(;��(v��|�(�[��(�=4�(t� �S��C�=� ��(�B�� (�A��Q��Z��}��(��܃��U܋E��k��P��܃��U��=I�u܋M�C��C��(�Q�C��C�'�(�U��k��P��E�'�(�܃��U܋=Q�'�(�Y��k��P�㛋��(�B��J��H��B��(�E��@�E��M��$<��=�(�r��(�e��m��܃��U܋]��k��P��(uA�'�(=�(��܃��U��}܋a��k��P��(��(뽋R��x��tK�܃��e��k��P��(�e��m�� - � -M� -� -N� -N� -N� -N� -QNABSOLUTER� QNABSOLUTER� QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�)QNABSOLUTER�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�~QNRELATIVER�alloc_overflow_ebxWQNABSOLUTER�#QNABSOLUTER�QNRELATIVERQUNWINDR��QNABSOLUTER��QNRELATIVERQUNWINDR�bQNABSOLUTER�OQNABSOLUTER��QNABSOLUTER��QNABSOLUTER�~QNRELATIVER�alloc_overflow_eaxQNABSOLUTER�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�RQNRELATIVER�alloc_overflow_edx+QNABSOLUTER��QNRELATIVER�alloc_overflow_ebx�QNABSOLUTER��QNABSOLUTER��QNRELATIVER�alloc_overflow_eaxuQNABSOLUTER�4QNABSOLUTER�QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNRELATIVER�alloc_overflow_eaxPQNABSOLUTER�QNABSOLUTER�QNRELATIVERQ 2 GENERIC-+R��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�H=?�x& (lisp::c)�Mb9%UNDEFINED%��h��y&(files)�Mb��y�J?>�#�BD<&.swank�<<NIF-DOES-NOT-EXISTu<%&DEFUN LOAD-USER-INIT-FILE�'-.LOAD-USER-INIT-FILE0+G0M�+��$+�4$'$$#�1 �$&-�+�+&5�$+�4$'$$&#�1 �(�1��;�~�E��e��ԃ��1ɉj��P��U�܃��=�5�!�C��%��k��P��܃��U�)��k��P��=-��(�1��u��`� -MQNABSOLUTER��QNABSOLUTER��QNABSOLUTER��QNABSOLUTER�bQNABSOLUTER�YQNABSOLUTER�SQNABSOLUTER�MQNABSOLUTER�GQNABSOLUTER�-=?��oM��J�<�$ �1�%<&0Returns true if NEW-FILE is newer than OLD-FILE.�Fd&FReturn the pathname where SOURCE-PATHNAME's binary should be compiled.�y�&zCompile each file in FILES if the source is newer than -its corresponding binary, or the file preceding it was -recompiled.�y</<& swank-backend�ZINTERN<STRING<NWARN-UNIMPLEMENTED-INTERFACESN SWANK-BACKEND FUNCTIONP<��&9Load the user init file, return NIL if it does not exist.#]1;V !"�q?#$%�q?&'(�q?)*+�q,??-.��/�?/剋�q///�/�`/��q?///�q0�?��]$$�� 8QEXPORTQUOTE.LOAD-USER-INIT-FILE6R?> #�B*LOAD-TRUENAME*& site-initNDEFAULTS<�u<%&DEFUN LOAD-SITE-INIT-FILE'-.LOAD-SITE-INIT-FILE0+G0M+s$+4$'$$#�1 $"-++"L -$+4$'$$"#�1 (1;�~�E��e��un� �A�=�tc�܃��=�5� !�K�� %�K�C�)��k��P��=-��(�1��u��`�� -M� -NQNABSOLUTER��QNABSOLUTER�uQNABSOLUTER�`QNABSOLUTER�TQNABSOLUTER�KQNABSOLUTER�EQNABSOLUTER�?QNABSOLUTER�9QNABSOLUTER�$=?&o��'J'<�<#]1();? !0�q"�`�#�q0�*]$$��+8QDEBUG-SOURCER (-$$ -.NFILE�"&��0" -=�1$+@\��k�� ~Lu\Qo21 345�)5�5�5��5̣5�Q5�05� 5��5̿5̮5�v5�e5�B?>6@ \ No newline at end of file

1 0

[bknr-cvs] r2105 - trunk/bknr/src/xml-impex
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 08:27:47 -0500 (Sun, 03 Dec 2006) New Revision: 2105 Modified: trunk/bknr/src/xml-impex/xml-export.lisp Log: Remove unmatched parenthesis Modified: trunk/bknr/src/xml-impex/xml-export.lisp =================================================================== --- trunk/bknr/src/xml-impex/xml-export.lisp 2006-12-03 13:26:32 UTC (rev 2104) +++ trunk/bknr/src/xml-impex/xml-export.lisp 2006-12-03 13:27:47 UTC (rev 2105) @@ -109,4 +109,4 @@ (slot-value object name))))))) (sax:end-element cxml::*sink* nil nil qname)))) - (t nil))))) + (t nil))))

1 0

[bknr-cvs] r2104 - in trunk/projects/bos: m2 worldpay-test
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 08:26:32 -0500 (Sun, 03 Dec 2006) New Revision: 2104 Modified: trunk/projects/bos/m2/mail-generator.lisp trunk/projects/bos/m2/packages.lisp trunk/projects/bos/worldpay-test/sponsor-handlers.lisp Log: Send sponsor data mail for manually entered sponsors. Modified: trunk/projects/bos/m2/mail-generator.lisp =================================================================== --- trunk/projects/bos/m2/mail-generator.lisp 2006-12-03 12:17:00 UTC (rev 2103) +++ trunk/projects/bos/m2/mail-generator.lisp 2006-12-03 13:26:32 UTC (rev 2104) @@ -150,6 +150,40 @@ :email (param 'email) :tel (param 'tel))))) +(defun make-html-part (string) + (make-instance 'text-mime + :type "text" + :subtype "html" + :charset "utf-8" + :encoding :quoted-printable + :content string)) + +(defun make-contract-xml-part (id params) + (make-instance 'text-mime + :type "text" + :subtype (format nil "xml; name=\"contract-~A.xml\"" id) + :charset "utf-8" + :encoding :quoted-printable + :content (format nil " +<sponsor> + ~{<~A>~A</~A>~} +</sponsor> +" + (apply #'append (mapcar #'(lambda (cons) + (list (car cons) + (if (find #\Newline (cdr cons)) + (format nil "<![CDATA[~A]]>" (cdr cons)) + (cdr cons)) + (car cons))) + params))))) + +(defun make-vcard-part (id vcard) + (make-instance 'text-mime + :type "text" + :subtype (format nil "x-vcard; name=\"contract-~A.vcf\"" id) + :charset "utf-8" + :content vcard)) + (defun mail-contract-data (contract type mime-parts) (let ((parts mime-parts)) (unless (contract-download-only-p contract) @@ -175,16 +209,49 @@ (unless (contract-download-only-p contract) (delete-file (contract-pdf-pathname contract :print t)))) +(defun mail-backoffice-sponsor-data (contract req) + (with-query-params (req numsqm country email name address date language) + (let ((parts (list (make-html-part (format nil " +<html> + <body> + <h1>Manuell erfasste Sponsordate:</h1> + <table border=\"1\"> + <tr><td>Contract-ID</td><td>~@[~A~]</td></tr> + <tr><td>Anzahl sqm</td><td>~A</td></tr> + <tr><td>Name</td><td>~@[~A~]</td></tr> + <tr><td>Adresse</td><td>~@[~A~]</td></tr> + <tr><td>Email</td><td>~@[~A~]</td></tr> + </table> + </body> +</html>" + (store-object-id contract) + numsqm + name + address + email)) + (make-contract-xml-part (store-object-id contract) (all-request-params req)) + (make-vcard-part (store-object-id contract) + (make-vcard :sponsor-id (store-object-id (contract-sponsor contract)) + :note (format nil "Paid-by: Back office +Contract ID: ~A +Sponsor ID: ~A +Number of sqms: ~A +Amount: EUR~A.00 +" + (store-object-id contract) + (store-object-id (contract-sponsor contract)) + numsqm + (* 3 (parse-integer numsqm))) + :name name + :address address + :email email))))) + (mail-contract-data contract "Manuell erfasster Sponsor" parts)))) + (defun mail-manual-sponsor-data (req) (with-query-params (req contract-id vorname name strasse plz ort email telefon donationcert-yearly) (let* ((contract (store-object-with-id (parse-integer contract-id))) (sponsor-id (store-object-id (contract-sponsor contract))) - (parts (list (make-instance 'text-mime - :type "text" - :subtype "html" - :charset "utf-8" - :encoding :quoted-printable - :content (format nil " + (parts (list (make-html-part (format nil " <html> <body> <h1>Ueberweisungsformulardaten:</h1> @@ -205,52 +272,32 @@ </body> </html> " - contract-id - (length (contract-m2s contract)) - vorname name strasse plz ort email telefon - (if donationcert-yearly "ja" "nein") - *website-url* contract-id email)) - (make-instance 'text-mime - :type "text" - :subtype (format nil "xml; name=\"contract-~A.xml\"" contract-id) - :charset "utf-8" - :encoding :quoted-printable - :content (format nil " -<sponsor> - ~{<~A>~A</~A>~} -</sponsor> -" - (apply #'append (mapcar #'(lambda (cons) - (list (car cons) - (if (find #\Newline (cdr cons)) - (format nil "<![CDATA[~A]]>" (cdr cons)) - (cdr cons)) - (car cons))) - (all-request-params req))))) - (make-instance 'text-mime - :type "text" - :subtype (format nil "x-vcard; name=\"contract-~A.vcf\"" contract-id) - :charset "utf-8" - :content (make-vcard :sponsor-id sponsor-id - :note (format nil "Paid-by: Manual money transfer + contract-id + (length (contract-m2s contract)) + vorname name strasse plz ort email telefon + (if donationcert-yearly "ja" "nein") + *website-url* contract-id email)) + (make-contract-xml-part contract-id (all-request-params req)) + (make-vcard-part contract-id (make-vcard :sponsor-id sponsor-id + :note (format nil "Paid-by: Manual money transfer Contract ID: ~A Sponsor ID: ~A Number of sqms: ~A Amount: EUR~A.00 Donationcert yearly: ~A " - contract-id - sponsor-id - (length (contract-m2s contract)) - (* 3 (length (contract-m2s contract))) - (if donationcert-yearly "Yes" "No")) - :vorname vorname - :nachname name - :strasse strasse - :postcode plz - :ort ort - :email email - :tel telefon))))) + contract-id + sponsor-id + (length (contract-m2s contract)) + (* 3 (length (contract-m2s contract))) + (if donationcert-yearly "Yes" "No")) + :vorname vorname + :nachname name + :strasse strasse + :postcode plz + :ort ort + :email email + :tel telefon))))) (mail-contract-data contract "Ueberweisungsformular" parts)))) (defvar *worldpay-params-hash* (make-hash-table :test #'equal)) @@ -269,12 +316,7 @@ (with-query-params (req contract-id) (let* ((contract (store-object-with-id (parse-integer contract-id))) (params (get-worldpay-params contract-id)) - (parts (list (make-instance 'text-mime - :type "text" - :subtype "html" - :charset "utf-8" - :encoding :quoted-printable - :content (format nil " + (parts (list (make-html-part (format nil " <table border=\"1\"> <tr> <th>Parameter</th> @@ -283,30 +325,10 @@ ~{<tr><td>~A</td><td>~A</td></tr>~} </table> " - (apply #'append (mapcar #'(lambda (cons) (list (car cons) (cdr cons))) - (sort (copy-list params) - #'string-lessp - :key #'car))))) - (make-instance 'text-mime - :type "text" - :subtype (format nil "xml; name=\"contract-~A.xml\"" (store-object-id contract)) - :charset "utf-8" - :encoding :quoted-printable - :content (format nil " -<sponsor> - ~{<~A>~A</~A>~} -</sponsor> -" - (apply #'append (mapcar #'(lambda (cons) - (list (car cons) - (if (find #\Newline (cdr cons)) - (format nil "<![CDATA[~A]]>" (cdr cons)) - (cdr cons)) - (car cons))) - params)))) - (make-instance 'text-mime - :type "text" - :subtype (format nil "x-vcard; name=\"contract-~A.vcf\"" (store-object-id contract)) - :charset "utf-8" - :content (worldpay-callback-params-to-vcard params))))) + (apply #'append (mapcar #'(lambda (cons) (list (car cons) (cdr cons))) + (sort (copy-list params) + #'string-lessp + :key #'car))))) + (make-contract-xml-part contract-id params) + (make-vcard-part contract-id (worldpay-callback-params-to-vcard params))))) (mail-contract-data contract "WorldPay" parts)))) Modified: trunk/projects/bos/m2/packages.lisp =================================================================== --- trunk/projects/bos/m2/packages.lisp 2006-12-03 12:17:00 UTC (rev 2103) +++ trunk/projects/bos/m2/packages.lisp 2006-12-03 13:26:32 UTC (rev 2104) @@ -184,6 +184,7 @@ #:mail-instructions-to-sponsor #:mail-info-request #:mail-manual-sponsor-data + #:mail-backoffice-sponsor-data #:mail-worldpay-sponsor-data #:*cert-download-directory*)) Modified: trunk/projects/bos/worldpay-test/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-12-03 12:17:00 UTC (rev 2103) +++ trunk/projects/bos/worldpay-test/sponsor-handlers.lisp 2006-12-03 13:26:32 UTC (rev 2104) @@ -84,17 +84,18 @@ (:tr (:td "Name for certificate") (:td (text-field "name" :size 20))) (:tr (:td "Postal address for certificate" - (:td (textarea-field "postaladdress" :rows 5 :cols 40)))) + (:td (textarea-field "address" :rows 5 :cols 40)))) (:tr (:td (submit-button "create" "create" :formcheck "javascript:return check_complete_sale()")))))))) (defun date-to-universal (date-string) (apply #'encode-universal-time 0 0 0 (mapcar #'parse-integer (split #?r"\." date-string)))) (defmethod handle-object-form ((handler edit-sponsor-handler) (action (eql :create)) (sponsor (eql nil)) req) - (with-query-params (req numsqm country email name postaladdress date language) + (with-query-params (req numsqm country email name address date language) (let* ((sponsor (make-sponsor :email email :country country)) (contract (make-contract sponsor (parse-integer numsqm) :paidp t :date (date-to-universal date)))) - (contract-issue-cert contract name :address postaladdress :language language) + (contract-issue-cert contract name :address address :language language) + (mail-backoffice-sponsor-data contract req) (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor)) req)))) (defun contract-checkbox-name (contract)

1 0

[bknr-cvs] r2103 - trunk/projects/bos/payment-website/templates/da
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 07:17:00 -0500 (Sun, 03 Dec 2006) New Revision: 2103 Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml Log: do not automatically make contracts download-only Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-03 12:16:09 UTC (rev 2102) +++ trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-03 12:17:00 UTC (rev 2103) @@ -57,7 +57,6 @@ <div id="content_main"> <div id="textbox_content_big"> <form name="bestellformular" method="post" action="buy-sqm"> - <input type="hidden" name="download-only" value="1"></input> <table id="formTable" width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3">

1 0

[bknr-cvs] r2102 - trunk/projects/bos/payment-website/templates/da
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 07:16:09 -0500 (Sun, 03 Dec 2006) New Revision: 2102 Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml trunk/projects/bos/payment-website/templates/da/profil_setup.xml trunk/projects/bos/payment-website/templates/da/quittung.xml trunk/projects/bos/payment-website/templates/da/ueberweisung.xml Log: Current danish language version. Modified: trunk/projects/bos/payment-website/templates/da/bestellung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-03 10:49:30 UTC (rev 2101) +++ trunk/projects/bos/payment-website/templates/da/bestellung.xml 2006-12-03 12:16:09 UTC (rev 2102) @@ -159,8 +159,10 @@ </tr> <tr> <td align="right" colspan="3"> - <input type="submit" class="form_big_bold" name="action" value="Doner online" onclick="return check_online();"></input> - <input type="submit" class="form_big" name="action" value="Überweisen" onclick="return check_ueberweisung();"></input> + <input type="submit" class="form_big_bold" name="action" value="Doner online" onclick="return check_online();" /> + <input type="submit" class="form_big" name="action" value="ueberweisen" onclick="return check_ueberweisung();" /> + + </td> </tr> Modified: trunk/projects/bos/payment-website/templates/da/profil_setup.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/profil_setup.xml 2006-12-03 10:49:30 UTC (rev 2101) +++ trunk/projects/bos/payment-website/templates/da/profil_setup.xml 2006-12-03 12:16:09 UTC (rev 2102) @@ -139,7 +139,7 @@ </tr> <tr> <td colspan="3" align="right"> - <input type="submit" class="form_big" name="Button" value="save and continue"></input> + <input type="submit" class="form_big" name="Button" value="gem og fortsæt"></input> </td> </tr> </table> Modified: trunk/projects/bos/payment-website/templates/da/quittung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/quittung.xml 2006-12-03 10:49:30 UTC (rev 2101) +++ trunk/projects/bos/payment-website/templates/da/quittung.xml 2006-12-03 12:16:09 UTC (rev 2102) @@ -123,7 +123,7 @@ </tr> <tr> <td colspan="3" align="right"> - <input type="submit" class="form_big" name="Button" onclick="javascript:return confirm('Is the indicated name correct?');" value="save and fortsæt"></input> + <input type="submit" class="form_big" name="Button" onclick="javascript:return confirm('Is the indicated name correct?');" value="gem og fortsæt"></input> </td> </tr> </table> Modified: trunk/projects/bos/payment-website/templates/da/ueberweisung.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/ueberweisung.xml 2006-12-03 10:49:30 UTC (rev 2101) +++ trunk/projects/bos/payment-website/templates/da/ueberweisung.xml 2006-12-03 12:16:09 UTC (rev 2102) @@ -2,7 +2,7 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel - title="REGENWALD für SAMBOJA LESTARI" + title="REGENSKOV i SAMBOJA LESTARI" xmlns="http://www.w3.org/1999/xhtml" xmlns:bknr="http://bknr.net" xmlns:bos="http://headcraft.de/bos" @@ -45,22 +45,22 @@ <input type="hidden" name="donationcert-yearly" value="$(donationcert-yearly)" /> <table id="formTable" width="95%" border="0" cellspacing="0" cellpadding="0"> <tr> - <td colspan="3"><span class="headline">Ich möchte meine Spende überweisen.</span></td> + <td colspan="3"><span class="headline">Jeg vil overføre mit bidrag til BOS Danmark via min bank!</span></td> </tr> <tr> <td colspan="3" height="7"> </td> </tr> <tr> <td colspan="3"> -Ich habe mich dazu entschieden einen Betrag von $(amount) Euro auf das Spendenkonto "Samboja Lestari" von BOS Deutschland e.V. zu überweisen. +Jeg har besluttet mig for at overføre et bidrag på $(amount) kroner til Samboja Lestari via BOS Danmark. <table border="0"> - <tr><td>Kontonummer:</td><td>32 10 100</td></tr> - <tr><td>Bank:</td><td>Bank für Sozialwirtschaft</td></tr> - <tr><td>BLZ:</td><td>100 205 00</td></tr> + <tr><td>Kontonummer:</td><td>0001718891</td></tr> + <tr><td>Bank:</td><td>Merkur Bank</td></tr> + <tr><td>Reg.Nr.:</td><td> 8401</td></tr> </table> - <strong>Bitte unbedingt den Verwendungszweck "SL ID $(contract-id)" auf dem Überweisungsformular angeben!</strong> + <strong>Vigtigt! Du skal anføre "SL ID $(contract-id)" på bankoverførslen, så vi kan genkende din betaling. </strong> <br /> <br /> - Meine Überweisung muss ich bei meiner Bank eigenständig veranlassen! + Meine Husk, at du selv står for overførslen via din bank til BOS Danmarks konto. </td> </tr> <tr> @@ -70,22 +70,22 @@ <td colspan="3" height="7"> </td> </tr> <tr> - <td height="10">Vorname:</td> + <td height="10">Fornavn:</td> <td width="10"></td> <td><input name="vorname" type="text" size="25" maxlength="30" /></td> </tr> <tr> - <td height="10">Name:</td> + <td height="10">Efternavn:</td> <td width="10"></td> <td><input name="name" type="text" size="25" maxlength="30" /></td> </tr> <tr> - <td height="10">Straße/Nr.:</td> + <td height="10">Gade/Nr.:</td> <td width="10"></td> <td><input name="strasse" type="text" size="25" maxlength="30" /></td> </tr> <tr> - <td height="10">PLZ/Ort</td> + <td height="10">Kommune:</td> <td width="10"></td> <td> <input name="plz" type="text" size="5" maxlength="5" /> @@ -107,7 +107,7 @@ </tr> <tr> <td align="right" colspan="3"> - <input type="submit" class="form_big" name="action" value="Angaben an BOS mailen" /> + <input type="submit" class="form_big" name="action" value="Oplysninger til BOS" /> </td> </tr> </table> @@ -116,31 +116,28 @@ </div> <div id="content_right"> <div id="helpbox"> - <strong>[Persönliche Daten]</strong> + <strong>[Personlige oplysninger]</strong> <br /> -Wir reservieren gerne die von Ihnen gewünschten m². Für die Zusendung -der entsprechenden Informationen (Regenwaldurkunde, Sponsorenprofil, -Geokoordinaten, Spendenbescheinigung) benötigen wir unbedingt die -Angabe Ihrer Daten. Nach erfolgter Überweisung erhalten Sie diese -Informationen schriftlich oder per E-Mail von uns. +Vi reserverer gerne det ønskede antal mÂ². +Vi har brug for nogle personlige oplysninger for at kunne sende dig informationer om (regnskovsbevis, sponsorprofil, geografisk koordinater, bidragskvittering). +Når vi har modtaget bidraget, sender vi dig alle ovenfor nævnte informationer per brev eller e-mail. <br /><br /><br /> - <strong>[Dieses Formular]</strong> + <strong>[Denne formular]</strong> <br /> - Bitte senden Sie dieses Formular per E-Mail direkt an uns. Sie können es auch + Send os venligst denne formular direkte per e-mail, eller <img src="/images/pfeil_link_on.gif" width="10" height="9" alt="" /> <a href="javascript:window.print();" class="more"> - ausdrucken + udskriv </a> - und per Fax oder Post an unsere - Kontaktadresse schicken: + den og send den til os per fax eller post: <br /><br /> - BOS Deutschland e.V. + BOS Danmark <br /> - Schöneberger Ufer 69 + Økologihuset, Blegdamsvej 4b <br /> - 10785 Berlin + 2200 København N <br /><br /> - Fax: (030) 2636 7815 + Fax: +45 3537 3636 </div> </div> </div>

1 0

[bknr-cvs] r2101 - trunk/bknr/src/web
by bknr＠bknr.net 03 Dec '06

03 Dec '06

Author: hhubner Date: 2006-12-03 05:49:30 -0500 (Sun, 03 Dec 2006) New Revision: 2101 Modified: trunk/bknr/src/web/sessions.lisp Log: Slightly clearify comment Modified: trunk/bknr/src/web/sessions.lisp =================================================================== --- trunk/bknr/src/web/sessions.lisp 2006-12-03 10:48:27 UTC (rev 2100) +++ trunk/bknr/src/web/sessions.lisp 2006-12-03 10:49:30 UTC (rev 2101) @@ -166,11 +166,11 @@ (defmethod update-instance-for-different-class :before ((old http-request) (new bknr-request) &key session) - ;; Clear parsed parameters in request. During - ;; authorization, parameters are not completely parsed in - ;; order to save time. In particular, uploaded files are - ;; only parsed after authorization. This is accomplished by - ;; clearing the cache for the parsed parameters here. + ;; Clear parsed parameters in request. During authorization, + ;; parameters are not completely parsed in order to save time. In + ;; particular, uploaded files are only parsed after authorization. + ;; This is accomplished by clearing the cache for the parsed + ;; parameters when the session has been determined. (setf (getf (request-reply-plist old) 'bknr-parsed-parameters) nil) (setf (getf (request-reply-plist old) 'bknr-parsed-body-parameters) nil) (setf (slot-value new 'session) session))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs December 2006