Index: openacs-4/packages/imsld/www/admin/imsld-new-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/Attic/imsld-new-3.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/imsld/www/admin/imsld-new-3.tcl	4 Oct 2005 13:45:41 -0000	1.6
+++ openacs-4/packages/imsld/www/admin/imsld-new-3.tcl	5 Oct 2005 14:13:02 -0000	1.7
@@ -32,9 +32,9 @@
 # Atempting to create the new IMS LD.
 # The proc imsld::parse::parse_and_create_imsld_manifest return a pair of values (manifest_id and a message)
 set manifest_list [imsld::parse::parse_and_create_imsld_manifest -xmlfile $tmp_dir/imsmanifest.xml \
-                    -manifest_id $manifest_id \
-                    -tmp_dir $tmp_dir \
-                    -community_id 2148]
+                       -manifest_id $manifest_id \
+                       -tmp_dir $tmp_dir \
+                       -community_id [dotlrn_community::get_community_id]]
 
 set manifest_id [lindex $manifest_list 0]