Index: openacs-4/packages/lorsm/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-3.tcl,v
diff -u -r1.9.2.2 -r1.9.2.2.2.1
--- openacs-4/packages/lorsm/www/course-add-3.tcl	24 May 2006 10:03:37 -0000	1.9.2.2
+++ openacs-4/packages/lorsm/www/course-add-3.tcl	20 Dec 2006 12:31:12 -0000	1.9.2.2.2.1
@@ -289,7 +289,7 @@
 
         set organizations [$manifest child all organizations]
         set man_orgs_default [lors::imsmd::getAtt $organizations default]
-
+	ns_log Debug "lors-debug course-add-3 Organizations: $organizations *******************"
         set man_id [lors::imscp::manifest_add \
 			-course_name $course_name \
 			-identifier $man_identifier \
@@ -302,7 +302,18 @@
                         -fs_package_id $fs_package_id \
 		        -community_id $community_id \
 		        -content_folder_id $new_parent_id]
+#Borrar
+	ns_log Debug "lors-debug course-add-3 isscorm: $man_isscorm"
+	set name "nombre cambiado"
+#	db_dml update "update ims_cp_manifests
+	#        set course_name = :name_name, identifier = :man_identifier, version = :man_version, 
+	 #           orgs_default = :man_orgs_default, 
+	  #          folder_id = :new_items_parent_id, fs_package_id= :fs_package_id, 
+	   #         course_presentation_format = :format_id
+	    #    where man_id = :man_id"
+#Borrar
 
+	ns_log Debug "lors-debug course-add-3 man_id: $man_id"
 
 	ns_write "[_ lorsm.lt_Granting_permissions__1]<br>"
 
@@ -366,25 +377,24 @@
 
         }
 
-
         if { ![empty_string_p $organizations] } {
 
 	    # for multiple organizations
             set add [list]
 
             foreach organization [$organizations child all organization] {
+		ns_log Debug "lors-debug course-add-3 organization: $organization"
+                #set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
 
                 set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
-
-                set org_identifier [lors::imsmd::getResource -node $organization -att identifier]
                 set org_structure [lors::imsmd::getResource -node $organization -att structure]
 		if {![empty_string_p [$organization child all title]]} {
 		    set org_title [lors::imsmd::getElement [$organization child all title]]
 		} else {
 		    set org_title ""
 		}
                 set org_hasmetadata [lors::imsmd::hasMetadata $organization]
-                
+		ns_log Debug "lors-debug course-add-3 org_hasmetadata: $org_hasmetadata"
                 set org_id [lors::imscp::organization_add \
                                 -man_id $man_id \
                                 -identifier $org_identifier \
@@ -395,8 +405,9 @@
 
 		ns_write "[_ lorsm.lt_Adding_Organization_o]<br>"
 
+		ns_log Debug "lors-debug course-add-3 org_id: $org_id"
 
-                if {$org_hasmetadata == 1} {
+                if { $org_hasmetadata == 1} {
                     # adds manifest metadata
                     set aa [lors::imsmd::addMetadata \
                                 -acs_object $org_id \
@@ -409,6 +420,7 @@
 #                ns_write "[_ lorsm.lt_here_is_list_items_li]"
 
                 set add [concat $add [lors::imscp::addItems -itm_folder_id $new_items_parent_id -org_id $org_id $list_items 0 $tmp_dir]]
+		ns_log Debug "lors-debug course-add-3 add: $add" 
 
 		set tempval [llength $add]
 		ns_write "[_ lorsm.lt_Adding_tempval_items_]<br>"