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 -N -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 -N -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 -N -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 -N -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 -N -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 + + + +