Index: dotlrn_packages/lams2int/www/admin/add-2.tcl
===================================================================
diff -u -rafdaca78371f7fbe41c8fa7ab6482af0dbf543df -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/add-2.tcl	(.../add-2.tcl)	(revision afdaca78371f7fbe41c8fa7ab6482af0dbf543df)
+++ dotlrn_packages/lams2int/www/admin/add-2.tcl	(.../add-2.tcl)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -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]
 
Index: dotlrn_packages/lams2int/www/admin/add.adp
===================================================================
diff -u -r97fae21de9e43a73981bac6cad6c631b376d35f4 -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/add.adp	(.../add.adp)	(revision 97fae21de9e43a73981bac6cad6c631b376d35f4)
+++ dotlrn_packages/lams2int/www/admin/add.adp	(.../add.adp)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -155,7 +155,7 @@
 
 <tr>
         <td align="center">
-                <input type="button" id="create" name="create" value="Open LAMS Author" onClick="window.open('@lams_server_url@/LoginRequest?uid=@username@&method=author&ts=@datetime@&sid=@server_id@&hash=@hashValue@&courseid=@course_id@&country=AU&lang=EN&requestSrc=@requestSrc@&notifyCloseURL=@notifyCloseURL@','LAMS_Author','height=600,width=800,resizable');">
+                <input type="button" id="create" name="create" value="Open LAMS Author" onClick="window.open('@lams_server_url@/LoginRequest?uid=@username@&method=author&ts=@datetime@&sid=@server_id@&hash=@hashValue@&courseid=@course_id@&country=AU&lang=EN&requestSrc=@requestSrc@&notifyCloseURL=@notifyCloseURL@&customCSV=@username@,@course_id@,@course_url@&extlmsid=dotLRN','LAMS_Author','height=600,width=800,resizable');">
                 <input type="button" id="preview" name="preview" value="Preview" onClick="previewSequence();">
                 <input type="button" id="refresh" name="refresh" value="Refresh" onclick="javascript:refreshSequences();"/>
                 <input type="submit" id="cancel" name=cancel value="Cancel" />
Index: dotlrn_packages/lams2int/www/admin/add.tcl
===================================================================
diff -u -r9ba3c2dd894b4a5fc88a1a7dfe9974472039affd -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/add.tcl	(.../add.tcl)	(revision 9ba3c2dd894b4a5fc88a1a7dfe9974472039affd)
+++ dotlrn_packages/lams2int/www/admin/add.tcl	(.../add.tcl)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -26,6 +26,7 @@
 
 # get course data
 set course_id [dotlrn_community::get_community_id]
+set course_url "[ad_url][dotlrn_community::get_community_url $course_id]"
 
 #set datetime 1
 
Index: dotlrn_packages/lams2int/www/admin/index.adp
===================================================================
diff -u -r01b61a79cd4775716c20ad9d89d75e22447cd016 -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/index.adp	(.../index.adp)	(revision 01b61a79cd4775716c20ad9d89d75e22447cd016)
+++ dotlrn_packages/lams2int/www/admin/index.adp	(.../index.adp)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -6,7 +6,7 @@
 <a title="Add a LAMS lesson to this course" href="add" class="button"> Add a LAMS Lesson </a>
 &nbsp;&nbsp;
 
-<a title="Open LAMS Authoring to create or edit lessons" href="javascript:;" onClick="window.open('@lams_server_url@/LoginRequest?uid=@username@&method=author&ts=@datetime@&sid=@server_id@&hash=@hashauthor@&courseid=@course_id@&country=AU&lang=EN&requestSrc=@requestSrc@&notifyCloseURL=@notifyCloseURL@','LAMS_Author','height=600,width=800,resizable');" class="button"> LAMS Author </a>
+<a title="Open LAMS Authoring to create or edit lessons" href="javascript:;" onClick="window.open('@lams_server_url@/LoginRequest?uid=@username@&method=author&ts=@datetime@&sid=@server_id@&hash=@hashauthor@&courseid=@course_id@&country=AU&lang=EN&requestSrc=@requestSrc@&notifyCloseURL=@notifyCloseURL@&customCSV=@username@,@course_id@,@course_url@&extlmsid=dotLRN','LAMS_Author','height=600,width=800,resizable');" class="button"> LAMS Author </a>
 &nbsp;&nbsp;
 
 </p>
Index: dotlrn_packages/lams2int/www/admin/index.tcl
===================================================================
diff -u -r01b61a79cd4775716c20ad9d89d75e22447cd016 -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/index.tcl	(.../index.tcl)	(revision 01b61a79cd4775716c20ad9d89d75e22447cd016)
+++ dotlrn_packages/lams2int/www/admin/index.tcl	(.../index.tcl)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -6,7 +6,7 @@
     
     @author Ernie Ghiglione (ErnieG@melcoe.mq.edu.au)
     @creation-date 2007-04-17
-    @cvs-id $Id$
+    @cvs-id index.tcl,v 1.1 2007/09/12 06:37:02 ernieg Exp
 } {
     
 } -properties {
@@ -28,10 +28,12 @@
 set requestSrc [lams2int::get_request_source]
 set notifyCloseURL "[ad_url][util_get_current_url]"
 
-set hashauthor [lams2int::ws::generate_hash -datetime $datetime -username $username -method "author"]
+set course_url "[ad_url][dotlrn_community::get_community_url $course_id]"
 
 
+set hashauthor [lams2int::ws::generate_hash -datetime $datetime -username $username -method "author"]
 
+
 template::list::create \
     -name d_lesson \
     -multirow d_lesson \
Index: dotlrn_packages/lams2int/www/admin/preview.tcl
===================================================================
diff -u -r587e65f52a7d03cfbfdfe684d16c70fc4554bf23 -r303dd52bf511ddb6154b7b9607e411e85f751f67
--- dotlrn_packages/lams2int/www/admin/preview.tcl	(.../preview.tcl)	(revision 587e65f52a7d03cfbfdfe684d16c70fc4554bf23)
+++ dotlrn_packages/lams2int/www/admin/preview.tcl	(.../preview.tcl)	(revision 303dd52bf511ddb6154b7b9607e411e85f751f67)
@@ -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]