Index: openacs-4/packages/invoices/lib/offer-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/offer-list.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/invoices/lib/offer-list.tcl 31 Dec 2005 07:36:24 -0000 1.9 +++ openacs-4/packages/invoices/lib/offer-list.tcl 29 Jan 2006 14:21:57 -0000 1.10 @@ -47,14 +47,13 @@ append row_list "$element {}\n" } +set pm_base_url "" if {[exists_and_not_null organization_id]} { set dotlrn_club_id [lindex [application_data_link::get_linked -from_object_id $organization_id -to_object_type "dotlrn_club"] 0] if {$dotlrn_club_id > 0} { set pm_base_url [apm_package_url_from_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]] } -} else { - set pm_base_url "" } #set package_id [ad_conn package_id]