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 -N -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 "<#_
  • % % $file_name % \[ finishim!oo \]
  • #>" + append activity_urls "<#_
  • % % $file_name % \[ finishim! \]
  • #>" } if_no_rows { # the activity doesn't have any resource associated, display the default page append activity_urls "<#_
  • desc (no file associated)
  • #>"