bknr-cvs September 2008

bknr-cvs@common-lisp.net

1 participants
210 discussions

[bknr-cvs] ksprotte changed trunk/projects/bos/web/sponsor-handlers.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3784 Author: ksprotte URL: http://bknr.net/trac/changeset/3784 "Keine Urkunde" Option f?\195?\188r manuell eingerichtete Sponsoren U trunk/projects/bos/web/sponsor-handlers.lisp Modified: trunk/projects/bos/web/sponsor-handlers.lisp =================================================================== --- trunk/projects/bos/web/sponsor-handlers.lisp 2008-09-03 16:19:44 UTC (rev 3783) +++ trunk/projects/bos/web/sponsor-handlers.lisp 2008-09-03 16:50:27 UTC (rev 3784) @@ -99,19 +99,22 @@ (:td (textarea-field "address" :rows 5 :cols 40))) (:tr (:td "Issue donation cert at the end of the year") (:td (checkbox-field "donationcert-yearly" "" :checked nil))) + (:tr (:td "Sponsor wants a printed certificate") + (:td (checkbox-field "want-print" "" :checked nil))) (: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))) - (with-query-params (numsqm country email name address date language) + (with-query-params (numsqm country email name address date language want-print) (let* ((sponsor (make-sponsor :email email :country country :language language)) (contract (make-contract sponsor (parse-integer numsqm) :paidp (format nil "~A: manually created by ~A" (format-date-time (get-universal-time)) (user-login (bknr.web:bknr-session-user))) - :date (date-to-universal date)))) + :date (date-to-universal date) + :download-only (not want-print)))) (contract-issue-cert contract name :address address :language language) (send-to-postmaster #'mail-backoffice-sponsor-data contract numsqm country email name address language (all-request-params)) (redirect (format nil "/edit-sponsor/~D" (store-object-id sponsor))))))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/tags.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3783 Author: ksprotte URL: http://bknr.net/trac/changeset/3783 fixed determination of DOWNLOAD-ONLY in MAIL-TRANSFER If the sponsor has paid less than *mail-certificate-threshold*, it is download-only without further choice. - But now DOWNLOAD-ONLY will still be T, if the sponsor did not want a print certificate. (or (< (contract-price contract) *mail-certificate-threshold*) (not want-print)) U trunk/projects/bos/web/tags.lisp Modified: trunk/projects/bos/web/tags.lisp =================================================================== --- trunk/projects/bos/web/tags.lisp 2008-09-03 15:14:41 UTC (rev 3782) +++ trunk/projects/bos/web/tags.lisp 2008-09-03 16:19:44 UTC (rev 3783) @@ -124,8 +124,9 @@ contract-id name vorname strasse plz ort telefon want-print email donationcert-yearly) - (let* ((contract (store-object-with-id (parse-integer contract-id))) - (download-only (< (contract-price contract) *mail-certificate-threshold*))) + (let* ((contract (store-object-with-id (parse-integer contract-id))) + (download-only (or (< (contract-price contract) *mail-certificate-threshold*) + (not want-print)))) (with-transaction (:prepare-before-mail) (setf (contract-download-only contract) download-only) (setf (sponsor-country (contract-sponsor contract)) country))

1 0

[bknr-cvs] hans changed trunk/projects/bos/web/webserver.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3782 Author: hans URL: http://bknr.net/trac/changeset/3782 Publish ge resources directory. U trunk/projects/bos/web/webserver.lisp Modified: trunk/projects/bos/web/webserver.lisp =================================================================== --- trunk/projects/bos/web/webserver.lisp 2008-09-03 15:12:47 UTC (rev 3781) +++ trunk/projects/bos/web/webserver.lisp 2008-09-03 15:14:41 UTC (rev 3782) @@ -226,6 +226,8 @@ (publish-directory :prefix "/static/" :destination (merge-pathnames "static/" website-directory)) + (publish-directory :prefix "/ge/" + :destination (merge-pathnames "ge/" website-directory)) (publish-directory :prefix "/images/" :destination (merge-pathnames "images/" website-directory)) (publish-directory :prefix "/infosystem/"

