Index: openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl	5 Jun 2006 11:34:17 -0000	1.17
+++ openacs-4/packages/invoices/tcl/invoices-callback-procs.tcl	19 Oct 2006 17:06:49 -0000	1.18
@@ -370,18 +370,14 @@
 
 	    set root_folder_id [lindex [application_data_link::get_linked -from_object_id $organization_id -to_object_type content_folder] 0]
 	    foreach folder {invoices offers accepted} {
-		if {[empty_string_p [fs::get_folder -name $folder -parent_id $root_folder_id]]} {
+		if {[empty_string_p [fs::get_folder -name "${folder}_${root_folder_id}" -parent_id $root_folder_id]]} {
 		    set folder_id [fs::new_folder \
 				       -name "${folder}_${root_folder_id}" \
 				       -pretty_name "#invoices.${folder}#" \
 				       -parent_id $root_folder_id \
 				       -no_callback]
 		}
 	    }
-
-	    foreach package_id [apm_package_id_from_key invoices] {
-		iv::offer::new_credit -organization_id $organization_id -package_id $package_id
-	    }
 	}
     }
 }