Index: openacs-4/packages/static-portlet/www/static-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/static-admin-portlet.tcl,v diff -u -r1.19 -r1.20 --- openacs-4/packages/static-portlet/www/static-admin-portlet.tcl 20 Apr 2004 21:13:56 -0000 1.19 +++ openacs-4/packages/static-portlet/www/static-admin-portlet.tcl 15 May 2007 20:14:53 -0000 1.20 @@ -52,16 +52,20 @@ -parameter static_admin_portlet_element_pretty_name \ -default [_ static-portlet.admin_portlet_element_pretty_name]] - db_multirow content select_content { + set applet_url "[dotlrn_applet::get_url]/[static_portlet::my_package_key]" + + set create_url [export_vars -base $applet_url/element {{portal_id $template_portal_id} package_id referer}] + + db_multirow -extend edit_url content select_content { select content_id, pretty_name from static_portal_content where package_id = :package_id } { set class_instances_pretty_name [_ dotlrn.class_instances_pretty_name] set pretty_name [lang::util::localize $pretty_name] + + set edit_url [export_vars -base $applet_url/element {{portal_id $template_portal_id} {content_id $content_id} referer}] } - set applet_url "[dotlrn_applet::get_url]/[static_portlet::my_package_key]" - }