1 0

[bknr-cvs] hans changed trunk/projects/bos/payment-website/ge/
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3781 Author: hans URL: http://bknr.net/trac/changeset/3781 Add empty directory for Google Earth resources. A trunk/projects/bos/payment-website/ge/

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/poi.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3780 Author: ksprotte URL: http://bknr.net/trac/changeset/3780 more defensive coding in MAKE-POI-JAVASCRIPT to avoid generating invalid javascript (which is hard to debug) U trunk/projects/bos/m2/poi.lisp Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-09-03 12:56:00 UTC (rev 3779) +++ trunk/projects/bos/m2/poi.lisp 2008-09-03 14:51:57 UTC (rev 3780) @@ -110,7 +110,8 @@ :documentation "liste aller poi-medien, wie poi-image, poi-airal ..."))) -(defmethod convert-slot-value-while-restoring ((object poi) (slot-name (eql 'published)) published) +(defmethod convert-slot-value-while-restoring ((object poi) (slot-name (eql 'published)) + published) (setf (slot-value object 'published-web) published)) (deftransaction make-poi (name &rest rest &key area language title subtitle description) @@ -229,7 +230,13 @@ (when (poi-panoramas poi) (format t "poi.panoramas = [ ~{~D~^, ~} ];~%" (mapcar #'store-object-id (poi-panoramas poi)))) (when (poi-movies poi) - (format t "poi.movies = [ ~{~S~^, ~} ];~%" (mapcar #'poi-movie-url (poi-movies poi)))) + (format t "poi.movies = [ ~{~S~^, ~} ];~%" + (mapcar #'(lambda (movie) + (assert (stringp (poi-movie-url movie)) nil + "POI-MOVIE-URL of ~S is ~S, but should be a string" + movie (poi-movie-url movie)) + (poi-movie-url movie)) + (poi-movies poi)))) (loop for slot-name in '(title subtitle description) for javascript-name in '("imageueberschrift" "imageuntertitel" "imagetext") for slot-values = (mapcar (lambda (image)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3779 Author: ksprotte URL: http://bknr.net/trac/changeset/3779 :published-web und :published-earth f?\195?\188r POIs U trunk/projects/bos/m2/packages.lisp U trunk/projects/bos/m2/poi.lisp U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/m2/packages.lisp =================================================================== --- trunk/projects/bos/m2/packages.lisp 2008-09-03 11:43:11 UTC (rev 3778) +++ trunk/projects/bos/m2/packages.lisp 2008-09-03 12:56:00 UTC (rev 3779) @@ -221,7 +221,8 @@ #:poi-name #:find-poi #:all-pois - #:poi-published + #:poi-published-web + #:poi-published-earth #:poi-area #:poi-icon #:poi-media Modified: trunk/projects/bos/m2/poi.lisp =================================================================== --- trunk/projects/bos/m2/poi.lisp 2008-09-03 11:43:11 UTC (rev 3778) +++ trunk/projects/bos/m2/poi.lisp 2008-09-03 12:56:00 UTC (rev 3779) @@ -93,9 +93,12 @@ :index-type string-unique-index :index-reader find-poi :index-values all-pois :documentation "symbolischer name") - (published - :accessor poi-published :initarg :published :initform nil - :documentation "wenn dieses flag nil ist, wird der poi in den uis nicht angezeigt") + (published-web + :accessor poi-published-web :initarg :published-web :initform nil + :documentation "wenn dieses flag nil ist, wird der poi auf der Website nicht angezeigt") + (published-earth + :accessor poi-published-earth :initarg :published-earth :initform nil + :documentation "wenn dieses flag nil ist, wird der poi in Google Earth nicht angezeigt") (area :accessor poi-area :initarg :area :initform nil :documentation "polygon mit den poi-koordinaten") @@ -106,6 +109,10 @@ :accessor poi-media :initarg :media :initform nil :documentation "liste aller poi-medien, wie poi-image, poi-airal ..."))) + +(defmethod convert-slot-value-while-restoring ((object poi) (slot-name (eql 'published)) published) + (setf (slot-value object 'published-web) published)) + (deftransaction make-poi (name &rest rest &key area language title subtitle description) (declare (ignore area)) (assert (if (or title subtitle description) language t) nil @@ -116,10 +123,12 @@ (defmethod destroy-object :before ((poi poi)) (mapc #'delete-object (poi-media poi))) -(deftransaction update-poi (poi &key published icon area) - (check-type published boolean) +(deftransaction update-poi (poi &key published-web published-earth icon area) + (check-type published-web boolean) + (check-type published-earth boolean) (check-type area list) - (setf (poi-published poi) published) + (setf (poi-published-web poi) published-web + (poi-published-earth poi) published-earth) (when icon (setf (poi-icon poi) icon)) (when area @@ -191,7 +200,7 @@ (format t "var anzahlVerkauft = ~D;~%" (number-of-sold-sqm)) (format t "var pois = new Array;~%") (dolist (poi (sort (remove-if #'(lambda (poi) (or (not (poi-complete poi language)) - (not (poi-published poi)))) + (not (poi-published-web poi)))) (store-objects-with-class 'poi)) #'(lambda (poi-1 poi-2) (string-lessp (slot-string poi-1 'title language) (slot-string poi-2 'title language))))) (format t " Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:43:11 UTC (rev 3778) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 12:56:00 UTC (rev 3779) @@ -73,7 +73,8 @@ (:tr (:td "name") (:td (:princ-safe (poi-name poi)))) (:tr (:td "published") - (:td (checkbox-field "published" "published" :checked (poi-published poi)))) + (:td (checkbox-field "published-web" "published-web" :checked (poi-published-web poi)) " " + (checkbox-field "published-earth" "published-earth" :checked (poi-published-earth poi)))) (:tr (:td "title") (:td (text-field "title" :value (slot-string poi 'title language)))) @@ -88,10 +89,11 @@ (:tr (:td "location") (:td (flet ((format-chosen-url () (encode-urlencoded - (format nil "~A?action=save&language=~A&~:[~;published=on~]" + (format nil "~A?action=save&language=~A&~:[~;published-web=on~]&~:[~;published-earth=on~]" (hunchentoot:script-name*) language - (poi-published poi))))) + (poi-published-web poi) + (poi-published-earth poi))))) (cond ((poi-area poi) (html (:princ-safe (format nil "~D/~D " (first (poi-area poi)) (second (poi-area poi))))) @@ -170,7 +172,8 @@ (defmethod handle-object-form ((handler edit-poi-handler) (action (eql :save)) (poi poi)) - (with-query-params ((published nil boolean) + (with-query-params ((published-web nil boolean) + (published-earth nil boolean) title subtitle description language (x nil integer) (y nil integer) @@ -181,7 +184,8 @@ :subtitle subtitle :description description) (update-poi poi - :published published + :published-web published-web + :published-earth published-earth :area (when (and x y) (list x y)) :icon icon) (with-bos-cms-page (:title "POI has been updated") @@ -592,7 +596,7 @@ ()) (defmethod handle ((handler poi-kml-all-handler)) - (let* ((relevant-pois (remove-if-not #'(lambda (poi) (and (poi-area poi) (poi-published poi))) + (let* ((relevant-pois (remove-if-not #'(lambda (poi) (and (poi-area poi) (poi-published-earth poi))) (class-instances 'poi))) (pois-last-change (reduce #'max relevant-pois :key (lambda (poi) (store-object-last-change poi 1))))) (hunchentoot:handle-if-modified-since pois-last-change)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3778 Author: ksprotte URL: http://bknr.net/trac/changeset/3778 link to show POI in microsite more prominent U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:33:06 UTC (rev 3777) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:43:11 UTC (rev 3778) @@ -66,12 +66,12 @@ (html (:h2 "This POI is not complete in the current language - Please check that " "the location and all text fields are set and that at least 6 images " "have been uploaded."))) + (:p (cmslink (format nil "/poi-xml/~D?lang=~A" (store-object-id poi) language) + (:format "show this POI in ~A microsite" (string-upcase language)))) ((:form :method "POST" :enctype "multipart/form-data") ((:table :border "1") (:tr (:td "name") - (:td (:princ-safe (poi-name poi)) - " " - (cmslink (format nil "/poi-xml/~D?lang=~A" (store-object-id poi) language) "[view]"))) + (:td (:princ-safe (poi-name poi)))) (:tr (:td "published") (:td (checkbox-field "published" "published" :checked (poi-published poi)))) (:tr (:td "title")

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/web/poi-handlers.lisp
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3777 Author: ksprotte URL: http://bknr.net/trac/changeset/3777 poi-xml-handler is now ready for ptviewer's /poi-xml/PTDefault.html requests by using :query-function #'find-poi-or-ptdefault U trunk/projects/bos/web/poi-handlers.lisp Modified: trunk/projects/bos/web/poi-handlers.lisp =================================================================== --- trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:04:05 UTC (rev 3776) +++ trunk/projects/bos/web/poi-handlers.lisp 2008-09-03 11:33:06 UTC (rev 3777) @@ -441,9 +441,14 @@ (with-media ("movie" "Video") (with-element "url" (text (poi-movie-url movie)))))))))) +(defun find-poi-or-ptdefault (string) + (if (string= string "PTDefault.html") + :ptdefault + (find-poi string))) + (defclass poi-xml-handler (object-handler) () - (:default-initargs :object-class 'poi :query-function #'find-poi)) + (:default-initargs :query-function #'find-poi-or-ptdefault)) (defmethod handle-object ((handler poi-xml-handler) poi) @@ -455,6 +460,10 @@ (with-xml-response (:xsl-stylesheet-name "/static/poi.xsl") (write-poi-xml poi lang))))) +(defmethod handle-object ((handler poi-xml-handler) (poi (eql :ptdefault))) + "ptviewer will request /poi-xml/PTDefault.html" + ) + ;;; poi-kml-handler (defun poi-description-google-earth (poi language &key (image-width 120)) (labels ((website-path (path &rest args)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/static/poi.xsl
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3776 Author: ksprotte URL: http://bknr.net/trac/changeset/3776 replaced js Pano by ptviewer in microsite U trunk/projects/bos/payment-website/static/poi.xsl Modified: trunk/projects/bos/payment-website/static/poi.xsl =================================================================== --- trunk/projects/bos/payment-website/static/poi.xsl 2008-09-03 08:23:07 UTC (rev 3775) +++ trunk/projects/bos/payment-website/static/poi.xsl 2008-09-03 11:04:05 UTC (rev 3776) @@ -74,15 +74,15 @@ <xsl:variable name="height"><xsl:value-of select="image/height"/></xsl:variable> <div class="accordion_toggle"><xsl:value-of select="@title"/>:<xsl:value-of select="@subtitle"/></div> <div class="accordion_content"> - <div class="scrollpane" style="border: 1px solid black; width: 600px; - height:{$height}px; background-image: url({$url}); - background-position: -690px 0px; background-repeat:repeat-x;" - id="pano-{$id}"></div> - <script type="text/javascript"> - var myPano = new Pano(); - myPano.scrollPano('<xsl:value-of select="image/url"/>', 690, - <xsl:value-of select="image/height"/>, 'pano-<xsl:value-of select="image/@id"/>'); - </script> + <div class="scrollpane" style="border: 1px solid black; width: 600px; height: {$height div 2}px"> + <applet archive="/static/ptviewer.jar" + code="ptviewer.class" + width="600" + height="{$height div 2}"> + <param name="file" value="/image/{$id}"/> + <param name="quality" value="3"/> + </applet> + </div> </div> </xsl:if> <xsl:if test="@type='movie'">

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/static/poi.xsl
by BKNR Commits 03 Sep '08

