Index: openacs-4/packages/xolp/xolp.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/xolp.info,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/xolp/xolp.info 11 Apr 2019 08:54:23 -0000 1.2 +++ openacs-4/packages/xolp/xolp.info 11 Apr 2019 15:36:54 -0000 1.3 @@ -9,15 +9,15 @@ f f - + Michael Aram High performance, analytics-oriented storage infrastructure for competency-based learning performance. 2016-11-15 Learn@WU The <code>xolp</code> package provides an infrastructure for storing and retrieving indicators, such as a student's assessment grade. The implemented data model with its accompanying application programming interface provides a data mart for analysing learners' learning performance. 0 - + Index: openacs-4/packages/xolp/catalog/xolp.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/catalog/xolp.de_DE.ISO-8859-1.xml,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xolp/catalog/xolp.de_DE.ISO-8859-1.xml 11 Apr 2019 15:36:54 -0000 1.1 @@ -0,0 +1,4 @@ + + + XOLP + Index: openacs-4/packages/xolp/catalog/xolp.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/catalog/xolp.en_US.ISO-8859-1.xml,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/xolp/catalog/xolp.en_US.ISO-8859-1.xml 11 Apr 2019 15:36:54 -0000 1.1 @@ -0,0 +1,4 @@ + + + XOLP + Index: openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl 29 Jun 2018 17:27:19 -0000 1.3 +++ openacs-4/packages/xolp/tcl/xolp-activity-procs.tcl 11 Apr 2019 15:36:54 -0000 1.4 @@ -137,6 +137,15 @@ return $result_dict } + ::xolp::Activity ad_proc get_activities_of_package { + {-package_id:required} + } { + @return IDs of all activities of a package + } { + set sql "SELECT iri, title FROM xolp_activity_dimension WHERE package_id = :package_id" + return [::xo::dc list_of_lists acitivities_of_package $sql] + } + ::xolp::Activity ad_proc new_persistent_object { {-iri:required} {-title ""} @@ -158,6 +167,19 @@ next } + ::xolp::Activity ad_proc update_title { + {-activity_version_id:required} + {-title ""} + } { + Updates the activity in the xolp_activity_dimension table (without creating a new version). + } { + ::xo::dc dml update_activity { + UPDATE xolp_activity_dimension + SET title = :title, scd_valid_from = current_timestamp + WHERE activity_version_id = :activity_version_id + } + } + ::xolp::Activity ad_proc update { {-iri} args Index: openacs-4/packages/xolp/tcl/xolp-competency-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xolp/tcl/xolp-competency-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/xolp/tcl/xolp-competency-procs.tcl 11 Apr 2019 08:53:29 -0000 1.4 +++ openacs-4/packages/xolp/tcl/xolp-competency-procs.tcl 11 Apr 2019 15:36:54 -0000 1.5 @@ -156,6 +156,18 @@ } } + ::xolp::Competency ad_proc get_competencies { + {-competency_iri:required} + } { + @return List of competency IRIs attached to the given competency. + } { + return [::xo::dc list get_competencies { + SELECT competency_iri + FROM xolp_competency_hierarchy_bridge + WHERE context_competency_iri = :competency_iri + }] + } + # # Bridge: Indicators (facts) reference sets of competencies #