Index: openacs-4/packages/lorsm/www/delivery/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/lorsm/www/delivery/index.tcl	14 Feb 2009 22:33:20 -0000	1.17
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	28 Apr 2009 15:24:15 -0000	1.18
@@ -13,6 +13,7 @@
     menu_off:integer,notnull,optional
     item_id:integer,notnull,optional
     ims_id:integer,notnull,optional
+    {return_url ""}
 } -properties {
 } -validate {
 } -errors {
@@ -42,7 +43,7 @@
 } else {
     if { $menu_off == 0 } {
         ad_set_client_property lorsm ims_id ""
-        ns_log notice "UNSETTING LORSM IMS_ID '[ad_conn url]'"
+        ns_log debug "UNSETTING LORSM IMS_ID '[ad_conn url]'"
     } else {
         #given menu_off without ims_id, i have to provide a default one!
         #since an ims_item_id wasn't provided, we just pick up the first one
@@ -84,7 +85,10 @@
 }
 
 set community_id [lors::get_community_id]
-set return_url [lors::get_community_url]
+if { $return_url eq "" } {
+    set return_url [lors::get_community_url]
+}
+ad_set_client_property lorsm return_url $return_url
 
 # Student tracking
 set package_id [ad_conn package_id]