Index: openacs-4/packages/xowiki/www/portlets/tags.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/Attic/tags.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/xowiki/www/portlets/tags.tcl 17 Aug 2006 01:44:26 -0000 1.2 +++ openacs-4/packages/xowiki/www/portlets/tags.tcl 12 Sep 2006 12:01:24 -0000 1.3 @@ -28,14 +28,17 @@ set sql "select count(*) as nr,tag from xowiki_tags where \ user_id=$user_id and package_id=$package_id group by tag order by tag" } - set content "

$label

" set entries [list] db_foreach get_counts $sql { set s [expr {$summary ? "&summary=$summary" : ""}] - set href [ad_conn url]?$tag_type=[ad_urlencode $tag]$s + set href [::$package_id url]?$tag_type=[ad_urlencode $tag]$s lappend entries "$tag ($nr)" } - append content "[join $entries {, }]
\n" + set content "" + if {[llength $entries]>0} { + append content "

$label

" \ + "[join $entries {, }]
\n" + } return $content } @@ -45,7 +48,7 @@ set summary [ns_queryget summary 0] set content [::xowiki::Page __render_html \ -folder_id [$__including_page set parent_id] \ - -user_id [ad_conn user_id] \ + -user_id [::xo::cc user_id] \ -summary $summary \ -limit $limit \ -popular [info exists popular] \