Index: openacs-4/packages/invoices/tcl/price-list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/price-list-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/invoices/tcl/price-list-procs.tcl	16 Aug 2005 20:04:32 -0000	1.1
+++ openacs-4/packages/invoices/tcl/price-list-procs.tcl	11 Oct 2005 15:23:28 -0000	1.2
@@ -12,6 +12,7 @@
     {-title ""}
     {-description ""}
     {-currency ""}
+    {-credit_percent "0"}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-06-06
@@ -36,7 +37,8 @@
 			-title $title \
 			-description $description \
 			-attributes [list \
-					 [list currency $currency] ] ]
+					 [list currency $currency] \
+					 [list credit_percent $credit_percent] ] ]
     }
 
     return $new_id
@@ -47,6 +49,7 @@
     {-title ""}
     {-description ""}
     {-currency ""}
+    {-credit_percent "0"}
 } {
     @author Timo Hentschel (timo@timohentschel.de)
     @creation-date 2005-06-06
@@ -60,7 +63,8 @@
 			    -title $title \
 			    -description $description \
 			    -attributes [list \
-					     [list currency $currency] ] ]
+					     [list currency $currency] \
+					     [list credit_percent $credit_percent] ] ]
     }
 
     return $new_rev_id