Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 8 Nov 2001 05:42:56 -0000 1.2
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl 11 Nov 2001 02:01:39 -0000 1.3
@@ -1,10 +1,10 @@
# /tcl/rss-defs.tcl
ad_library {
procs to generate rss feeds
- procs to help with rssness
@author jerry@theashergroup.com [jerry@theashergroup.com]
+ @author aegrumet@alum.mit.edu
@creation-date Fri Oct 26 11:43:26 2001
- @cvs-id
+ @cvs-id $Id
}
@@ -14,12 +14,6 @@
# and item information
###
-#Convert to ad_register_proc if we plan to keep.
-#ns_register_proc GET /*.rss ns_sourceproc
-#ns_register_proc POST /*.rss ns_sourceproc
-#ns_register_proc HEAD /*.rss ns_sourceproc
-#ns_register_proc PUT /*.rss ns_putscript
-
ad_proc rss_gen_100 {
{
-channel_title ""
@@ -96,12 +90,12 @@
if {[empty_string_p $image]} {
- set logo_rss "/graphics/openacs_logo_rss.gif"
- set url [ad_url]
- append url $logo_rss
+ set base images/openacs_logo_rss.gif
+ set url [ad_url][rss_package_url]$base
set title $channel_title
set link $channel_link
- set size [ns_gifsize [ns_url2file $logo_rss]]
+ set size [ns_gifsize [get_server_root]/packages/rss-support/www/$base]
+
set image [list \
url $url \
title $title \
@@ -270,12 +264,12 @@
}
if {[empty_string_p $image]} {
- set logo_rss "/graphics/openacs_logo_rss.gif"
- set url [ad_url]
- append url $logo_rss
+ set base images/openacs_logo_rss.gif
+ set url [ad_url][rss_package_url]$base
set title $channel_title
set link $channel_link
- set size [ns_gifsize [ns_url2file $logo_rss]]
+ set size [ns_gifsize [get_server_root]/packages/rss-support/www/$base]
+
set image [list \
url $url \
title $title \
@@ -402,7 +396,7 @@
1.00 -
1.0 -
1 {
- set rss [rss_gen_100 \
+ append rss [rss_gen_100 \
-channel_title $channel_title \
-channel_link $channel_link \
-channel_description $channel_description \
@@ -412,7 +406,7 @@
}
default {
- set rss [rss_gen_091 \
+ append rss [rss_gen_091 \
-channel_title $channel_title \
-channel_link $channel_link \
-channel_description $channel_description \
@@ -434,204 +428,28 @@
return $rss
}
-proc_doc rss_lang_widget {{selected_lang en}} {
- creates an html-select field widget with lots of html language
- choices in it
+
+ad_proc rss_package_id {} {
+
+ # Returns the package_id for rss if it is rss is mounted.
+ # Returns 0 otherwise.
+
} {
- foreach {value lang} {
- af {Afrikaans}
- sq {Albanian}
- eu {Basque}
- be {Belarusian}
- bg {Bulgarian}
- ca {Catalan}
- zh-cn {Chinese (Simplified)}
- zh-tw {Chinese (Traditional)}
- hr {Croatian}
- cs {Czech}
- da {Danish}
- nl {Dutch}
- nl-be {Dutch (Belgium)}
- nl-nl {Dutch (Netherlands)}
- en {English}
- en-au {English (Australia)}
- en-bz {English (Belize)}
- en-ca {English (Canada)}
- en-ie {English (Ireland)}
- en-jm {English (Jamaica)}
- en-nz {English (New Zealand)}
- en-ph {English (Phillipines)}
- en-za {English (South Africa)}
- en-tt {English (Trinidad)}
- en-gb {English (United Kingdom)}
- en-us {English (United States)}
- en-zw {English (Zimbabwe)}
- fo {Faeroese}
- fi {Finnish}
- fr {French}
- fr-be {French (Belgium)}
- fr-ca {French (Canada)}
- fr-fr {French (France)}
- fr-lu {French (Luxembourg)}
- fr-mc {French (Monaco)}
- fr-ch {French (Switzerland)}
- gl {Galician}
- gd {Gaelic}
- de {German}
- de-at {German (Austria)}
- de-de {German (Germany)}
- de-li {German (Liechtenstein)}
- de-lu {German (Luxembourg)}
- de-ch {German (Switzerland)}
- el {Greek}
- hu {Hungarian}
- is {Icelandic}
- in {Indonesian}
- ga {Irish}
- it {Italian}
- it-it {Italian (Italy)}
- it-ch {Italian (Switzerland)}
- ja {Japanese}
- ko {Korean}
- mk {Macedonian}
- no {Norwegian}
- pl {Polish}
- pt {Portuguese}
- pt-br {Portuguese (Brazil)}
- pt-pt {Portuguese (Portugal)}
- ro {Romanian}
- ro-mo {Romanian (Moldova)}
- ro-ro {Romanian (Romania)}
- ru {Russian}
- ru-mo {Russian (Moldova)}
- ru-ru {Russian (Russia)}
- sr {Serbian}
- sk {Slovak}
- sl {Slovenian}
- es {Spanish}
- es-ar {Spanish (Argentina)}
- es-bo {Spanish (Bolivia)}
- es-cl {Spanish (Chile)}
- es-co {Spanish (Colombia)}
- es-cr {Spanish (Costa Rica)}
- es-do {Spanish (Dominican Republic)}
- es-ec {Spanish (Ecuador)}
- es-sv {Spanish (El Salvador)}
- es-gt {Spanish (Guatemala)}
- es-hn {Spanish (Honduras)}
- es-mx {Spanish (Mexico)}
- es-ni {Spanish (Nicaragua)}
- es-pa {Spanish (Panama)}
- es-py {Spanish (Paraguay)}
- es-pe {Spanish (Peru)}
- es-pr {Spanish (Puerto Rico)}
- es-es {Spanish (Spain)}
- es-uy {Spanish (Uruguay)}
- es-ve {Spanish (Venezuela)}
- sv {Swedish}
- sv-fi {Swedish (Finland)}
- sv-se {Swedish (Sweden)}
- tr {Turkish}
- uk {Ukranian}
- } {
-
- if {[string equal $value $selected_lang]} {
- set selected SELECTED
- } else {
- set selected ""
- }
-
- lappend options "