Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl 9 May 2002 23:59:54 -0000 1.6 +++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl 12 May 2002 18:15:04 -0000 1.7 @@ -29,7 +29,7 @@ namespace eval static_portal_content { ad_proc -public new { - {-instance_id:required} + {-package_id:required} {-content:required} {-pretty_name:required} } { @@ -40,7 +40,7 @@ declare begin :1 := static_portal_content_item.new( - instance_id => :instance_id, + package_id => :package_id, content => :content, pretty_name => :pretty_name ); @@ -119,13 +119,13 @@ }] } - ad_proc -public get_instance_id { + ad_proc -public get_package_id { {-content_id:required} } { - Get the instance_id of the item + Get the package_id of the item } { - return [db_string get_instance_id.select { - select instance_id + return [db_string get_package_id.select { + select package_id from static_portal_content where content_id = :content_id }]