Index: dotlrn_packages/lams2int/www/admin/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/preview.tcl,v
diff -u -r1.1 -r1.2
--- dotlrn_packages/lams2int/www/admin/preview.tcl	22 Oct 2007 06:16:54 -0000	1.1
+++ dotlrn_packages/lams2int/www/admin/preview.tcl	6 Aug 2008 08:00:34 -0000	1.2
@@ -22,6 +22,7 @@
 
 # get course data
 set course_id [dotlrn_community::get_community_id]
+set course_url [dotlrn_community::get_community_url $course_id]
 
 
 # methods
@@ -34,7 +35,7 @@
 
 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"
 
 
 set xml [lindex [ad_httpget -url $lesson_url -timeout 30] 1]