Index: openacs-4/packages/accounts-finance/tcl/finance-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/accounts-finance/tcl/finance-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/accounts-finance/tcl/finance-procs.tcl	26 May 2010 23:53:27 -0000	1.9
+++ openacs-4/packages/accounts-finance/tcl/finance-procs.tcl	5 Jun 2010 02:00:11 -0000	1.10
@@ -413,7 +413,6 @@
     units done = number of units produced, amount of miles driven etc.
     The various depreciations are referenced from one function so that multiple depreciation scenarios can be easily referenced within model variations.
 } {
-# proc acc_fin::qaf_depreciation_schedule {     depreciation_type original_cost {scrap_value ""} {depreciation_rate ""} {units_of_activity ""} {units_done ""} } {
     set depreciation_list [list]
     # convert units_done and depreciation_rate to lists, if they are supplied that way
     if { [llength $units_done] > 1 } {
Index: openacs-4/packages/accounts-finance/tcl/modeling-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/accounts-finance/tcl/modeling-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/accounts-finance/tcl/modeling-procs.tcl	4 Jun 2010 21:58:03 -0000	1.5
+++ openacs-4/packages/accounts-finance/tcl/modeling-procs.tcl	5 Jun 2010 02:00:11 -0000	1.6
@@ -590,9 +590,7 @@
   }
 }
 
-}
 
-
 ad_proc -private acc_fin::gl_tx_balanced {
     transaction_list 
 } {
@@ -637,12 +635,6 @@
 
 
 
-# create procs for?
-# AR/
-# AR/sale  1000 x, 1200 -x, 1200 x, 4000 x
-# AP/vendor payment cash  1000 -x ,2100 x, 2100 -x, 5000 x
-# ..let's wait until we know if this is necessary. gl_tx seems adequate for now.
-
 # system energy output 
 # revenue from energy output