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