Index: openacs-4/packages/lorsm/www/course-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-2.tcl,v diff -u -r1.8 -r1.8.4.1 --- openacs-4/packages/lorsm/www/course-add-2.tcl 17 May 2005 17:03:40 -0000 1.8 +++ openacs-4/packages/lorsm/www/course-add-2.tcl 20 Dec 2006 12:31:12 -0000 1.8.4.1 @@ -343,9 +343,9 @@ template::element create course_upload format_id \ -label "[_ lorsm.lt_Course_Presentation_S]" -datatype text -widget select -options [db_list_of_lists select_formats_for_select_widget {select format_pretty_name, format_id - from lorsm_course_presentation_formats + from lorsm_course_presentation_fmts order by format_pretty_name}] \ - -help_text "[_ lorsm.lt_Use_the_Classic_Style]" -value [db_string default_format {select format_id from lorsm_course_presentation_formats where format_name = 'default'}] + -help_text "[_ lorsm.lt_Use_the_Classic_Style]" -value [db_string default_format {select format_id from lorsm_course_presentation_fmts where format_name = 'default'}] template::element create course_upload course_id \ -label "[_ lorsm.course_id]" -datatype integer -widget hidden 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]
" @@ -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]
" + 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_]
" Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/course-structure-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/course-structure-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lorsm/www/course-structure.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.xql,v diff -u -r1.1 -r1.1.4.1 --- openacs-4/packages/lorsm/www/course-structure.xql 17 May 2005 17:23:27 -0000 1.1 +++ openacs-4/packages/lorsm/www/course-structure.xql 20 Dec 2006 12:31:12 -0000 1.1.4.1 @@ -1,46 +1,6 @@ - - - select - cp.man_id, - cp.course_name, - cp.identifier, - text 'Yes' as hello, - case - when hasmetadata = 't' then 'Yes' - else 'No' - end as man_metadata, - case - when isscorm = 't' then 'Yes' - else 'No' - end as isscorm, - cp.fs_package_id, - case - when fs_package_id is null then 'f' - else 't' - end as lorsm_p, - cp.folder_id, - cp.isshared, - acs.creation_user, - acs.creation_date, - acs.context_id, - cpmc.isenabled, - pf.format_pretty_name, - cpmc.istrackable - from - ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc, lorsm_course_presentation_formats pf - where - cp.man_id = acs.object_id - and cp.man_id = :man_id - and cp.man_id = cpmc.man_id - and cpmc.lorsm_instance_id = :package_id - and cp.parent_man_id = 0 - and cp.course_presentation_format = pf.format_id - - - select @@ -84,101 +44,4 @@ - - - - select - org.org_id, - org.org_title as org_title, - org.hasmetadata, - tree_level(o.tree_sortkey) as indent - from - ims_cp_organizations org, acs_objects o - where - org.org_id = o.object_id - and - man_id = :man_id - order by - org_id - - - - - - SELECT - o.object_id, - repeat(' ', (tree_level(tree_sortkey) - :indent)* 3) as indent, - i.ims_item_id as item_id, - i.item_title as item_title, - i.hasmetadata, - i.org_id, - case - when i.isshared = 'f' then ( - 'false' - ) - else 'true' - end as isshared, - case - when i.identifierref <> '' then ( - SELECT - res.href - FROM - ims_cp_items_to_resources i2r, - ims_cp_resources res - WHERE - i2r.res_id = res.res_id - AND - i2r.ims_item_id = i.ims_item_id -) - else '' - end as identifierref, - case - when i.identifierref <> '' then ( - SELECT - res.type - FROM - ims_cp_items_to_resources i2r, - ims_cp_resources res - WHERE - i2r.res_id = res.res_id - AND - i2r.ims_item_id = i.ims_item_id -) - else '' - end as type, - m.fs_package_id, - m.folder_id, - m.course_name - FROM - acs_objects o, ims_cp_items i, ims_cp_manifests m - WHERE - o.object_type = 'ims_item_object' - AND - i.org_id = :org_id - AND - o.object_id = i.ims_item_id - AND - i.ims_item_id = ( - select - live_revision - from - cr_items - where - item_id = ( - select - item_id - from - cr_revisions - where - revision_id = i.ims_item_id - ) - ) - AND - m.man_id = :man_id - ORDER BY - tree_sortkey, object_id - - - - \ No newline at end of file Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/edit-content-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/edit-content-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lorsm/www/formater.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/formater.tcl,v diff -u -r1.2 -r1.2.6.1 --- openacs-4/packages/lorsm/www/formater.tcl 17 May 2005 17:03:40 -0000 1.2 +++ openacs-4/packages/lorsm/www/formater.tcl 20 Dec 2006 12:31:12 -0000 1.2.6.1 @@ -47,12 +47,12 @@ {label "[_ lorsm.Format_1]"} {options {[db_list_of_lists select_formats_for_select_widget {select format_pretty_name, format_id - from lorsm_course_presentation_formats + from lorsm_course_presentation_fmts order by format_pretty_name}]}} } } -select_query { select cp.course_presentation_format as format, pf.format_pretty_name - from ims_cp_manifests cp, lorsm_course_presentation_formats pf + from ims_cp_manifests cp, lorsm_course_presentation_fmts pf where cp.man_id = :man_id and cp.course_presentation_format = pf.format_id } -edit_data { Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/index-oracle.xql'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/index-postgresql.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/lorsm/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/index.tcl,v diff -u -r1.7.2.2 -r1.7.2.2.2.1 --- openacs-4/packages/lorsm/www/index.tcl 11 Jul 2006 19:19:36 -0000 1.7.2.2 +++ openacs-4/packages/lorsm/www/index.tcl 20 Dec 2006 12:31:12 -0000 1.7.2.2.2.1 @@ -118,76 +118,7 @@ } -db_multirow -extend { ims_md_id course_url } d_courses select_d_courses { - select - cp.man_id, - cp.course_name, - cp.identifier, - cp.version, - case - when cp.hasmetadata = 't' then 'Yes' - else 'No' - end as hasmetadata, - case - when isscorm = 't' then 'Yes' - else 'No' - end as isscorm, - cp.fs_package_id, - case when fs_package_id is null then 'f' - else 't' - end as lorsm_p, - cp.folder_id, - acs.creation_user, - acs.creation_date, - pf.folder_name, - pf.format_name, - acs.context_id, - case - when cpmc.isenabled = 't' then 'Enabled' - else 'Disabled' - end as isenabled, - case - when cpmc.istrackable = 't' then 'Yes' - else 'No' - end as istrackable, - -- micheles - -- addition for rte stuff --- 'Click here' as hasrtedata, - case - when - upper(scorm_type) = 'SCO' - then 'Click here' - else '' - end as hasrtedata, - case - when - upper(scorm_type) = 'SCO' - then 'delivery-scorm' - else 'delivery' - end as deliverymethod - - from - acs_objects acs, - ims_cp_manifest_class cpmc, - lorsm_course_presentation_formats pf, - -- micheles - ims_cp_manifests cp left join (select man_id, max(scorm_type) as scorm_type from ims_cp_resources group by man_id ) as cpr using (man_id) - - where - cp.man_id = acs.object_id - and - cp.man_id = cpmc.man_id - and - cpmc.community_id = :community_id - and - cp.course_presentation_format = pf.format_id - and - cp.man_id in (select cr.live_revision - from cr_items cr where content_type = 'ims_manifest_object') - - order by acs.creation_date desc, cp.man_id asc - -} { +db_multirow -extend { ims_md_id course_url } d_courses select_d_courses {} { set ims_md_id $man_id set deliverymethod delivery # if { [string eq $format_name "default"] } { Index: openacs-4/packages/lorsm/www/sharer.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/sharer.tcl,v diff -u -r1.4 -r1.4.4.1 --- openacs-4/packages/lorsm/www/sharer.tcl 17 May 2005 17:03:40 -0000 1.4 +++ openacs-4/packages/lorsm/www/sharer.tcl 20 Dec 2006 12:31:12 -0000 1.4.4.1 @@ -48,7 +48,7 @@ {isshared:text(inform) {label "[_ lorsm.Current_Status]"} } - {share:text(radio) + {share_p:text(radio) {label Status?} {options {{"[_ lorsm.Shared]" t} {"[_ lorsm.Not_Shared]" f}}} } @@ -63,10 +63,10 @@ db_transaction { db_dml do_update { update ims_cp_manifests - set isshared = :share + set isshared = :share_p where man_id = :man_id } - if {$share == "t"} { + if {$share_p == "t"} { set party_id_students [db_string party_id {select segment_id from rel_segments \ where rel_type = 'dotlrn_student_profile_rel'}]