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]
 
Index: dotlrn_packages/lams2int/www/admin/add.adp
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/add.adp,v
diff -u -r1.3 -r1.4
--- dotlrn_packages/lams2int/www/admin/add.adp	15 Jan 2008 21:13:45 -0000	1.3
+++ dotlrn_packages/lams2int/www/admin/add.adp	6 Aug 2008 08:00:34 -0000	1.4
@@ -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
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/add.tcl,v
diff -u -r1.2 -r1.3
--- dotlrn_packages/lams2int/www/admin/add.tcl	2 Oct 2007 00:48:02 -0000	1.2
+++ dotlrn_packages/lams2int/www/admin/add.tcl	6 Aug 2008 08:00:34 -0000	1.3
@@ -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
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/index.adp,v
diff -u -r1.1 -r1.2
--- dotlrn_packages/lams2int/www/admin/index.adp	12 Sep 2007 06:37:02 -0000	1.1
+++ dotlrn_packages/lams2int/www/admin/index.adp	6 Aug 2008 08:00:34 -0000	1.2
@@ -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
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/lams2int/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- dotlrn_packages/lams2int/www/admin/index.tcl	12 Sep 2007 06:37:02 -0000	1.1
+++ dotlrn_packages/lams2int/www/admin/index.tcl	6 Aug 2008 08:00:34 -0000	1.2
@@ -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
===================================================================
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]