Index: openacs-4/packages/lorsm/lib/user-lorsm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/user-lorsm.tcl,v
diff -u -r1.8.2.4 -r1.8.2.5
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl 28 Jun 2006 19:14:21 -0000 1.8.2.4
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl 11 Jul 2006 19:19:36 -0000 1.8.2.5
@@ -7,7 +7,11 @@
@author Ernie Ghiglione (ErnieG@mm.st)
@creation-date 2004-06-15
@arch-tag: 9d893919-9a02-45cd-b6ad-19e3a34ba747
+<<<<<<< user-lorsm.tcl
@cvs-id $Id$
+=======
+ @cvs-id $Id$
+>>>>>>> 1.8.2.4
} {
} -properties {
@@ -109,17 +113,16 @@
order by cpr.scorm_type desc limit 1"
]) {
- set delivery_method $needscorte
+
ns_log Debug "lorsm - $needscorte"
-
- set course_url_url [export_vars -base "[lindex $context 0]$delivery_method" -url {man_id}]
- set course_url "$course_name"
- ns_log Debug "lorsm - course_url: $course_url"
+ set delivery_method delivery
+ set course_url "$course_name"
+ ns_log Debug "DAVEB lorsm - course_url: $course_url"
} else {
set course_url "NO RESOURCES ERROR"
}
} else {
- set course_url "$course_name"
+ set course_url "$course_name"
}
# DEDS: these are expensive
Index: openacs-4/packages/lorsm/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/index.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/lorsm/www/index.tcl 13 Jun 2005 15:10:56 -0000 1.7.2.1
+++ openacs-4/packages/lorsm/www/index.tcl 11 Jul 2006 19:19:36 -0000 1.7.2.2
@@ -189,10 +189,11 @@
} {
set ims_md_id $man_id
- if { [string eq $format_name "default"] } {
- set course_url "$course_name"
- } else {
- set course_url "$course_name"
- }
+ set deliverymethod delivery
+# if { [string eq $format_name "default"] } {
+ set course_url "$course_name"
+ # } else {
+# set course_url "$course_name"
+ # }
}