Index: openacs-4/packages/invoices/www/invoice-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-ae.tcl,v
diff -u -N -r1.33 -r1.34
--- openacs-4/packages/invoices/www/invoice-ae.tcl	5 Jun 2006 14:07:36 -0000	1.33
+++ openacs-4/packages/invoices/www/invoice-ae.tcl	18 Jun 2006 11:42:26 -0000	1.34
@@ -314,7 +314,7 @@
 
 	# get all subprojects marked for no invoice to display warning
 	foreach main_project_id $project_id {
-	    set subprojects [pm::project:subprojects -project_id $main_project_id]
+	    set subprojects [pm::project::subprojects -project_item_id $main_project_id]
 
 	    db_foreach not_invoiceable_subprojects {} {
 		set offer_url [export_vars -base offer-ae {offer_id {mode display}}]