Index: openacs-4/packages/imsld/tcl/imsld-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/imsld/tcl/imsld-procs.tcl	4 Oct 2005 13:45:40 -0000	1.4
+++ openacs-4/packages/imsld/tcl/imsld-procs.tcl	5 Oct 2005 14:13:01 -0000	1.5
@@ -136,7 +136,7 @@
     # get the url for parse it and get the info
     set url [ns_conn url]
     regexp {finish-component-element-([0-9]+)-([0-9]+)-([0-9]+)-([a-z]+).imsld$} $url match imsld_id role_part_id element_id type
-    regsub {finish-component-element.*} $url "" return_url 
+    regsub {/finish-component-element.*} $url "" return_url 
     set user_id [ad_conn user_id]
     # now that we have the necessary info, mark the finished element completed and return
     db_dml insert_entry {
@@ -167,7 +167,6 @@
     
     @return The list (activity_name, list of associated urls) of the next activity for the user in the IMS-LD.
 } {
-    set community_id 2148
     set community_id [expr { [empty_string_p $community_id] ? "[dotlrn_community::get_community_id]" : $community_id }]
     # Gets file-storage root folder_id
     set fs_package_id [site_node_apm_integration::get_child_package_id \
@@ -373,7 +372,7 @@
                 where fs.live_revision = :imsld_file_id
             }]
             set file_url "[ad_url][apm_package_url_from_id $fs_package_id]view/${file_url}"
-            append activity_urls "<#_ <li> % <a href=[export_vars -base $file_url]> % $file_name % </a> \[ <a href=[ad_url][ad_conn url]finish-component-element-${imsld_id}-${role_part_id}-${activity_id}-learning.imsld>finishim!oo</a> \] </li> #>"
+            append activity_urls "<#_ <li> % <a href=[export_vars -base $file_url]> % $file_name % </a> \[ <a href=[ad_url][ad_conn url]/finish-component-element-${imsld_id}-${role_part_id}-${activity_id}-learning.imsld>finishim!</a> \] </li> #>"
         } if_no_rows {
             # the activity doesn't have any resource associated, display the default page
             append activity_urls "<#_ <li> desc (no file associated) </li> #>"
Index: openacs-4/packages/imsld/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/imsld/www/index.tcl	4 Oct 2005 13:45:40 -0000	1.5
+++ openacs-4/packages/imsld/www/index.tcl	5 Oct 2005 14:13:02 -0000	1.6
@@ -3,7 +3,7 @@
 
 set page_title index
 set context {}
-set community_id 2148
+set community_id [dotlrn_community::get_community_id]
 
 db_multirow imslds_in_class get_manifests {
     select cr3.item_id as imsld_id,
Index: openacs-4/packages/imsld/www/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/Attic/test.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/www/test.tcl	4 Oct 2005 13:45:40 -0000	1.2
+++ openacs-4/packages/imsld/www/test.tcl	5 Oct 2005 14:13:02 -0000	1.3
@@ -15,12 +15,9 @@
 if {2==2} {
     ############## BEGIN
     # THIS CALLS MUST BE DONE IN DOTLRN APLET ADD APPLET TO COMMUNITY
-    set community_id 2148
+    set community_id 2146
     
     # create relationship: dotLRN Community - IMS LD Manifests
-    rel_types::new imsld_community_manifest_rel "dotLRN Community - IMS LD Manifests rel" "dotLRN Community - IMS LD Manifests rels"  \
-        [acs_object::get_element -object_id $community_id -element object_type] 0 {} \
-    content_item 0 {}
     
     ############## END
 } else {
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]