Index: dotlrn_packages/lams2int/www/admin/add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/add-2.tcl,v
diff -u -r1.3 -r1.4
--- dotlrn_packages/lams2int/www/admin/add-2.tcl	6 Oct 2007 22:34:27 -0000	1.3
+++ dotlrn_packages/lams2int/www/admin/add-2.tcl	6 Aug 2008 08:00:34 -0000	1.4
@@ -26,8 +26,8 @@
 
 # get course data
 set course_id [dotlrn_community::get_community_id]
+set course_url "[ad_url][dotlrn_community::get_community_url $course_id]"
 
-
 # methods
 
 # start, schedule, delete
@@ -36,8 +36,9 @@
 
 set hashSeq [lams2int::ws::generate_hash -datetime $datetime -username $username]
 
-set lesson_url "$lams_server_url/services/xml/LessonManager?method=$method&serverId=$server_id&ldId=$sequence_id&datetime=[ad_urlencode $datetime]&hashValue=$hashSeq&username=$username&courseId=$course_id&title=[ad_urlencode $name]&desc=[ad_urlencode $introduction]&country=AU&lang=en"
+set lesson_url "$lams_server_url/services/xml/LessonManager?method=$method&serverId=$server_id&ldId=$sequence_id&datetime=[ad_urlencode $datetime]&hashValue=$hashSeq&username=$username&courseId=$course_id&title=[ad_urlencode $name]&desc=[ad_urlencode $introduction]&country=AU&lang=en&customCSV=$username,$course_id,$course_url"
 
+ns_log Notice "LESSON_URL: $lesson_url"
 
 set xml [lindex [ad_httpget -url $lesson_url -timeout 30] 1]