Index: openacs-4/packages/lors-central/lors-central.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/lors-central.info,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/lors-central/lors-central.info 13 Jun 2005 15:10:41 -0000 1.1.2.1 +++ openacs-4/packages/lors-central/lors-central.info 2 Dec 2005 07:18:33 -0000 1.1.2.2 @@ -8,17 +8,18 @@ t lors-central - + Miguel Marin Viaro Netwoks (www.viaro.net) Application to manage the services from the Learning Object Repository. 2005-03-14 This application manages the services from the Learning Object Repository: upload master courses, manage and create metadata, add resources and files to existent courses, creates new versions of LO's. - + + Index: openacs-4/packages/lors-central/www/course-associate.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-associate.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/lors-central/www/course-associate.tcl 18 Sep 2005 14:27:58 -0000 1.1.2.2 +++ openacs-4/packages/lors-central/www/course-associate.tcl 2 Dec 2005 07:18:15 -0000 1.1.2.3 @@ -23,6 +23,12 @@ set man_id [content::item::get_live_revision -item_id $item_id] foreach community_id $object_id { + + # We first have to make sure that we install the lorsm portlet. + if {![db_string lorsm_applet_p "" -default 0]} { + dotlrn_community::add_applet_to_community $community_id "dotlrn_lorsm" + } + # Here we associate the course with every community_id that was checked lors_central::add_relation -item_id $item_id -community_id $community_id -class_key $type @@ -42,7 +48,7 @@ if { [empty_string_p $return_url] } { set return_url [export_vars -base one-course-associations {man_id}] -} else { - ad_progress_bar_end -url $return_url } +ad_progress_bar_end -url $return_url + Index: openacs-4/packages/lors-central/www/course-associate.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-associate.xql,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/lors-central/www/course-associate.xql 17 May 2005 16:21:19 -0000 1.1 +++ openacs-4/packages/lors-central/www/course-associate.xql 2 Dec 2005 07:18:15 -0000 1.1.2.1 @@ -12,6 +12,19 @@ + + + select 1 + from dotlrn_community_applets, + dotlrn_applets + where dotlrn_community_applets.community_id = :community_id + and dotlrn_community_applets.active_p = 't' + and dotlrn_community_applets.applet_id = dotlrn_applets.applet_id + and dotlrn_applets.active_p = 't' + and dotlrn_applets.applet_key = 'dotlrn_lorsm' + + + select