Index: openacs-4/packages/invoices/catalog/invoices.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/catalog/invoices.de_DE.ISO-8859-1.xml,v diff -u -r1.6 -r1.7 --- openacs-4/packages/invoices/catalog/invoices.de_DE.ISO-8859-1.xml 11 Oct 2005 15:23:28 -0000 1.6 +++ openacs-4/packages/invoices/catalog/invoices.de_DE.ISO-8859-1.xml 12 Oct 2005 13:25:34 -0000 1.7 @@ -9,7 +9,8 @@ Betrag Gesamtsumme Mehrwertsteuer? - Zurueck zum projekt + Zur�ck + Zur�ck zum projekt Zur�ck zu %year% Zur�ck zu den Jahren Abzurechnende Projekte Index: openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml,v diff -u -r1.6 -r1.7 --- openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml 11 Oct 2005 15:23:28 -0000 1.6 +++ openacs-4/packages/invoices/catalog/invoices.en_US.ISO-8859-1.xml 12 Oct 2005 13:25:34 -0000 1.7 @@ -10,6 +10,7 @@ Amount sum Total Amount Apply VAT? + Back Back to project Back to %year% Back to Years Index: openacs-4/packages/invoices/lib/price-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/lib/price-list.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/invoices/lib/price-list.tcl 6 Sep 2005 22:59:40 -0000 1.2 +++ openacs-4/packages/invoices/lib/price-list.tcl 12 Oct 2005 13:25:34 -0000 1.3 @@ -1,10 +1,25 @@ -set package_id [ad_conn package_id] +if {![exists_and_not_null package_id]} { + set package_id [apm_package_id_from_key invoices] +} +if {![exists_and_not_null base_url]} { + set base_url [apm_package_url_from_id $package_id] +} +if {![info exists return_url]} { + set contacts_url [apm_package_url_from_key contacts] + set return_url $contacts_url + set return_url "" +} + set language [lang::conn::language] db_1row currency {} array set container_objects [iv::util::get_default_objects -package_id $package_id] -set actions [list "[_ invoices.iv_price_Edit]" [export_vars -base "price-ae" {list_id}] "[_ invoices.iv_price_Edit]"] +set actions [list "[_ invoices.iv_price_Edit]" [export_vars -base "${base_url}price-ae" {list_id}] "[_ invoices.iv_price_Edit]"] +if {![empty_string_p $return_url]} { + lappend actions "[_ invoices.back]" $return_url "[_ invoices.back]" +} + template::list::create \ -name iv_price \ -key category_id \ Index: openacs-4/packages/invoices/www/price-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/price-list.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/invoices/www/price-list.adp 6 Sep 2005 23:01:24 -0000 1.2 +++ openacs-4/packages/invoices/www/price-list.adp 12 Oct 2005 13:25:34 -0000 1.3 @@ -1,7 +1,9 @@ - + @organization_id@ - + + + @page_title;noquote@ @context;noquote@ Index: openacs-4/packages/invoices/www/price-list.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/price-list.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/invoices/www/price-list.tcl 6 Sep 2005 23:01:24 -0000 1.2 +++ openacs-4/packages/invoices/www/price-list.tcl 12 Oct 2005 13:25:34 -0000 1.3 @@ -12,6 +12,8 @@ } set package_id [ad_conn package_id] +set contact_package_id [apm_package_id_from_key contacts] +set contact_master [parameter::get -parameter ContactMaster -package_id $contact_package_id] if {[empty_string_p $list_id]} { set list_id [iv::price_list::get_list_id -organization_id $organization_id -package_id $package_id]