Index: openacs-4/packages/lars-blogger/lib/last-n-comments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/lib/last-n-comments.tcl,v
diff -u -r1.1 -r1.1.4.1
--- openacs-4/packages/lars-blogger/lib/last-n-comments.tcl	13 Dec 2003 20:06:14 -0000	1.1
+++ openacs-4/packages/lars-blogger/lib/last-n-comments.tcl	17 Mar 2004 16:49:57 -0000	1.1.4.1
@@ -1,11 +1,17 @@
-set package_id [ad_conn package_id]
+ad_page_element_contract {
+    Dipslay the mini-calendar for a blog
+} {
+    {package_id:optional {[ad_conn package_id]}}
+    number_of_comments:optional
+}
 
 if { ![exists_and_not_null number_of_comments] || $number_of_comments == 0 } {
     set number_of_comments [parameter::get \
                                 -default 10 \
+                                -package_id $package_id \
                                 -parameter NumberOfCommentsInIncludelet]
 }
 
-db_multirow -extend {entry_url} comments select_n_comments "" {
-    set entry_url "[ad_url][lars_blog_public_package_url]/one-entry?[export_vars entry_id]"
-}
\ No newline at end of file
+db_multirow -extend { entry_url } comments select_n_comments {} {
+    set entry_url [export_vars -base "[ad_url][lars_blog_public_package_url -package_id $package_id]/one-entry" { entry_id }]
+}