Index: openacs-4/packages/lors/lib/course-new.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/lib/course-new.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors/lib/course-new.adp	7 Jun 2006 13:54:46 -0000	1.1
+++ openacs-4/packages/lors/lib/course-new.adp	7 Jun 2006 18:46:42 -0000	1.2
@@ -1 +1,2 @@
+
 <formtemplate id="course-new"></formtemplate>
\ No newline at end of file
Index: openacs-4/packages/lors/lib/course-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/lib/course-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lors/lib/course-new.tcl	7 Jun 2006 13:54:46 -0000	1.1
+++ openacs-4/packages/lors/lib/course-new.tcl	7 Jun 2006 18:46:42 -0000	1.2
@@ -6,6 +6,8 @@
     @param return_url (defaults to ad_return_url)
 }
 
+# ad_form requires man_id NOT to be set if its new
+
 if {![info exists community_id]} {
     set community_id [dotlrn_community::get_community_id]
 }
@@ -47,6 +49,6 @@
     if {![info exists return_url] || $return_url eq ""} {
         set return_url [export_vars -base course-structure {man_id}]
     }
-    ad_returnredirect -message "[_ lors Course_created]" $return_url
+    ad_returnredirect -message "[_ lors.Course_created]" $return_url
 
 }
Index: openacs-4/packages/lors/tcl/lors-imscp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-imscp-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	7 Jun 2006 13:52:01 -0000	1.10
+++ openacs-4/packages/lors/tcl/lors-imscp-procs.tcl	7 Jun 2006 18:46:42 -0000	1.11
@@ -252,7 +252,7 @@
     set content_type "ims_manifest_object" 
     set name "$course_name"
     if {[empty_string_p $version_id]} {
-        set item_id [content::item::new -name $name -item_id $man_id -content_type $content_type -parent_id $parent_id \
+        set item_id [content::item::new -name $name -content_type $content_type -parent_id $parent_id \
                       -creation_date [dt_sysdate] -creation_user $user_id -creation_ip $creation_ip -context_id $package_id]
     
         # We give the user_id admin privilege over the item_id so only he/she can make changes to
@@ -269,7 +269,7 @@
                                               ) "]
     }
 
-    set revision_id [content::revision::new -title $name -content_type $content_type -creation_user $user_id \
+    set revision_id [content::revision::new -revision_id $man_id -title $name -content_type $content_type -creation_user $user_id \
                          -creation_ip $creation_ip -item_id $item_id -is_live "t"] 
 
     # Now the new revision_id will be sent to the sql function with the