Index: openacs-4/packages/lars-blogger/www/blog.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/lars-blogger/www/blog.tcl	21 Oct 2003 20:31:07 -0000	1.16
+++ openacs-4/packages/lars-blogger/www/blog.tcl	5 Feb 2004 17:46:10 -0000	1.16.2.1
@@ -5,8 +5,11 @@
 #  archive_interval:optional
 #  archive_date:optional
 #  screen_name:optional
+#  max_num_entries: optional
+#  min_num_entries: optional
+#  num_days: optional
+#  max_content_length:integer,optional
 
-
 # If the caller specified a URL, then we gather the package_id from that URL
 if { [info exists url] } {
     array set blog_site_node [site_node $url]
@@ -33,27 +36,31 @@
     set blog_user_id [cc_screen_name_user $screen_name]
 }
 
-# TODO:
-# - Upgrade the installed package to get the latest parameters
-# - Test on PG and Oracle
+if { ![exists_and_not_null max_num_entries] } {
+    set max_num_entries [parameter::get \
+                             -package_id $package_id \
+                             -parameter MaxNumEntriesOnFrontPage \
+                             -default {}]
+}
 
+if { ![exists_and_not_null min_num_entries] } {
+    set min_num_entries [parameter::get \
+                             -package_id $package_id \
+                             -parameter MinNumEntriesOnFrontPage \
+                             -default {}]
+}
 
-set max_num_entries [parameter::get \
-                       -package_id $package_id \
-                       -parameter MaxNumEntriesOnFrontPage \
-                       -default {}]
+if { ![exists_and_not_null num_days] } {
+    set num_days [parameter::get \
+                      -package_id $package_id \
+                      -parameter NumDaysOnFrontPage \
+                      -default {}]
+}
 
-set min_num_entries [parameter::get \
-                         -package_id $package_id \
-                         -parameter MinNumEntriesOnFrontPage \
-                         -default {}]
-
-set num_days [parameter::get \
-                  -package_id $package_id \
-                  -parameter NumDaysOnFrontPage \
-                  -default {}]
+if { ![exists_and_not_null max_content_length] } {
+    set max_content_length 0
+}        
         
-        
 
 if { ![info exists type] } {
     set type "current"
@@ -143,4 +150,6 @@
 
 set header_background_color [lars_blog_header_background_color -package_id $package_id]
 
-set stylesheet_url [lars_blog_stylesheet_url]
+set stylesheet_url [lars_blog_stylesheet_url -package_id $package_id]
+
+set rss_file_url [lars_blogger::get_rss_file_url -package_id $package_id]