03 Sep '08

Revision: 3775 Author: ksprotte URL: http://bknr.net/trac/changeset/3775 poi.xsl indentation cleanup U trunk/projects/bos/payment-website/static/poi.xsl Modified: trunk/projects/bos/payment-website/static/poi.xsl =================================================================== --- trunk/projects/bos/payment-website/static/poi.xsl 2008-09-02 15:59:30 UTC (rev 3774) +++ trunk/projects/bos/payment-website/static/poi.xsl 2008-09-03 08:23:07 UTC (rev 3775) @@ -1,47 +1,48 @@ <?xml version="1.0" encoding="UTF-8"?> <xsl:stylesheet version="2.0" -xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> - <xsl:output method="html" doctype-system="http://www.w3.org/TR/html4/strict.dtd" doctype-public="-//W3C//DTD HTML 4.01//EN" indent="yes" /> + xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> + <xsl:output method="html" doctype-system="http://www.w3.org/TR/html4/strict.dtd" + doctype-public="-//W3C//DTD HTML 4.01//EN" indent="yes" /> <xsl:template match="/"> <html> - <head> - <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> - <link href="/static/poi/bos_style.css" rel="stylesheet"> - </link> - <link href="/static/poi/highslide.css" rel="stylesheet"> - </link> - <link href="http://createrainforest.org/rss/news" rel="alternate" title="RSS Feed" type="application/rss+xml"> - </link> - <script type="text/javascript" src="/static/poi/prototype.js"></script> - <script type="text/javascript" src="/static/poi/effects.js"></script> - <script type="text/javascript" src="/static/poi/accordion.js"></script> - <script type="text/javascript" src="/static/poi/highslide.js"></script> - <script type="text/javascript" src="/static/poi/panorama.js"></script> - <script type="text/javascript" src="/static/poi/functions.js"></script> - <title><xsl:value-of select="poi/@title"/></title> - </head> - <body> - <div id="content"> - <div id="header"> - <div id="menue_banner"> - <div id="menue_header_main"> - <div class="menue">|</div> - <xsl:apply-templates select="poi/menu/entry" /> - + <head> + <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/> + <link href="/static/poi/bos_style.css" rel="stylesheet"> + </link> + <link href="/static/poi/highslide.css" rel="stylesheet"> + </link> + <link href="http://createrainforest.org/rss/news" rel="alternate" title="RSS Feed" + type="application/rss+xml"> + </link> + <script type="text/javascript" src="/static/poi/prototype.js"></script> + <script type="text/javascript" src="/static/poi/effects.js"></script> + <script type="text/javascript" src="/static/poi/accordion.js"></script> + <script type="text/javascript" src="/static/poi/highslide.js"></script> + <script type="text/javascript" src="/static/poi/panorama.js"></script> + <script type="text/javascript" src="/static/poi/functions.js"></script> + <title><xsl:value-of select="poi/@title"/></title> + </head> + <body> + <div id="content"> + <div id="header"> + <div id="menue_banner"> + <div id="menue_header_main"> + <div class="menue">|</div> + <xsl:apply-templates select="poi/menu/entry" /> + + </div> + </div> </div> + <div id="content_main"> + <div class="description_content"> + <div class="description_header"><xsl:value-of select="poi/@title"/></div> + <div class="description_subheader"><xsl:value-of select="poi/@subtitle"/></div> + <xsl:value-of select="poi/description"/> </div> + <xsl:apply-templates select="poi/media" /> + </div> + <div class="clearer"></div> </div> - </div> - <div id="content_main"> - <div class="description_content"> - <div class="description_header"><xsl:value-of select="poi/@title"/></div> - <div class="description_subheader"><xsl:value-of select="poi/@subtitle"/></div> - <xsl:value-of select="poi/description"/> </div> - <xsl:apply-templates select="poi/media" /> - - </div> - <div class="clearer"></div> - </div> - </body> + </body> </html> </xsl:template>  @@ -63,7 +64,8 @@ <xsl:variable name="width"><xsl:value-of select="image/width"/></xsl:variable> <xsl:variable name="height"><xsl:value-of select="image/height"/></xsl:variable> <div class="accordion_toggle"><xsl:value-of select="@title"/>:<xsl:value-of select="@subtitle"/></div> - <div class="accordion_content"><img class="airal" src="{$url}" alt="{$title}" title="{$title}" height="{$height}" width="{$width}"></img></div> + <div class="accordion_content"><img class="airal" src="{$url}" alt="{$title}" title="{$title}" + height="{$height}" width="{$width}"></img></div> </xsl:if> <xsl:if test="@type='panorama'"> <xsl:variable name="id"><xsl:value-of select="image/@id"/></xsl:variable> @@ -72,10 +74,14 @@ <xsl:variable name="height"><xsl:value-of select="image/height"/></xsl:variable> <div class="accordion_toggle"><xsl:value-of select="@title"/>:<xsl:value-of select="@subtitle"/></div> <div class="accordion_content"> - <div class="scrollpane" style="border: 1px solid black; width: 600px; height:{$height}px; background-image: url({$url}); background-position: -690px 0px; background-repeat:repeat-x;" id="pano-{$id}"></div> + <div class="scrollpane" style="border: 1px solid black; width: 600px; + height:{$height}px; background-image: url({$url}); + background-position: -690px 0px; background-repeat:repeat-x;" + id="pano-{$id}"></div> <script type="text/javascript"> - var myPano = new Pano(); - myPano.scrollPano('<xsl:value-of select="image/url"/>', 690, <xsl:value-of select="image/height"/>, 'pano-<xsl:value-of select="image/@id"/>'); + var myPano = new Pano(); + myPano.scrollPano('<xsl:value-of select="image/url"/>', 690, + <xsl:value-of select="image/height"/>, 'pano-<xsl:value-of select="image/@id"/>'); </script> </div> </xsl:if> @@ -95,14 +101,16 @@ <xsl:template match="entry"> <xsl:variable name="title"><xsl:value-of select="@title"/></xsl:variable> <xsl:variable name="href"><xsl:value-of select="@href"/></xsl:variable> - <div class="menue"><a class="menuelink" href="{$href}" shape="rect" target="_blank" ><xsl:value-of select="$title"/></a></div> + <div class="menue"><a class="menuelink" href="{$href}" shape="rect" target="_blank" > + <xsl:value-of select="$title"/></a></div> <div class="menue">|</div> </xsl:template> <xsl:template match="image"> <xsl:variable name="id"><xsl:value-of select="@id"/></xsl:variable> <xsl:variable name="url"><xsl:value-of select="url"/></xsl:variable> <xsl:variable name="title"><xsl:value-of select="@title"/></xsl:variable> - <a id="thumb{$id}" href="{$url}" class="highslide" onClick="return hs.expand(this)"><img src="{$url}" alt="{$title}" title="{$title}" height="75" width="75"></img></a> + <a id="thumb{$id}" href="{$url}" class="highslide" onClick="return hs.expand(this)"> + <img src="{$url}" alt="{$title}" title="{$title}" height="75" width="75"></img></a> <div class='highslide-caption'> <div class="img-title"><xsl:value-of select="@title"/></div> <div class="img-subtitle"><xsl:value-of select="@subtitle"/></div>

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs September 2008