Index: openacs-4/contrib/packages/simulation/lib/sim-objects.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/sim-objects.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/contrib/packages/simulation/lib/sim-objects.tcl 18 Nov 2003 14:58:49 -0000 1.7 +++ openacs-4/contrib/packages/simulation/lib/sim-objects.tcl 18 Nov 2003 15:59:11 -0000 1.8 @@ -17,6 +17,8 @@ set package_id [ad_conn package_id] +set add_url [export_vars -base "[ad_conn package_url]citybuild/object-edit" { parent_id }] + if { ![exists_and_not_null parent_id] } { set parent_id [bcms::folder::get_id_by_package_id -parent_id 0] } @@ -74,8 +76,6 @@ set filter_sql "" } -set add_url [export_vars -base "[apm_package_url_from_id $package_id]citybuild/object-edit" { parent_id }] - template::list::create \ -name objects \ -multirow objects \ @@ -115,5 +115,3 @@ } } } - -