|
Revision 3557, 0.8 kB
(checked in by hans, 4 months ago)
|
Sessionless request language handling.
|
| Line | |
|---|
| 1 |
(in-package :bos.m2) |
|---|
| 2 |
|
|---|
| 3 |
(defmethod rss-item-channel ((item news-item)) |
|---|
| 4 |
"news") |
|---|
| 5 |
|
|---|
| 6 |
(defmethod rss-item-published ((item news-item)) |
|---|
| 7 |
(news-item-published item (bos.web::request-language))) |
|---|
| 8 |
|
|---|
| 9 |
(defmethod rss-item-title ((item news-item)) |
|---|
| 10 |
(news-item-title item (bos.web::request-language))) |
|---|
| 11 |
|
|---|
| 12 |
(defmethod rss-item-description ((item news-item)) |
|---|
| 13 |
(news-item-text item (bos.web::request-language))) |
|---|
| 14 |
|
|---|
| 15 |
(defmethod rss-item-link ((item news-item)) |
|---|
| 16 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (bos.web::request-language) (store-object-id item))) |
|---|
| 17 |
|
|---|
| 18 |
(defmethod rss-item-guid ((item news-item)) |
|---|
| 19 |
(format nil "http://createrainforest.org/~A/news-extern/~A" (bos.web::request-language) (store-object-id item))) |
|---|
| 20 |
|
|---|
| 21 |
(defmethod rss-item-pub-date ((item news-item)) |
|---|
| 22 |
(news-item-time item)) |
|---|
