Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v diff -u -N -r1.427 -r1.428 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 2 Feb 2011 22:16:27 -0000 1.427 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 7 Feb 2011 22:28:45 -0000 1.428 @@ -1787,7 +1787,6 @@ if {[my exists __no_footer]} {return ""} set footer "" - set description [my get_description $content] if {[ns_conn isconnected]} { set url "[ns_conn location][::xo::cc url]" @@ -1809,11 +1808,13 @@ } if {[$package_id get_parameter "with_digg" 0] && [info exists url]} { + if {![info exists description]} {set description [my get_description $content]} append footer "
" \ [my include [list digg -description $description -url $url]] "
\n" } if {[$package_id get_parameter "with_delicious" 0] && [info exists url]} { + if {![info exists description]} {set description [my get_description $content]} append footer "
" \ [my include [list delicious -description $description -url $url -tags $tags]] \ "
\n"