Index: openacs-4/packages/lors-central/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-add-3.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lors-central/www/course-add-3.tcl 13 Jun 2005 15:10:42 -0000 1.1.2.1
+++ openacs-4/packages/lors-central/www/course-add-3.tcl 5 May 2006 17:08:23 -0000 1.1.2.2
@@ -251,7 +251,8 @@
} else {
set man_isscorm 0
}
-
+ # use isscorm proc!
+ set man_isscorm [lors::imscp::isSCORM -node $manifest]
if { ![empty_string_p $metadata] } {
set man_hasmetadata 1
} else {
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.4 -r1.1.2.5
--- openacs-4/packages/lors-central/www/course-associate.tcl 20 Apr 2006 17:17:21 -0000 1.1.2.4
+++ openacs-4/packages/lors-central/www/course-associate.tcl 5 May 2006 17:08:23 -0000 1.1.2.5
@@ -47,9 +47,7 @@
if { [empty_string_p $return_url] } {
- ad_progress_bar_end -url "course-dotlrn-assoc?item_id=$item_id"
-} else {
- ad_progress_bar_end -url $return_url
+ set return_url [export_vars -base one-course-associations {man_id}]
}
ad_progress_bar_end -url $return_url
Index: openacs-4/packages/lors-central/www/course-dotlrn-assoc.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/course-dotlrn-assoc.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lors-central/www/course-dotlrn-assoc.xql 13 Jun 2005 15:10:42 -0000 1.1.2.1
+++ openacs-4/packages/lors-central/www/course-dotlrn-assoc.xql 5 May 2006 17:08:23 -0000 1.1.2.2
@@ -11,7 +11,10 @@
dc.pretty_name,
dc.url
from
- dotlrn_class_instances_full dc, dotlrn_instructor_rels_full drf
+ dotlrn_class_instances_full dc
+ left join
+ dotlrn_instructor_rels_full drf
+ on drf.community_id = dc.class_instance_id
where
dc.class_instance_id not in
(
@@ -43,7 +46,10 @@
dc.pretty_name,
dc.url
from
- dotlrn_class_instances_full dc, dotlrn_instructor_rels_full drf
+ dotlrn_class_instances_full dc
+ left join
+ dotlrn_instructor_rels_full drf
+ on drf.community_id = dc.class_instance_id
where
dc.class_instance_id in
(
@@ -72,7 +78,9 @@
dc.pretty_name,
dc.url
from
- dotlrn_communities_full dc, dotlrn_member_rels_full dm
+ dotlrn_communities_full dc
+ left join dotlrn_member_rels_full dm
+ on dm.community_id = dc.community_id
where
dc.community_id not in
(
@@ -102,8 +110,10 @@
dc.pretty_name,
dc.url
from
- dotlrn_communities_full dc, dotlrn_member_rels_full dm
- where
+ dotlrn_communities_full dc
+ left join dotlrn_member_rels_full dm
+ on dm.community_id = dc.community_id
+ where
dc.community_id in
(
select
Index: openacs-4/packages/lors-central/www/one-course-associations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/one-course-associations.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/lors-central/www/one-course-associations.tcl 20 Apr 2006 17:17:21 -0000 1.1.2.4
+++ openacs-4/packages/lors-central/www/one-course-associations.tcl 5 May 2006 17:08:23 -0000 1.1.2.5
@@ -286,3 +286,5 @@
set course_url [export_vars -base "${lorsm_url}delivery" {man_id}]
}
+
+
Index: openacs-4/packages/lors-central/www/search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/www/search.adp,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/packages/lors-central/www/search.adp 17 May 2005 16:21:19 -0000 1.1
+++ openacs-4/packages/lors-central/www/search.adp 5 May 2006 17:08:23 -0000 1.1.2.1
@@ -3,6 +3,27 @@
@header_stuff@
@context@
@focus@
+ noindex,nofollow
+
+
+
+