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.1 -r1.2
--- openacs-4/packages/invoices/www/price-list.tcl	16 Aug 2005 20:04:34 -0000	1.1
+++ openacs-4/packages/invoices/www/price-list.tcl	6 Sep 2005 23:01:24 -0000	1.2
@@ -4,12 +4,19 @@
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-06-06
 } {
-    {list_id:notnull}
+    {list_id:integer,optional ""}
+    {organization_id:integer,optional ""}
 } -properties {
     context:onevalue
     page_title:onevalue
 }
 
+set package_id [ad_conn 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]
+}
+
 set user_id [auth::require_login]
 db_1row list_title {}
 set page_title $list_title