Index: openacs-4/packages/lorsm/www/course-structure.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.adp,v diff -u -N --- openacs-4/packages/lorsm/www/course-structure.adp 7 Jun 2006 14:37:24 -0000 1.7 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,5 +0,0 @@ - - @title;noquote@ - @context;noquote@ - - \ No newline at end of file Index: openacs-4/packages/lorsm/www/course-structure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/course-structure.tcl 7 Jun 2006 14:37:24 -0000 1.9 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,35 +0,0 @@ -# # packages/lorsm/www/course_structure.tcl - - ad_page_contract { - - View Manifest Course Structure - - @author Ernie Ghiglione (ErnieG@mm.st) - @creation-date 2004-03-31 - @arch-tag 208f2801-d110-45d3-9401-d5eae1f72c93 - @cvs-id $Id: course-structure.tcl,v 1.9 2006/06/07 14:37:24 daveb Exp $ - } { - man_id:integer,notnull - } -properties { - } -validate { - } -errors { - } - -# set package_id [ad_conn package_id] -# set community_id [dotlrn_community::get_community_id] - -# ad_proc -public getFolderKey { -# {-object_id:required} -# } { -# Gets the Folderkey for a file-storage folder_id - -# @option object_id Folder_id for file-storage folder -# @author Ernie Ghiglione (ErnieG@mm.st) - -# } { -# return [db_string select_folder_key "select key from fs_folders where object_id = :object_id"] -# } - -# set context & title - set context [list "[_ lorsm.Course_Structure]"] - set title "[_ lorsm.Course_Structure]" 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 -N --- openacs-4/packages/lorsm/www/course-structure.xql 17 May 2005 17:23:27 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,184 +0,0 @@ - - - - - - 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 - count(revision_id) - from - cr_revisions - where - item_id = ( - select - item_id - from - cr_revisions - where - revision_id = :man_id - ) - - - - - - select - item_id - from - cr_items - where - name = :instance and - parent_id = :root_folder - - - - - - select - count(*) as submanifests - from - ims_cp_manifests - where - man_id = :man_id - and - parent_man_id = :man_id - - - - - - - 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 Index: openacs-4/packages/lorsm/www/object-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/object-delete.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/object-delete.tcl 12 Jun 2006 02:06:10 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,15 +0,0 @@ -ad_page_contract { - Delete a learning object -} { - item_id - return_url -} - -permission::require_permission \ - -object_id [ad_conn package_id] \ - -party_id [ad_conn user_id] \ - -privilege "admin" - -lors::imscp::item_delete -item_id $item_id - -ad_returnredirect $return_url \ No newline at end of file Index: openacs-4/packages/lorsm/www/object-new.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/object-new.adp,v diff -u -N --- openacs-4/packages/lorsm/www/object-new.adp 7 Jun 2006 18:41:18 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,5 +0,0 @@ - - @page_title@ - @context@ - - \ No newline at end of file Index: openacs-4/packages/lorsm/www/object-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/object-new.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/object-new.tcl 7 Jun 2006 18:41:18 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,20 +0,0 @@ -# packages/lorsm/www/add-new.tcl - -ad_page_contract { - - add a new learning object - - @author Dave Bauer (dave@thedesignexperience.org) - @creation-date 2006-06-05 - @cvs-id $Id: object-new.tcl,v 1.1 2006/06/07 18:41:18 daveb Exp $ -} { - man_id:integer,notnull - add_type -} -properties { -} -validate { -} -errors { -} - - -set page_title "Add New" -set context [list $page_title] Index: openacs-4/packages/lorsm/www/reorder-items.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/reorder-items.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/reorder-items.tcl 12 Jun 2006 02:06:10 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,45 +0,0 @@ -ad_page_contract { - Reorders all the items according to sort_order -} { - item_id:integer,notnull - dir:notnull -} - -# Checking privilege over lors-central -permission::require_permission \ - -party_id [ad_conn user_id] \ - -privilege "admin" \ - -object_id [ad_conn package_id] - -set ims_item_id $item_id -set man_id [db_string get_man_id ""] -db_1row get_item_sort_and_parent { } - -db_transaction { - db_list lock_rows "select ims_item_id from ims_cp_items where parent_item=:parent_item for update" - - if { $dir eq "up" } { - set next_sort_order [expr { $sort_order - 1 }] - } else { - set next_sort_order [expr { $sort_order + 1 }] - } - - db_dml swap_sort_orders " -update ims_cp_items -set sort_order = (case when sort_order = :sort_order :: integer then :next_sort_order :: integer when sort_order = :next_sort_order ::integer then :sort_order end) -where parent_item=:parent_item -and sort_order in (:sort_order, :next_sort_order) -" - - } on_error { - - ad_return_error "Database error" "A database error occured while trying -to swap your items. Here's the error: -
-$errmsg
-
-" - ad_script_abort -} - -ad_returnredirect "course-structure?man_id=$man_id" \ No newline at end of file Index: openacs-4/packages/lorsm/www/reorder-items.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/reorder-items.xql,v diff -u -N --- openacs-4/packages/lorsm/www/reorder-items.xql 12 Jun 2006 02:06:10 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,28 +0,0 @@ - - - - - - select - man_id - from - ims_cp_organizations o, ims_cp_items i - where - ims_item_id=:item_id - and o.org_id=i.org_id - - - - - - select - sort_order, parent_item - from - ims_cp_items - where - ims_item_id = :ims_item_id - - - - - Index: openacs-4/packages/lorsm/www/sharer.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/sharer.adp,v diff -u -N --- openacs-4/packages/lorsm/www/sharer.adp 4 Sep 2004 14:51:21 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,5 +0,0 @@ - - @title@ - @context@ - - Index: openacs-4/packages/lorsm/www/sharer.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/sharer.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/sharer.tcl 17 May 2005 17:03:40 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,97 +0,0 @@ -# packages/lorsm/www/sharer.tcl - -ad_page_contract { - - Enable sharing of courses, organizations and learning objects - - @author Ernie Ghiglione (ErnieG@mm.st) - @creation-date 2004-07-09 - @arch-tag: 0d48cf78-3d5d-4a39-b2e0-2f090bfbecb8 - @cvs-id $Id: sharer.tcl,v 1.4 2005/05/17 17:03:40 miguelm Exp $ -} { - man_id:integer - folder_id:integer - return_url -} -properties { -} -validate { -} -errors { -} - -set user_id [ad_conn user_id] - -set package_id [ad_conn package_id] -set community_id [dotlrn_community::get_community_id] - -# check admin permisssion for the community -set admin_p [dotlrn::user_can_admin_community_p \ - -user_id $user_id \ - -community_id $community_id ] - -# Permissions -dotlrn::require_user_admin_community -user_id $user_id -community_id $community_id - -# check write permisssion for the learning object/manifest -permission::require_write_permission -object_id $man_id -creation_user $user_id - - -set title "[_ lorsm.lt_Share_CourseLearning_]" -set context [list "[_ lorsm.lt_Share_CourseLearning_]"] - -ad_form -name sharer \ - -export {return_url folder_id} \ - -form { - {man_id:key} - {project:text(inform) - {label "[_ lorsm.Course_Name]"} - {value {[lorsm::get_course_name -manifest_id $man_id]}} - } - {isshared:text(inform) - {label "[_ lorsm.Current_Status]"} - } - {share:text(radio) - {label Status?} - {options {{"[_ lorsm.Shared]" t} {"[_ lorsm.Not_Shared]" f}}} - } - } -select_query { - select - case when isshared = 't' then 'Shared' - else 'Not Shared' - end as isshared - from ims_cp_manifests - where man_id = :man_id - } -edit_data { - db_transaction { - db_dml do_update { - update ims_cp_manifests - set isshared = :share - where man_id = :man_id } - - if {$share == "t"} { - - set party_id_students [db_string party_id {select segment_id from rel_segments \ - where rel_type = 'dotlrn_student_profile_rel'}] - - permission::grant -party_id $party_id_students -object_id $man_id -privilege read - permission::grant -party_id $party_id_students -object_id $folder_id -privilege read - - - } else { - - set party_id_students [db_string party_id {select segment_id from rel_segments \ - where rel_type = 'dotlrn_student_profile_rel'}] - - permission::revoke -party_id $party_id_students -object_id $man_id -privilege read - permission::revoke -party_id $party_id_students -object_id $folder_id -privilege read - - } - } - } -after_submit { - ad_returnredirect $return_url - - } - - - - - - Index: openacs-4/packages/lorsm/www/tracker.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/tracker.adp,v diff -u -N --- openacs-4/packages/lorsm/www/tracker.adp 4 Sep 2004 14:51:21 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,7 +0,0 @@ - - @title@ - @context@ - - - - Index: openacs-4/packages/lorsm/www/tracker.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/tracker.tcl,v diff -u -N --- openacs-4/packages/lorsm/www/tracker.tcl 17 May 2005 17:03:40 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,77 +0,0 @@ -# packages/lorsm/www/tracker.tcl - -ad_page_contract { - - set a course for a class to be trackable - - @author Ernie Ghiglione (ErnieG@mm.st) - @creation-date 2004-05-25 - @arch-tag 07ceb832-2053-4579-bec2-76708522707a - @cvs-id $Id: tracker.tcl,v 1.4 2005/05/17 17:03:40 miguelm Exp $ -} { - man_id:integer,notnull -} -properties { -} -validate { -} -errors { -} - -set package_id [ad_conn package_id] -set community_id [dotlrn_community::get_community_id] - -set admin_p [dotlrn::user_can_admin_community_p \ - -user_id [ad_conn user_id] \ - -community_id $community_id ] - -# Permissions -dotlrn::require_user_admin_community -user_id [ad_conn user_id] -community_id $community_id - - -# Checks whether the user has appropiate permissions otherwise we kick -# him out -if {!$admin_p} { - ad_returnredirect "[_ lorsm.not-allowed]" - return -code error -} - - -set title "[_ lorsm.lt_Set_Course_Track_Opti]" -set context [list "[_ lorsm.Set_Course_Options]"] - -ad_form -name tracker \ - -export {package_id} \ - -form { - {man_id:key} - {project:text(inform) - {label "[_ lorsm.Course_Name]"} - {value {[lorsm::get_course_name -manifest_id $man_id]}} - } - {istrackable:text(inform) - {label "[_ lorsm.Current_Status]"} - } - {enable:text(radio) - {label Status?} - {options {{"[_ lorsm.Trackable_1]" t} {"[_ lorsm.No_Thanks]" f}}} - } - } -select_query { - select - case when istrackable = 't' then 'Yes' - else 'No' - end as istrackable - from ims_cp_manifest_class - where man_id = :man_id and - lorsm_instance_id = :package_id - } -edit_data { - db_dml do_update " - update ims_cp_manifest_class - set istrackable = :enable - where man_id = :man_id and - lorsm_instance_id = :package_id" - } -after_submit { - ad_returnredirect [site_node::get_url_from_object_id -object_id package_id] - ad_script_abort - } - - - - -