Index: openacs-4/packages/lars-blogger/www/one-entry.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/one-entry.tcl,v diff -u -r1.14 -r1.14.4.1 --- openacs-4/packages/lars-blogger/www/one-entry.tcl 20 Feb 2004 05:43:02 -0000 1.14 +++ openacs-4/packages/lars-blogger/www/one-entry.tcl 17 Mar 2004 16:50:07 -0000 1.14.4.1 @@ -1,14 +1,12 @@ -ad_page_contract {} { +ad_page_element_contract {} { entry_id:integer {return_url {[ad_return_url]}} } -set package_id [ad_conn package_id] - -set show_poster_p [ad_parameter "ShowPosterP" "" "1"] - lars_blogger::entry::get -entry_id $entry_id -array blog +set package_id $blog(package_id) + # SWC set sw_category_multirow "__branimir__multirow__blog/$entry_id" @@ -50,7 +48,5 @@ set context [list $screen_name] } -set header_background_color [lars_blog_header_background_color] +set stylesheet_url [lars_blog_stylesheet_url -package_id $package_id] -set stylesheet_url [lars_blog_stylesheet_url] -