Index: openacs-4/packages/new-portal/tcl/portal-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-callback-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/new-portal/tcl/portal-callback-procs.tcl 12 Jul 2018 09:03:47 -0000 1.4 +++ openacs-4/packages/new-portal/tcl/portal-callback-procs.tcl 25 Nov 2024 14:46:44 -0000 1.5 @@ -34,7 +34,7 @@ and name = 'static_portlet' and pep.element_id = pem.element_id and pep.key = 'package_id' - and pep.value = spc.package_id + and cast(pep.value as integer) = spc.package_id } { append bodies [ad_html_text_convert -from text/html -to text/plain -- $body] } @@ -56,7 +56,7 @@ } { # TODO implement me - return "[ad_url][db_string implement_me {}]" + return [ad_url] }