Index: openacs-4/packages/lorsm/lorsm.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lorsm.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/lorsm.info	22 Apr 2004 03:58:08 -0000	1.1
+++ openacs-4/packages/lorsm/lorsm.info	4 Sep 2004 14:51:18 -0000	1.2
@@ -8,21 +8,18 @@
     <singleton-p>f</singleton-p>
     <auto-mount>lorsm</auto-mount>
 
-    <maturity>
-      <platform id="dotlrn" version="2.1">
-         <level descr="New Submission">0</level>
-      </platform>
-    </maturity>
-
-    <version name="0.1d" url="http://openacs.org/repository/download/apm/lorsm-0.1d.apm">
-        <owner url="mailto:ernieg@ee.usyd.edu.au">Ernie Ghiglione</owner>
+    <version name="0.4d" url="http://openacs.org/repository/download/apm/lorsm-0.4d.apm">
+        <owner url="mailto:ernieg@mm.st">Ernie Ghiglione</owner>
         <summary>Application to manage the services from the Learning Object Repository. </summary>
+        <release-date>2004-06-19</release-date>
         <description format="text/html">This application manages the services from the Learning Object Repository: upload courses, manage and create metadata, delete resources and courses. </description>
 
-        <provides url="lorsm" version="0.1d"/>
-        <requires url="lors" version="0.1d"/>
+        <provides url="lorsm" version="0.4d"/>
+        <requires url="lors" version="0.4d"/>
+        <requires url="views" version="0.1d"/>
 
         <callbacks>
+            <callback type="after-install"  proc="lorsm::install::package_install"/>
         </callbacks>
         <parameters>
         <!-- No version parameters -->
Index: openacs-4/packages/lorsm/lib/user-lorsm.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/user-lorsm.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/lib/user-lorsm.adp	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/lib/user-lorsm.adp	4 Sep 2004 14:51:19 -0000	1.2
@@ -1 +1,4 @@
+<!-- LORSm Portlet Starts -->
 <listtemplate name="d_courses"></listtemplate>
+<!-- LORSm Portlet Ends -->
+  
Index: openacs-4/packages/lorsm/lib/user-lorsm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/lib/user-lorsm.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl	23 Apr 2004 01:26:41 -0000	1.2
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl	4 Sep 2004 14:51:19 -0000	1.3
@@ -1,18 +1,23 @@
-# packages/lorsm/lib/user-lorsm.tcl
-#
-# User portlet view
-#
-# @author Ernie Ghiglione (ErnieG@mm.st)
-# @creation-date 2004-04-10
-# @arch-tag c4c3448b-3f12-43cc-9f96-19b4c4a72a58
-# @cvs-id $Id$
+# packages/lorsm/www/test.tcl
 
-foreach required_param {package_id} {
-    if {![info exists $required_param]} {
-	return -code error "$required_param is a required parameter."
-    }
+ad_page_contract {
+    
+    testing background
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-06-15
+    @arch-tag: 9d893919-9a02-45cd-b6ad-19e3a34ba747
+    @cvs-id $Id$
+} {
+    
+} -properties {
+} -validate {
+} -errors {
 }
 
+#set package_id $list_of_packages_ids
+
+
 template::list::create \
     -name d_courses \
     -multirow d_courses \
@@ -23,38 +28,89 @@
         course_name {
             label "Course Name"
             display_col course_name
-            link_url_eval {[site_node::get_url_from_object_id -object_id $context_id]delivery/?[export_vars man_id]}
+	    html { width 70% }
+            link_url_eval {[site_node::get_url_from_object_id -object_id $lorsm_instance_id]delivery/?[export_vars man_id]}
             link_html {title "Access Course"}
         }
-        creation_user {
-            label "Owner"
-            display_eval {[person::name -person_id $creation_user]}
-            link_url_eval {[acs_community_member_url -user_id $creation_user]}
+        subject {
+            label "Subject"
+            display_eval {[dotlrn_community::get_community_name $community_id]}
+	    html { align center width 20% }
+            link_url_eval {[dotlrn_community::get_community_url $community_id]}
+            link_html {title "Access Course"}
         }
-        creation_date {
-            label "Creation Date"
-            display_eval {[lc_time_fmt $creation_date "%x %X"]}
+        last_viewed {
+            label "Last Viewed On"
+            html { align center width 10% }
+            display_eval {[lc_time_fmt $last_viewed "%x"]}
         }
+        viewed_percent {
+            label "% Viewed"
+            html { align right }
+            display_eval {[lc_numeric $viewed_percent "%.2f"]}
+        }
     }
 
-db_multirow -extend { ims_md_id } d_courses select_d_courses {
-    select 
-           cp.man_id,
+set user_id [ad_conn user_id]
+
+foreach package $package_id {
+
+    db_multirow -extend { ims_md_id last_viewed total_item_count viewed_item_count viewed_percent} -append  d_courses select_d_courses {
+	select 
+	   cp.man_id,
            cp.course_name,
            cp.identifier,
            cp.version,
            cp.fs_package_id,
            cp.folder_id,
 	   acs.creation_user,
 	   acs.creation_date,
-	   acs.context_id
-    from
-           ims_cp_manifests cp, acs_objects acs
-    where 
+	   acs.context_id,
+           cpmc.community_id,
+           cpmc.lorsm_instance_id
+	from
+           ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc
+	where 
            cp.man_id = acs.object_id
-    and
-           acs.context_id = :package_id
-} {
-    set ims_md_id $man_id
+	and
+           cp.man_id = cpmc.man_id
+	and
+--	   acs.context_id = :package
+           cpmc.lorsm_instance_id = :package
+	and
+           cpmc.isenabled = 't'
+	order by acs.creation_date desc
+    } {
+        set ims_md_id $man_id
+        # DEDS: these are expensive
+        # and for demo purposes only
+        db_0or1row get_last_viewed {
+            select v.last_viewed
+              from views v,
+                   ims_cp_items i,
+                   ims_cp_organizations o
+             where v.viewer_id = :user_id
+               and v.object_id = i.item_id
+               and i.org_id = o.org_id
+               and o.man_id = :man_id
+            order by v.last_viewed desc
+            limit 1
+        }
+        set all_items [db_list get_total_items {
+            select i.item_id
+              from ims_cp_items i,
+                   ims_cp_organizations o
+             where o.man_id = :man_id
+               and i.org_id = o.org_id   
+        }]
+        set total_item_count [llength $all_items]
+        set viewed_items [db_list get_viewed_items "
+            select v.object_id
+              from views v
+             where v.viewer_id = :user_id
+               and v.object_id in ([join $all_items ,])
+        "]
+        set viewed_item_count [llength $viewed_items]
+        set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
+    }
 }
-
Index: openacs-4/packages/lorsm/sql/postgresql/lorsm-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/sql/postgresql/lorsm-create.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/sql/postgresql/lorsm-create.sql	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,92 @@
+-- 
+-- packages/lorsm/sql/postgresql/lorsm-create.sql
+-- 
+-- @author Ernie Ghiglione (ErnieG@mm.st)
+-- @creation-date 2004-05-24
+-- @arch-tag 168b43b5-5693-4d4a-a5e7-d629f8fb206b
+-- @cvs-id $Id: lorsm-create.sql,v 1.1 2004/09/04 14:51:20 ernieg Exp $
+--
+
+--
+--  Copyright (C) 2004 Ernie Ghiglione
+--
+--  This package is free software; you can redistribute it and/or modify it under the
+--  terms of the GNU General Public License as published by the Free Software
+--  Foundation; either version 2 of the License, or (at your option) any later
+--  version.
+--
+--  It is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+--  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+--  details.
+--
+
+
+
+
+-- Creates tables to track student's progress
+
+create table lorsm_student_track (
+	track_id	int 
+			constraint lorsm_st_track_id_pk
+                        primary key,
+	user_id		int
+                        constraint lorsm_st_track_user_id_fk
+                        references users (user_id),
+	community_id	int
+			constraint lorsm_st_track_comm_id_fk
+			references dotlrn_communities_all (community_id),
+	course_id	int
+			constraint lorsm_st_track_course_id_fk
+			references ims_cp_manifests (man_id),
+	start_time	timestamptz not null default current_timestamp,
+	end_time	timestamptz
+);
+
+-- create track_id sequence
+create sequence lorsm_st_track_track_id_seq start 1;
+
+-- create index for lorsm_student_track_indexes
+  -- student_id
+  create index lorsm_st_track__user_id_idx on lorsm_student_track (user_id);
+  -- community_id
+  create index lorsm_st_track__comm_id_idx on lorsm_student_track (community_id);
+  -- course_id
+  create index lorsm_st_track__course_id_idx on lorsm_student_track (course_id);
+
+comment on table lorsm_student_track is '
+This table stores students tracking information. 
+Multiplicity: each student can have many records of the same course/class. Remember, 
+a course can be given in two different communities/classes 
+';
+
+create table lorsm_student_bookmark (
+	user_id		int
+                        constraint lorsm_st_track_user_id_fk
+                        references users (user_id),
+	community_id	int
+			constraint lorsm_st_track_comm_id_fk
+			references dotlrn_communities_all (community_id),
+	course_id	int
+			constraint lorsm_st_track_course_id_fk
+			references ims_cp_manifests (man_id),
+	date		timestamptz,
+			constraint lorsm_st_book_id_pk
+			primary key (user_id, community_id, course_id)
+);
+
+-- create index for lorsm_student_book_indexes
+  -- student_id
+  create index lorsm_st_book__user_id_idx on lorsm_student_bookmark (user_id);
+  -- community_id
+  create index lorsm_st_book__comm_id_idx on lorsm_student_bookmark (community_id);
+  -- course_id
+  create index lorsm_st_book__course_id_idx on lorsm_student_bookmark (course_id);
+
+comment on table lorsm_student_track is '
+This table stores students bookmark information. We bookmarked the last page the page/link that the
+student visited last.
+Multiplicity: One bookmark per course/class/student
+';
+
+\i lorsm-packages.sql
Index: openacs-4/packages/lorsm/sql/postgresql/lorsm-packages.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/sql/postgresql/lorsm-packages.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/sql/postgresql/lorsm-packages.sql	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,69 @@
+-- 
+-- packages/lorsm/sql/postgresql/lorsm-package.sql
+-- 
+-- @author Ernie Ghiglione (ErnieG@mm.st)
+-- @creation-date 2004-05-24
+-- @arch-tag b0b73549-814c-4718-9537-f856b972d10f
+-- @cvs-id $Id: lorsm-packages.sql,v 1.1 2004/09/04 14:51:20 ernieg Exp $
+--
+
+--
+--  Copyright (C) 2004 Ernie Ghiglione
+--
+--  This package is free software; you can redistribute it and/or modify it under the
+--  terms of the GNU General Public License as published by the Free Software
+--  Foundation; either version 2 of the License, or (at your option) any later
+--  version.
+--
+--  It is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+--  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+--  details.
+--
+
+-- student track package
+
+create or replace function lorsm_student_track__new (integer,integer,integer)
+returns integer as '
+declare
+  p_user_id                 alias for $1;
+  p_community_id            alias for $2;
+  p_course_id               alias for $3;
+  v_track_id                lorsm_student_track.track_id%TYPE;
+  v_start_time              timestamptz;
+begin
+    select nextval(''lorsm_st_track_track_id_seq'')
+    into v_track_id
+    from dual;
+
+   v_start_time := now();
+
+    -- inserts into 
+	insert into lorsm_student_track
+	  (track_id, user_id, community_id, course_id, start_time)
+	values
+	  (v_track_id, p_user_id, p_community_id, p_course_id, v_start_time);
+
+	return v_track_id;
+
+end;' language 'plpgsql';
+
+
+create or replace function lorsm_student_track__exit (integer)
+returns integer as '
+declare
+  p_track_id                alias for $1;
+  v_end_time                timestamptz;
+begin
+
+   v_end_time := now();
+
+   -- student leaves
+   -- so we save the exit time
+	update lorsm_student_track
+	   set end_time = v_end_time
+        where track_id = p_track_id;
+
+	return p_track_id;
+
+end;' language 'plpgsql';
Index: openacs-4/packages/lorsm/sql/postgresql/lorsm-template.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/sql/postgresql/lorsm-template.sql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/sql/postgresql/lorsm-template.sql	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,29 @@
+
+create or replace function inline_0 ()
+returns integer as'
+declare
+    template_id integer;
+begin
+
+    -- Create the (default) file_storage_object content type template
+
+    template_id := content_template__new( 
+      ''lorms-default'', -- name
+      '''',               -- text
+      true                      -- is_live
+    );
+
+    -- Register the template for the file_storage_object content type
+
+    perform content_type__register_template(
+      ''file_storage_object'', -- content_type
+      template_id,             -- template_id
+      ''lorsm'',              -- use_context
+      ''t''                    -- is_default
+    );
+
+    return null;
+end;' language 'plpgsql';
+
+select inline_0();
+drop function inline_0();
Index: openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,56 @@
+# packages/lorsm/tcl/lorsm-install-procs.tcl
+
+ad_library {
+    
+    LORSM Installation procedures
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-08-19
+    @arch-tag: 535eebaf-8414-4703-8a39-e115a34b68f1
+    @cvs-id $Id: lorsm-install-procs.tcl,v 1.1 2004/09/04 14:51:20 ernieg Exp $
+}
+
+#
+#  Copyright (C) 2004 Ernie Ghiglione
+#
+#  This package is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  It is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+
+namespace eval lorsm::install {}
+
+ad_proc -private lorsm::install::package_install {} {
+
+    Install the lorsm-templates
+    
+} {
+    # location where the templates file are
+    set temp_location "[acs_root_dir]/packages/lorsm/templates"
+
+    # location where we are going to copy the files to 
+    set temp_dir "[acs_root_dir]/templates"
+
+    # check if the template directory exists
+    # Otherwise create it. 
+    if {![file exists $temp_dir]} {
+
+	file mkdir $temp_dir
+
+    }
+
+    foreach file [glob -nocomplain [file join $temp_location *]] {
+
+	file copy -force $file $temp_dir
+
+    }
+
+
+}
Index: openacs-4/packages/lorsm/tcl/lorsm-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/tcl/lorsm-procs-postgresql.xql	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,94 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="lorsm::get_folder_labels.get_url">      
+      <querytext>
+
+    select 0 as tree_level, '' as name , 'Home' as title
+    UNION
+    select t.tree_level, i.name, content_item.get_title(t.context_id) as title
+    from (select o2.context_id, tree_level(o2.tree_sortkey) as tree_level
+          from (select * from acs_objects where object_id = :item_id) o1, acs_objects o2
+          where context_id <> content_item__get_root_folder()
+            and o1.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey)) t,
+      cr_items i
+    where i.item_id = t.context_id
+    order by tree_level
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::get_content_value.gcv_get_revision_id">
+	<querytext>
+
+        select 1
+
+	</querytext>
+</fullquery>
+
+<fullquery name="lorsm::get_content_value.gcv_get_previous_content">      
+      <querytext>
+      
+    select 
+      content
+    from 
+      cr_revisions
+    where 
+      revision_id = :revision_id
+  
+      </querytext>
+</fullquery>
+
+
+<fullquery name="lorsm::init.get_item_id">      
+      <querytext>
+    select content_item__get_id(:url, :content_root, 'f') as item_id
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init.get_item_type">      
+      <querytext>
+    select content_type from cr_items where item_id=:item_id
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init.get_template_info">      
+      <querytext>
+
+    select 
+      item_id, content_type
+    from 
+      cr_items
+    where
+      item_id = :item_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init.get_template_url">      
+      <querytext>
+
+        select 
+          content_item__get_live_revision(content_item__get_template(:item_id, :context)) as template_id,
+          content_template__get_path(content_item__get_template(:item_id, :context),:template_root) as template_url 
+        from 
+          dual
+
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init_all.get_template_url">      
+      <querytext>
+
+        select 
+          content_template__get_path(
+          content_item__get_template(:item_id, :context),:template_root) as template_url 
+        from 
+          dual
+
+      </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/lorsm/tcl/lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	4 May 2004 05:38:45 -0000	1.2
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	4 Sep 2004 14:51:20 -0000	1.3
@@ -26,6 +26,16 @@
 
 namespace eval lorsm {
 
+variable item_id
+variable item_url
+variable template_url
+variable revision_id
+
+variable content_root
+variable ims_item_id
+variable ims_item_title
+variable ims_man_id
+
     ad_proc -public fix_url {
 	-url:required
     } {
@@ -53,7 +63,10 @@
 	-item_title:required
 	-identifierref:required
 	-fs_package_id:required
+	-fs_local_package_id:required
 	-folder_id:required
+	-type:required
+	-track_id:required
     } {
 	Function use to fix the HREF of resources.
 	It could be that the reference to a resource is outside the 
@@ -69,7 +82,10 @@
 	@param item_title The title of the item in question
 	@param identifierref The resource's identifierref 
 	@param fs_package_id the file-storage package id
+	@param fs_local_package_id the local file-storage package id
 	@param folder_id file-storage folder id
+	@param type type of resource
+	@param track_id whether the ims_cp_item should be tracked or not.
 	@author Ernie Ghiglione (ErnieG@mm.st)
 	
     } {
@@ -82,12 +98,22 @@
 
 	    } else {
 
-		set url1 "[apm_package_url_from_id $fs_package_id]view/"
-		set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
-		set url3 [lorsm::fix_url -url $identifierref]
+		switch $type {
+		    "ims-qti-package" {
+			set url "<a href=\"$identifierref\" target=\"body\">$item_title</a>"
 
-		set url "<a href=\"$url1$url2/$url3\" target=\"body\">$item_title</a>"
+		    }
+		    default {
 
+			set url1 "[apm_package_url_from_id $fs_local_package_id]view/"
+			set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]"
+			set url3 [lorsm::fix_url -url $identifierref]
+			set content_root [fs::get_root_folder -package_id $fs_package_id]
+			set url "<a href=\"[export_vars -base $url1$url2/$url3 {content_root}]\" target=\"body\">$item_title</a>"
+		    }
+		}
+
+
 		return $url
 	    }
 	
@@ -96,6 +122,347 @@
 	}
 
     }
+
+    ad_proc -public get_course_name {
+	-manifest_id:required
+    } {
+	Given a man_id, it returns the name of the course
+
+	@param manifest_id the Id for the course
+	@author Ernie Ghiglione (ErnieG@mm.st)
+    } {
+
+	return [db_string course_name {select course_name from ims_cp_manifests where man_id = :manifest_id}]
+
+    }
+
+    ad_proc -public dates_calc {
+	-start_date:required
+	-end_date:required
+    } {
+	Returns the number of minutes, hours or dates given a start
+	and end date. 
+
+	@param start_date Starting date
+	@param end_date   Ending date
+	@author Ernie Ghiglione (ErnieG@mm.st)
+    } {
+
+	set start [clock scan "$start_date"]
+	set end   [clock scan "$end_date"]
+
+	set difference [expr {$end - $start}]
+	
+	if {$difference >= 0 && $difference < 60} {
+	    return "$difference seconds"
+	} elseif {$difference >= 60 && $difference < 3600} {
+
+	    return "[expr {$difference / 60.0}] minutes"
+
+	} elseif {$difference >= 3600 && $difference < 86400} {
+	    return "[expr {$difference / 60.0 /60.0 }] hours"
+
+	} else {
+	    return "[expr {$difference / 60.0 / 60.0 / 24.0}] days"
+	}
+    }
+
+
+    ad_proc -public fix_href2 {
+	-item_id:required
+	-identifierref:required
+	-fs_package_id:required
+	-fs_local_package_id:required
+	-folder_id:required
+	-type:required
+	-track_id:required
+    } {
+	Function use to fix the HREF of resources.
+	It could be that the reference to a resource is outside the 
+	scope of the learning object (somewhere on the web) instead
+	of a file or resource in the course. 
+
+	Therefore, this function determines whether ther link to the
+	resource is within the course materials. If that is the case
+	it created the link to where the file is stored in the file-
+	storage. Otherwise, if the resource needs to be fetched from
+	the web (http://) then we use that href instead.
+	
+	@param item_title The title of the item in question
+	@param identifierref The resource's identifierref 
+	@param fs_package_id the file-storage package id
+	@param fs_local_package_id the local file-storage package id
+	@param folder_id file-storage folder id
+	@param type type of resource
+	@param track_id whether the ims_cp_item should be tracked or not.
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+
+	if {![empty_string_p $identifierref]} {
+	        
+	    # if the href is already a link to another site, then just
+	    # let it be that
+	    if {[regexp "http://" $identifierref]} {
+		set identifierref $identifierref
+	    } else {
+		# otherwise, let the fun begin!
+		# we need to construct the right URL for this item and
+		# the instance of the class that is trying to deploy
+		# it. Further explanation in the documentation.
+		switch $type {
+		    default {
+			set url1 "[apm_package_url_from_id $fs_local_package_id]view/"
+			set folder_id $folder_id
+			set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
+			set url3 [lorsm::fix_url -url $identifierref]
+			set content_root [fs::get_root_folder -package_id $fs_package_id]
+			set item_id $item_id
+			set identifierref [export_vars -base [concat $url1$url2$url3] {content_root}] 
+
+			# if the course is trackable, we need to make
+			# sure we record the items the user has
+			# seen. These are ims_items type of objects
+			if {$track_id != 0} {
+
+			    set redirect_url $identifierref
+			    set identifierref [export_vars -base record-view {item_id}]
+
+			}
+		    }
+		}
+	    }
+	    return $identifierref
+	} else {
+	    return ""
+	}
+
+    }
+
+
+
+### Testing ground
+
+    ad_proc -public fix_href3 {
+	-man_id:required
+	-item_id:required
+	-identifierref:required
+	-fs_package_id:required
+	-fs_local_package_id:required
+	-folder_id:required
+	-type:required
+	-track_id:required
+    } {
+	Function use to fix the HREF of resources.
+	It could be that the reference to a resource is outside the 
+	scope of the learning object (somewhere on the web) instead
+	of a file or resource in the course. 
+
+	Therefore, this function determines whether ther link to the
+	resource is within the course materials. If that is the case
+	it created the link to where the file is stored in the file-
+	storage. Otherwise, if the resource needs to be fetched from
+	the web (http://) then we use that href instead.
+	
+	@param man_id manifest Id
+	@param item_title The title of the item in question
+	@param identifierref The resource's identifierref 
+	@param fs_package_id the file-storage package id
+	@param fs_local_package_id the local file-storage package id
+	@param folder_id file-storage folder id
+	@param type type of resource
+	@param track_id whether the ims_cp_item should be tracked or not.
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+	if {![empty_string_p $identifierref]} {
+	        
+	    # if the href is already a link to another site, then just
+	    # let it be that
+	    if {[regexp "http://" $identifierref]} {
+		set identifierref $identifierref
+	    } else {
+		# otherwise, let the fun begin!
+		# we need to construct the right URL for this item and
+		# the instance of the class that is trying to deploy
+		# it. Further explanation in the documentation.
+		switch $type {
+		    default {
+			set url1 "view/"
+#CM creating url2 in record-view
+#			set folder_id $folder_id
+#			set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
+#CM Not using url3 anymore
+#			set url3 [lorsm::fix_url -url $identifierref]
+			set content_root [fs::get_root_folder -package_id $fs_package_id]
+			set item_id $item_id
+#			set identifierref [export_vars -base record-view {content_root url2 url3 item_id man_id}] 
+			set identifierref [export_vars -base record-view {item_id man_id content_root}] 
+
+			# if the course is trackable, we need to make
+			# sure we record the items the user has
+			# seen. These are ims_items type of objects
+			if {$track_id != 0} {
+
+#			    set redirect_url $identifierref
+#			    set identifierref [export_vars -base record-view {redirect_url item_id}]
+
+			}
+		    }
+		}
+	    }
+	    return $identifierref
+	} else {
+	    return ""
+	}
+	
+    }
+
+ad_proc -public set_ims_item_id { ims_it_id } {
+    
+    variable ims_item_id $ims_it_id
 }
+
+ad_proc -public get_ims_item_id {} {
+
+    variable ims_item_id
+    return $ims_item_id
+ 
+}
+
+
+ad_proc -public init { urlvar rootvar {content_root ""} {template_root ""} {context "public"} {rev_id ""} {content_type ""} } {
     
+    upvar $urlvar url $rootvar root_path 
+    
+    variable item_id
+    variable revision_id
+    
+    # if a .tcl file exists at this url, then don't do any queries
+    if { [file exists [ns_url2file "$url.tcl"]] } {
+	return 0
+    }
+    
+    # cache this query persistently for 1 hour
+    # this is faster than 1 query because a pl/sql function in the
+    # where clause is a very bad idea
+    db_0or1row get_item_id ""
 
+    db_0or1row get_item_type ""
+    # No item found, so do not handle this request
+    if { ![info exists item_id] } { 
+	db_0or1row get_template_info "" -column_array item_info
+	
+	if { ![info exists item_info] } { 
+	    ns_log notice "content::init: no content found for url $url"
+	    return 0 
+	}
+    }
+    
+    variable item_url
+    set item_url $url
+
+    if { [empty_string_p $content_type] } {
+	set content_type $item_info(content_type)
+    }
+    
+    # Make sure that a live revision exists
+    if { [empty_string_p $rev_id] } {
+      set live_revision [db_string get_live_revision ""]
+	
+	if { [template::util::is_nil live_revision] } {
+	    ns_log notice "content::init: no live revision found for content item $item_id"
+	    return 0
+	}
+	set revision_id $live_revision
+    } else {
+	set revision_id $rev_id
+    }
+
+    variable template_path
+    
+    # Get the template 
+    set template_found_p [db_0or1row get_template_url "" -column_array info]
+    
+    if { !$template_found_p || [string equal $info(template_url) {}] } { 
+	ns_log notice "content::init: No template found to render content item $item_id in context '$context'"
+	return 0
+    }
+    
+    set url $info(template_url)
+    set root_path [get_template_root]
+    
+    return 1
+}
+
+ad_proc -public get_template_root {} {
+
+    # Look for package-defined root
+    set package_id [ad_conn package_id]
+    set template_root \
+	[ad_parameter -package_id $package_id TemplateRoot dummy ""]
+    
+    if { [empty_string_p $template_root] } {
+	# Look for template root defined in the CR
+	set package_id [apm_package_id_from_key "acs-content-repository"]
+	
+	set template_root [ad_parameter -package_id $package_id \
+			       TemplateRoot dummy "templates"]
+    }
+    
+    if { [string index $template_root 0] != "/" } {
+	# Relative path, prepend server_root
+	set template_root "[acs_root_dir]/$template_root"
+    }
+
+    return [ns_normalizepath $template_root]
+    
+}
+
+
+ad_proc -public get_content { { content_type {} } } {
+ 
+    variable item_id
+    variable revision_id
+    variable ims_item_id
+    variable ims_item_title
+
+    if { [template::util::is_nil item_id] } {
+      ns_log warning "content::get_content: No active item in content::get_content"
+	return
+    }
+
+    # Get the live revision
+    set revision_id [db_string get_revision ""]
+
+    if { [template::util::is_nil revision_id] } {
+	ns_log notice "content::get_content: No live revision for item $item_id"
+	return
+    }
+
+    # Get the mime type, decide if we want the text
+    set mime_type [db_string get_mime_type ""]
+  
+    if { [template::util::is_nil mime_type] } {
+	ns_log notice "content::get_content: No such revision: $revision_id"
+	return
+    }  
+
+    # Get the content type
+    if { [empty_string_p $content_type] } {
+	set content_type [db_string get_content_type ""]
+    }
+
+    upvar content content
+
+    array set content "item_id $item_id revision_id $revision_id mime_type $mime_type content_type $content_type"
+    
+}
+
+
+
+}
+    
+
Index: openacs-4/packages/lorsm/tcl/lorsm-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.xql	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,80 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="lorsm::get_content.get_revision">      
+      <querytext>
+
+        select live_revision from cr_items where item_id = :item_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::get_content.get_mime_type">      
+      <querytext>
+
+        select mime_type from cr_revisions 
+        where revision_id = :revision_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::get_content.get_content_type">      
+      <querytext>
+
+        select content_type from cr_items 
+        where item_id = :item_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::get_content.get_table_name">      
+      <querytext>
+
+        select table_name from acs_object_types 
+        where object_type = :content_type
+
+      </querytext>
+</fullquery>
+
+<partialquery name="lorsm::get_content.content_as_text">
+	<querytext>
+
+	, content as text
+
+	</querytext>
+</partialquery>
+
+<fullquery name="lorsm::get_content.get_content">      
+      <querytext>
+
+        select 
+           x.*, 
+          :content_type as content_type
+          $text_sql
+        from
+          cr_revisions r, ${table_name}x x
+        where
+          r.revision_id = :revision_id
+        and 
+          x.revision_id = r.revision_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init.get_live_revision">      
+      <querytext>
+
+    select live_revision from cr_items where item_id = :item_id
+
+      </querytext>
+</fullquery>
+
+<fullquery name="lorsm::init_all.get_live_revision">      
+      <querytext>
+
+    select live_revision from cr_items where item_id = :item_id
+
+      </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/tcl/lorsm-tracking-procs.tcl	4 Sep 2004 14:51:20 -0000	1.1
@@ -0,0 +1,120 @@
+# packages/lorsm/tcl/lorsm-tracking-procs.tcl
+
+ad_library {
+    
+    LORSM Student Tracking 
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-24
+    @arch-tag b8bbe245-6535-4ea9-a4a6-2be2d888b36d
+    @cvs-id $Id: lorsm-tracking-procs.tcl,v 1.1 2004/09/04 14:51:20 ernieg Exp $
+}
+
+#
+#  Copyright (C) 2004 Ernie Ghiglione
+#
+#  This package is free software; you can redistribute it and/or modify it under the
+#  terms of the GNU General Public License as published by the Free Software
+#  Foundation; either version 2 of the License, or (at your option) any later
+#  version.
+#
+#  It is distributed in the hope that it will be useful, but WITHOUT ANY
+#  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+#  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
+#  details.
+#
+
+namespace eval lorsm::track {
+
+    ad_proc -public new {
+	-user_id:required
+	-community_id:required
+	-course_id:required
+    } {
+	Tracks everytime a student gets deliver a course.
+	The aim of tracking is to see how many time a user has seen a 
+	course as well as the time he/she has spent on it. 
+	
+	@param user_id User ID
+	@param community_id Class or Club ID
+	@param course_id Course ID (Manifest ID)
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+	db_transaction {
+	    set track_id [db_exec_plsql track_st_new {
+
+		select lorsm_student_track__new (
+						 :user_id,
+						 :community_id,
+						 :course_id
+						 );
+
+	    }
+			 ]
+	    
+	}
+	return $track_id
+    }
+
+    ad_proc -public exit {
+	-track_id:required
+    } {
+	Sets the time when the student leaves the delivery environment
+	
+	@param track_id Track ID (given when the delivery session opened
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+	db_transaction {
+	    set track_id [db_exec_plsql track_st_exit {
+
+		select lorsm_student_track__exit (
+						 :track_id
+						 );
+
+	    }
+			 ]
+	    
+	}
+	return $track_id
+    }
+
+    ad_proc -public istrackable {
+	-course_id:required
+	-package_id:required
+    } {
+	Checks whether the instance of this course in the specified
+        community is trackable.
+
+	If it is, then it returns 1. Otherwise, 0.
+	
+	@param course_id Course ID (or manifest_id)
+	@param community_id Commuinity ID.
+	@author Ernie Ghiglione (ErnieG@mm.st)
+	
+    } {
+
+	set istrackable [db_string trackable {
+	    select istrackable from ims_cp_manifest_class
+	    where man_id = :course_id and lorsm_instance_id = :package_id
+	}]
+
+	if {$istrackable == "f"} {
+	    return 0
+	} else {
+	    return 1
+	}
+
+    }
+
+}
+
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/course-add-2.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-2.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-add-2.adp	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-add-2.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -24,6 +24,11 @@
 
 <if @isSCORM@ eq 0>
 <h3>IMS Package Info</h3>
+  <if @isBB@ eq 1>
+  <font color="green" size=\"-1\">  The uploaded file is a <b>Blackboard 6 complaint package</b>.</font>
+  <p>  
+  </if>
+
 <listtemplate name="d_IMS_package_info"></listtemplate>
 <p>
 </if>
Index: openacs-4/packages/lorsm/www/course-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-add-2.tcl	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-add-2.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -68,6 +68,17 @@
 }
 
 
+# Is this a Blackboard6 package?
+set isBB [lors::imscp::bb6::isBlackboard6 -tmp_dir $tmp_dir]
+
+if {$isBB == 1} {
+    # we generate metadata for the file
+    ns_log Notice "Generating MD record from Blackboard6 package $tmp_dir --"
+    lors::imscp::bb6::create_MD -tmp_dir $tmp_dir -file $file
+    ns_log Notice "Done!"
+
+}
+
 ## adds folder to the CR
 set parent_id $folder_id
 set fs_dir $tmp_dir
Index: openacs-4/packages/lorsm/www/course-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-add-3.tcl	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-add-3.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -5,6 +5,8 @@
 
     Add files to the CR
     Process imsmanifest.xml
+    Determines this is a Blackboard course and if it is process it accordingly.
+    Inserts all ims_items, resources and all IMS CP entities into the DB.
 
     @author Ernie Ghiglione (ErnieG@mm.st)
     @creation-date 19 March 2003
@@ -31,6 +33,33 @@
 ad_require_permission $folder_id admin
 
 
+# Display progress bar
+ad_progress_bar_begin \
+    -title "Uploading course..." \
+    -message_1 "Uploading and processing your course, please wait ..." \
+    -message_2 "We will continue automatically when processing is complete."
+
+
+ns_write "<h2>Initiating Updating log... </h2><blockquote>"
+
+# Is this a Blackboard6 package?
+set isBB [lors::imscp::bb6::isBlackboard6 -tmp_dir $tmp_dir]
+
+if {$isBB == 1} {
+    ns_write "<p><font color=\"red\"><b>Blackboard6 Content Packaging Course</b></font>.<br> Modifying package to be IMS CP compliant..."
+    ns_write "<blockquote><br> Cleaning up unused application and folders..."
+    lors::imscp::bb6::clean_items -tmp_dir $tmp_dir -file "imsmanifest.xml"
+    ns_write "<font color=\"green\"><b>Done!</b></font>"
+    ns_write "<br> Renaming content types according to IMS CP specification..."
+    lors::imscp::bb6::extract_html -tmp_dir $tmp_dir -file "imsmanifest.xml"
+    ns_write "<font color=\"green\"><b>Done!</b></font></blockquote>"
+
+}
+
+
+ns_write "<h3> Starting File Processing... </h3>"
+
+
 db_transaction {
 
     ## adds folder to the CR
@@ -59,17 +88,51 @@
 
         set new_parent_id [lors::cr::add_folder -parent_id $parent_id -folder_name $cr_dir]
 
-        # Display progress bar
 
-        ad_progress_bar_begin \
-            -title "Uploading course..." \
-            -message_1 "Uploading and processing your course, please wait ..." \
-            -message_2 "We will continue automatically when processing is complete."
+	# PERMISSIONS FOR FILE-STORAGE
 
+        # Before we go about anything else, lets just set permissions straight.
+         # Disable folder permissions inheritance
+         permission::toggle_inherit -object_id $new_parent_id
 
+	# Set read permissions for community/class dotlrn_member_rel
 
-	ns_write "<h2>Initiating Updating log... </h2><blockquote>"
+ 	 set community_id [dotlrn_community::get_community_id]
 
+	 set party_id_member [db_string party_id {select segment_id from rel_segments \
+						      where group_id = :community_id \
+						      and rel_type = 'dotlrn_member_rel'}]
+
+	 permission::grant -party_id $party_id_member -object_id $new_parent_id -privilege read
+
+	# Set read permissions for community/class dotlrn_admin_rel
+
+	set party_id_admin [db_string party_id {select segment_id from rel_segments \
+						     where group_id = :community_id \
+						     and rel_type = 'dotlrn_admin_rel'}]
+
+	permission::grant -party_id $party_id_admin -object_id $new_parent_id -privilege read
+
+	# Set read permissions for *all* other professors  within .LRN
+	# (so they can see the content)
+
+        set party_id_professor [db_string party_id {select segment_id from rel_segments \
+                                                     where rel_type = 'dotlrn_professor_profile_rel'}]
+
+	permission::grant -party_id $party_id_professor -object_id $new_parent_id -privilege read
+
+	# Set read permissions for *all* other admins within .LRN
+	# (so they can see the content)
+
+        set party_id_admins [db_string party_id {select segment_id from rel_segments \
+                                                     where rel_type = 'dotlrn_admin_profile_rel'}]
+
+	permission::grant -party_id $party_id_admins -object_id $new_parent_id -privilege read
+
+
+
+
+
         set filesx [lors::cr::add_files -parent_id $new_parent_id -indb_p $indb_p -files [lors::cr::has_files -fs_dir $fs_dir]]
 
         set all_files [concat $all_files $filesx]
@@ -106,7 +169,7 @@
 		    #For display purposes
 		    ns_write "Processing file(s):<blockquote>"
 		    foreach file $files {
-			ns_write "<img src=\"/resources/file-storage/file.gif\"> [string trimleft $file $tmp_dir]<font color=\"green\">...OK</font><br>"
+			ns_write "<img src=\"/resources/file-storage/file.gif\"> [regsub $tmp_dir $file {}]<font color=\"green\">...OK</font><br>"
 		    }
 		    ns_write "</blockquote>"
 		    #
@@ -227,8 +290,59 @@
 			-hasmetadata $man_hasmetadata \
 			-isscorm $man_isscorm \
 			-folder_id $new_parent_id \
-                        -fs_package_id $fs_package_id]
+                        -fs_package_id $fs_package_id \
+		        -community_id $community_id]
 
+
+	ns_write "Granting permissions $course_name Manifest...<br>"
+
+	# PERMISSIONS FOR MANIFEST and learning objects
+
+	# set up in the same way as permissions for the file storage
+	# objects. As we want to maintain consistency btw the
+	# learnining objects and their content
+
+         # Disable folder permissions inheritance
+         permission::toggle_inherit -object_id $man_id
+
+	# Set read permissions for community/class dotlrn_member_rel
+
+ 	 set community_id [dotlrn_community::get_community_id]
+
+	 set party_id_member [db_string party_id {select segment_id from rel_segments \
+						      where group_id = :community_id \
+						      and rel_type = 'dotlrn_member_rel'}]
+
+	 permission::grant -party_id $party_id_member -object_id $man_id -privilege read
+
+	# Set read permissions for community/class dotlrn_admin_rel
+
+	set party_id_admin [db_string party_id {select segment_id from rel_segments \
+						     where group_id = :community_id \
+						     and rel_type = 'dotlrn_admin_rel'}]
+
+	permission::grant -party_id $party_id_admin -object_id $man_id -privilege read
+
+	# Set read permissions for *all* other professors  within .LRN
+	# (so they can see the content)
+
+        set party_id_professor [db_string party_id {select segment_id from rel_segments \
+                                                     where rel_type = 'dotlrn_professor_profile_rel'}]
+
+	permission::grant -party_id $party_id_professor -object_id $man_id -privilege read
+
+	# Set read permissions for *all* other admins within .LRN
+	# (so they can see the content)
+
+        set party_id_admins [db_string party_id {select segment_id from rel_segments \
+                                                     where rel_type = 'dotlrn_admin_profile_rel'}]
+
+	permission::grant -party_id $party_id_admins -object_id $man_id -privilege read
+
+
+	# Done with Manifest and learning object Permissions
+
+
 	ns_write "Adding $course_name Manifest...<br>"
 
         if {$man_hasmetadata == 1} {
@@ -298,13 +412,6 @@
 
         set resourcex [$resources child all resource]
 
-
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
-	set f_handler [open /tmp/add.txt w+]
-	puts -nonewline $f_handler $add
-	close $f_handler
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
-
         if { ![empty_string_p $resourcex] } {
 
             set res_list [list]
@@ -316,8 +423,21 @@
                 set res_hasmetadata [lors::imsmd::hasMetadata $resource]
                 set res_files [lors::imsmd::getResource -node $resource -att files]
                 set res_scormtype [lors::imsmd::getAtt $resource adlcp:scormtype]
-                
 
+### Addition to showcase integration with Assessment
+
+#		if {$res_type == "ims-qti-package"} {
+
+#		    set res_href [ims_qti_register_assessment $tmp_dir/$res_href]
+		    
+
+#		}
+
+
+## End integration showcase                
+
+
+
                 set resource_id [lors::imscp::resource_add \
                                      -man_id $man_id \
                                      -identifier $res_identifier \
@@ -372,13 +492,7 @@
         #ns_write "no page"
     }
 
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
-	set f_handler [open /tmp/res_list.txt w+]
-	puts -nonewline $f_handler $res_list
-	close $f_handler
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
 
-
     # Here's where we link items and resources.  Take into
     # account that a resources can have 1 to many items
 
@@ -411,21 +525,7 @@
 
     ns_write "Now we are almost done...<br>"
 
-#    set all_files [lindex $all_files 0]
 
-#   ns_write 
-#   ns_write 
-
-
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
-	set f_handler [open /tmp/all_files.txt w+]
-	puts -nonewline $f_handler $all_files
-	close $f_handler
-	set f_handler [open /tmp/l_files.txt w+]
-	puts -nonewline $f_handler $l_files
-	close $f_handler
-########## REMOVE  DEBUGGING PURPOSE ONLY  ####
-
     foreach file $l_files {
 
         set filename [lindex $file 0]
Index: openacs-4/packages/lorsm/www/course-add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-add.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-add.adp	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-add.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -2,8 +2,29 @@
 <property name="title">Upload an IMS/SCORM Content Package Course</property>
 <property name="context">@context;noquote@</property>
 
-
-<p>We have detected the root folder for <a href="@fs_url@">@folder_name;noquote@</a> and we will import your course in this folder.</p>
-
-<formtemplate id=course_upload></formtemplate>
-
+<table width="100%">
+  <tr>
+    <td valign="top">
+        <h2>Shared Courses in the Repository</h2>
+     </td>
+  <tr>
+   <td>
+     <blockquote>
+        <p>You can add courses already existing in the repository
+        <include src="lib/repository-shared-courses">
+     </blockquote>
+   </td>
+ </tr>
+  <tr>
+    <td valign="top">
+        <h2>Add your own course</h2>
+     </td>
+  <tr>
+   <td>
+     <blockquote>
+        <p>We have detected the root folder for <a href="@fs_url@">@folder_name;noquote@</a> and we will import your course in this folder.</p>
+        <formtemplate id=course_upload></formtemplate>
+     </blockquote>
+   </td>
+ </tr>
+</table>
Index: openacs-4/packages/lorsm/www/course-structure.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-structure.adp	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-structure.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -4,30 +4,30 @@
 
   
 <blockquote>
-<table class="list" cellpadding="3" cellspacing="1">
+<table class="list" cellpadding="3" cellspacing="1" width="70%">
     <tr class="list-header">
         <th class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" colspan="2">
         Course Information
         </th>
     </tr>
               <tr class="list-odd">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Course Name:
               </td>
               <td class="list" valign="top" style="background-color: #f0f0f0; font-weight: bold;">
                 <a href="@folder@">@course_name;noquote@</a>
               </td>
           </tr>
               <tr class="list-even">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Version:
               </td>
               <td class="list" valign="top" style="background-color: #f0f0f0">
                   @version;noquote@
               </td>
           </tr>
               <tr class="list-odd">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Metadata?:
               </td>
               <td class="list" valign="top" style="background-color: #f0f0f0">
@@ -40,15 +40,15 @@
               </td>
           </tr>
               <tr class="list-even">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Identifier:
               </td>
-              <td class="list" valign="top" style="background-color: #f0f0f0">
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
                 @identifier@
               </td>
           </tr>
               <tr class="list-odd">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Is SCORM?:
               </td>
               <td 
@@ -62,37 +62,88 @@
               </td>
           </tr>
               <tr class="list-even">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Storage Folder:
               </td>
-              <td class="list" valign="top" style="background-color: #f0f0f0">
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
                 <a href="@folder@">@instance@</a>
               </td>
           </tr>
               <tr class="list-odd">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Created By:
               </td>
-              <td class="list" valign="top" style="background-color: #f0f0f0">
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
                 @created_by@
               </td>
           </tr>
               <tr class="list-even">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Date:
               </td>
-              <td class="list" valign="top" style="background-color: #f0f0f0">
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
                 @creation_date;noquote@
               </td>
           </tr>
-              <tr class="list-odd last">
-              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
                 Submanifests:
               </td>
-              <td class="list" valign="top" style="background-color: #f0f0f0">
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
                 @submanifests@
               </td>
           </tr>
+          </tr>
+              <tr class="list-even">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Status:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                <if @isenabled@ eq t>
+                 <b>Enabled</b>
+                </if>
+                <else>
+                 <font color="red"><b>Disabled</b></font>
+                </else>
+                     <div style="float: right;">
+	                  <a href="@enabler_url@" class="button">Change</a>
+                     </div>
+              </td>
+          </tr>
+          </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;">
+                Trackable:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0">
+                <if @istrackable@ eq t>
+                 <b>Yes</b>
+                </if>
+                <else>
+                 <b>No</b>
+                </else>
+                     <div style="float: right;">
+	                  <a href="@tracker_url@" class="button">Change</a>
+                     </div>
+              </td>
+          </tr>
+          </tr>
+              <tr class="list-even last">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Is shared?
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                <if @isshared@ eq t>
+	         <font color="green"><b>Shared</b></font>
+                </if>
+                <else>
+                 <font color="red"><b>Not Shared</b></font>
+                </else>
+                     <div style="float: right;">
+	                  <a href="@sharer_url@" class="button">Change</a>
+                     </div>
+              </td>
+          </tr>
     <tr class="list-header">
         <th class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" colspan="2">
          Organizations
Index: openacs-4/packages/lorsm/www/course-structure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/course-structure.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/course-structure.tcl	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/course-structure.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -15,6 +15,8 @@
 } -errors {
 }
 
+set package_id [ad_conn package_id]
+
 ad_proc -public getFolderKey {
     {-object_id:required}
 } {
@@ -31,6 +33,7 @@
 set context [list "Course Structure"]
 set title "Course Structure"
 
+
 if {[db_0or1row manifest "
     select 
            cp.man_id,
@@ -48,14 +51,19 @@
            end as isscorm,
            cp.fs_package_id,
            cp.folder_id,
+	   cp.isshared,
 	   acs.creation_user,
 	   acs.creation_date,
-	   acs.context_id
+	   acs.context_id,
+           cpmc.isenabled,
+           cpmc.istrackable
     from
-           ims_cp_manifests cp, acs_objects acs
+           ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc
     where 
            cp.man_id = acs.object_id
 	   and  cp.man_id = :man_id
+           and  cp.man_id = cpmc.man_id
+           and  cpmc.lorsm_instance_id = :package_id
            and  cp.parent_man_id = 0"]} {
 
     # Sets the variable for display. 
@@ -105,7 +113,7 @@
 }
 
 
-append orgs_list "<table class=\"list\" cellpadding=\"3\" cellspacing=\"1\">"
+append orgs_list "<table class=\"list\" cellpadding=\"3\" cellspacing=\"1\" width=\"100%\">"
 append orgs_list "<tr class=\"list-header\">
         <th class=\"list\" valign=\"top\" style=\"background-color: #e0e0e0; font-weight: bold;\">Organization</th>
         <th class=\"list\" valign=\"top\" style=\"background-color: #e0e0e0; font-weight: bold;\">Metadata?</th>
@@ -129,25 +137,36 @@
 } {
 
 
-    append orgs_list "<tr class=\"list-even\"><td valign=\"top\">$org_title</td><td valign=\"top\" align=\"center\">$hasmetadata</td><td>"
+    append orgs_list "<tr class=\"list-even\"><td valign=\"top\" width=\"20%\">$org_title</td><td valign=\"top\" align=\"center\" width=\"5%\">$hasmetadata</td><td>"
 
     set indent [expr $indent +1]
     set missing_text "Nothing here"
-
+    set return_url [export_vars -base [ns_conn url] man_id]
     set table_extra_html { width="100%" }
+   
+    set table_extra_vars {return_url}
     set table_def {
-	{ title "" "no_sort" "<td>$indent[if {![empty_string_p $identifierref]} {set href \"<a href='[apm_package_url_from_id $fs_package_id]view/[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/[lorsm::fix_url -url $identifierref]'>$item_title</a>\"} else {set href $item_title}]</td>" }
-	{ metadata "" "no_sort" "<td align=\"center\">[if {$hasmetadata == \"f\"} {set hasmetadata \"\"} else {set hasmetadata \"<a href=md/?ims_md_id=$item_id>Metadata\"}]</a></td>" }
+	{ title "Item Name" "no_sort" "<td>$indent[if {![empty_string_p $identifierref]} {set href \"<a href='[apm_package_url_from_id $fs_package_id]view/[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/[lorsm::fix_url -url $identifierref]'>$item_title</a>\"} else {set href $item_title}]</td>" }
+	{ Edit "Edit?" "no_sort" "<td align=\"center\">[if {![empty_string_p $identifierref]} {set href \"<a href=\'[export_vars -base edit-content {identifierref folder_id return_url fs_package_id}]\'>Edit</a></td>\"}]"}
+	{ metadata "Metadata?" "no_sort" "<td align=\"center\">[if {$hasmetadata == \"f\"} {set hasmetadata \"No\"} else {set hasmetadata \"<a href=md/?ims_md_id=$item_id>Metadata\"}]</a></td>" }
+	{ type   "Type" "no_sort" "<td align=\"center\">$type</td>" }
+	{ shared "Is Shared?" "no_sort" "<td align=\"center\">[if {$isshared == false} {set ret \"No\"}]</td>" }
     }
 
-    set table_item [ad_table -Tmissing_text $missing_text  -Ttable_extra_html $table_extra_html blah {
+    set table_item [ad_table -Tmissing_text $missing_text -Textra_vars $table_extra_vars -Theader_row_extra "style=\"background-color: #e0e0e0; font-weight: bold;\" class=\"list-header\"" -Ttable_extra_html $table_extra_html blah {
         SELECT
 		o.object_id,
- 		repeat('&nbsp;', (tree_level(tree_sortkey) - :indent)* 5) as indent,
+ 		repeat('&nbsp;', (tree_level(tree_sortkey) - :indent)* 3) as indent,
 		i.item_id,
                 i.title as item_title,
                 i.hasmetadata,
                 i.org_id,
+                case
+                    when i.isshared = 'f' then (
+						'false'
+						) 
+	            else 'true'
+                end as isshared,
                 case 
 		    when i.identifierref <> '' then (
 						     SELECT
@@ -162,6 +181,20 @@
 )
                   else ''
                 end as identifierref,
+                case 
+		    when i.identifierref <> '' then (
+						     SELECT
+						      res.type
+						     FROM
+						      ims_cp_items_to_resources i2r, 
+						      ims_cp_resources res 
+						     WHERE
+						       i2r.res_id = res.res_id
+						      AND
+						       i2r.item_id = i.item_id 
+)
+                  else ''
+                end as type,
                 m.fs_package_id,
 	        m.folder_id,
 	        m.course_name
@@ -192,6 +225,7 @@
 
 append orgs_list "</table>"
 
+set enabler_url [export_vars -base enabler {man_id}]
+set tracker_url [export_vars -base tracker {man_id}]
+set sharer_url  [export_vars -base sharer {man_id folder_id return_url}]
 
-
-
Index: openacs-4/packages/lorsm/www/edit-content.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/edit-content.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/edit-content.tcl	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,48 @@
+# packages/lorsm/www/edit-content.tcl
+
+ad_page_contract {
+    
+    Online content editor for LORSm
+
+    Uses htmlarea to edit html/txt file-storage
+    content
+
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-06
+    @arch-tag: 6f57a7d1-7032-44e4-b333-6a7fb74ae30b
+    @cvs-id $Id: edit-content.tcl,v 1.1 2004/09/04 14:51:21 ernieg Exp $
+} {
+    folder_id:integer
+    fs_package_id:integer
+    identifierref
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+
+set folder [db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]
+set fs_root_folder [db_string sql {select file_storage__get_root_folder(:fs_package_id)}]
+set identifierref [lorsm::fix_url -url $identifierref]
+set pather $folder/$identifierref
+
+# in some case, the resource is defined with a / that conflicts with
+# our existing / creating a double //. Therefore we use a regsub to
+# get rid of it
+regsub -all {//} $pather {/} pather
+
+
+set file_id [db_string sql {select content_item__get_id(:pather, :fs_root_folder, 'f')}]
+
+# check for permissions
+# By default, only the creator has admin access to content
+
+permission::require_write_permission -object_id $file_id -creation_user $user_id 
+
+#ns_write "folder $folder\n pather: $pather \n file_id: $file_id"
+#ad_script_abort
+
+ad_returnredirect [export_vars -base [apm_package_url_from_id $fs_package_id]file-content-edit {file_id return_url}]
+
Index: openacs-4/packages/lorsm/www/enabler.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/enabler.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/enabler.adp	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+  <formtemplate id="enabler"></formtemplate>
Index: openacs-4/packages/lorsm/www/enabler.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/enabler.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/enabler.tcl	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,67 @@
+# packages/lorsm/www/enabler.tcl
+
+ad_page_contract {
+    
+    enable/disable courses for a class
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-19
+    @arch-tag ebea2a9b-b6d6-4083-83c5-58686ba9e201
+    @cvs-id $Id: enabler.tcl,v 1.1 2004/09/04 14:51:21 ernieg Exp $
+} {
+    man_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id [ad_conn user_id]  \
+		 -community_id $community_id ]
+
+
+
+set title "Set Course Trackable"
+set context [list "Set Course Status"]
+
+ad_form -name enabler \
+    -export {package_id} \
+    -form {
+	{man_id:key}
+	{project:text(inform)
+	    {label "Course Name:"}
+	    {value {[lorsm::get_course_name -manifest_id $man_id]}}
+	}
+	{isenabled:text(inform)
+	    {label "Current Status:"}
+	}
+	{enable:text(radio)
+	    {label Status?}
+	    {options {{"Enable" t} {"Disable" f}}}
+	}
+    } -select_query {
+        select 
+        case when isenabled = 't' then 'Enabled'
+          else 'Disabled'
+        end as isenabled
+	from ims_cp_manifest_class
+	where man_id = :man_id and 
+	lorsm_instance_id = :package_id
+    } -edit_data {
+        db_dml do_update "
+            update ims_cp_manifest_class
+            set isenabled = :enable
+            where man_id = :man_id and 
+            lorsm_instance_id = :package_id"
+    } -after_submit {
+        ad_returnredirect [site_node::get_url_from_object_id -object_id package_id]
+        ad_script_abort
+    }
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/index.adp	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/index.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -1,15 +1,14 @@
 <master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
 
-<if @admin_p@ eq 1>
-<div style="float: right;">
-  <a href="course-add" class="button">Add a Course</a>
-</div>
-</if>
-
 <table width="100%">
   <tr>
     <td valign="top">
-        <h2>Courses</h2>
+        <h2>Courses in your Repository</h2>
+     </td>
+  <tr>
+   <td>
         <listtemplate name="d_courses"></listtemplate>
    </td>
  </tr>
Index: openacs-4/packages/lorsm/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/index.tcl	22 Apr 2004 03:58:09 -0000	1.1
+++ openacs-4/packages/lorsm/www/index.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -1,3 +1,5 @@
+# packages/lorsm/www/index.tcl
+
 ad_page_contract {
     Learning Object Repository Management Index page
 
@@ -8,6 +10,10 @@
 } {
 }
 
+set title "Manage Courses in Repository"
+set context [list "Manage Courses"]
+
+
 set package_id [ad_conn package_id]
 set community_id [dotlrn_community::get_community_id]
 
@@ -16,37 +22,49 @@
 		 -community_id $community_id ]
 
 
+set actions [list]
+
+if {$admin_p} {
+    lappend actions  "Add Course" [export_vars -base "course-add"] "Add a IMS/SCORM Compliant Course"
+    lappend actions  "Search Learning Objects" [export_vars -base "/search"] "Search for Learninng Objects in the Repository"
+    lappend actions  "Available Courses" [export_vars -base "shared/"] "View Available Courses in the Repository"
+}
+
 template::list::create \
     -name d_courses \
     -multirow d_courses \
     -html {width 50%} \
+    -actions $actions \
     -key man_id \
     -no_data "No Courses" \
     -elements {
         course_name {
-            label "Course Name"
+            label "Available Courses"
             display_col course_name
             link_url_eval {delivery/?[export_vars man_id]}
             link_html {title "Access Course"}
 
         }
-        course_structure {
-            label "Course Structure"
-	    display_eval {\[view\]}
-            link_url_eval {course-structure?[export_vars man_id]}
-            link_html {title "Course Structure"}
-	    html { align center }
-        }
         hasmetadata {
             label "Metadata?"
             link_url_eval {md/?[export_vars ims_md_id]}
-            link_html {title "See metadata"}
+            link_html {title "See metadata" }
 	    html { align center }
         }
         isscorm {
             label "SCORM?"
 	    html { align center }
         }
+        isenabled {
+            label "Status"
+	    html { align center }
+        }
+        istrackable {
+            label "Tracking?"
+            link_url_eval {tracking/?[export_vars man_id]}
+            link_html {title "Track Student's Progress" class button}
+	    html { align center }
+        }
         creation_user {
             label "Owner"
             display_eval {[person::name -person_id $creation_user]}
@@ -59,12 +77,20 @@
         export {
             label "Export"
 	    display_eval {\[zip\]}
-            link_url_eval {export/?[export_vars folder_id]}
+            link_url_eval {[export_vars -base export folder_id]}
             link_html {title "Export as IMS Content Package"}
 	    html { align center }
         }
+        admin {
+            label "Admin Course"
+	    display_eval {Admin}
+            link_url_eval {[export_vars -base course-structure man_id]}
+            link_html {title "Admin Course" class button}
+	    html { align center }
+        }
     }
 
+
 db_multirow -extend { ims_md_id } d_courses select_d_courses {
     select 
            cp.man_id,
@@ -83,13 +109,25 @@
            cp.folder_id,
 	   acs.creation_user,
 	   acs.creation_date,
-	   acs.context_id
+	   acs.context_id,
+           case
+              when cpmc.isenabled = 't' then 'Enabled'
+             else 'Disabled'
+           end as isenabled,
+           case
+              when cpmc.istrackable = 't' then 'Yes'
+             else 'No'
+           end as istrackable
+              
     from
-           ims_cp_manifests cp, acs_objects acs
+           ims_cp_manifests cp, acs_objects acs, ims_cp_manifest_class cpmc
     where 
            cp.man_id = acs.object_id
     and
-           acs.context_id = :package_id
+           cp.man_id = cpmc.man_id
+    and
+           cpmc.community_id = :community_id
+    order by acs.creation_date desc
 } {
     set ims_md_id $man_id
 }
Index: openacs-4/packages/lorsm/www/sharer.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/sharer.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/sharer.adp	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+  <formtemplate id="sharer"></formtemplate>
Index: openacs-4/packages/lorsm/www/sharer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/sharer.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/sharer.tcl	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,94 @@
+# packages/lorsm/www/sharer.tcl
+
+ad_page_contract {
+    
+    Enable sharing of courses, organizations and learning objects
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-09
+    @arch-tag: 0d48cf78-3d5d-4a39-b2e0-2f090bfbecb8
+    @cvs-id $Id: sharer.tcl,v 1.1 2004/09/04 14:51:21 ernieg Exp $
+} {
+    man_id:integer
+    folder_id:integer
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+# check admin permisssion for the community
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id $user_id  \
+		 -community_id $community_id ]
+
+# check write permisssion for the learning object/manifest
+permission::require_write_permission -object_id $man_id -creation_user $user_id
+
+
+set title "Share Course/Learning Object"
+set context [list "Share Course/Learning Object"]
+
+ad_form -name sharer \
+    -export {return_url folder_id} \
+    -form {
+	{man_id:key}
+	{project:text(inform)
+	    {label "Course Name:"}
+	    {value {[lorsm::get_course_name -manifest_id $man_id]}}
+	}
+	{isshared:text(inform)
+	    {label "Current Status:"}
+	}
+	{share:text(radio)
+	    {label Status?}
+	    {options {{"Shared" t} {"Not Shared" f}}}
+	}
+    } -select_query {
+        select 
+        case when isshared = 't' then 'Shared'
+          else 'Not Shared'
+        end as isshared
+	from ims_cp_manifests
+	where man_id = :man_id
+    } -edit_data {
+	db_transaction {
+	    db_dml do_update {
+            	update ims_cp_manifests
+	            set isshared = :share
+        	    where man_id = :man_id }
+
+	    if {$share == "t"} {
+
+	        set party_id_students [db_string party_id {select segment_id from rel_segments \
+        	                                             where rel_type = 'dotlrn_student_profile_rel'}]
+
+	        permission::grant -party_id $party_id_students -object_id $man_id -privilege read
+	        permission::grant -party_id $party_id_students -object_id $folder_id -privilege read
+
+
+	    } else {
+
+	        set party_id_students [db_string party_id {select segment_id from rel_segments \
+        	                                             where rel_type = 'dotlrn_student_profile_rel'}]
+
+                 permission::revoke -party_id $party_id_students -object_id $man_id -privilege read
+                 permission::revoke -party_id $party_id_students -object_id $folder_id -privilege read
+
+	    }
+	}	
+    } -after_submit {
+        ad_returnredirect $return_url
+
+    }
+
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/tracker.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/tracker.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracker.adp	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,7 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+  <formtemplate id="tracker"></formtemplate>
+
+  
Index: openacs-4/packages/lorsm/www/tracker.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/Attic/tracker.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracker.tcl	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,67 @@
+# packages/lorsm/www/tracker.tcl
+
+ad_page_contract {
+    
+    set a course for a class to be trackable
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-25
+    @arch-tag 07ceb832-2053-4579-bec2-76708522707a
+    @cvs-id $Id: tracker.tcl,v 1.1 2004/09/04 14:51:21 ernieg Exp $
+} {
+    man_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id [ad_conn user_id]  \
+		 -community_id $community_id ]
+
+
+
+set title "Set Course Track Options"
+set context [list "Set Course Options"]
+
+ad_form -name tracker \
+    -export {package_id} \
+    -form {
+	{man_id:key}
+	{project:text(inform)
+	    {label "Course Name:"}
+	    {value {[lorsm::get_course_name -manifest_id $man_id]}}
+	}
+	{istrackable:text(inform)
+	    {label "Current Status:"}
+	}
+	{enable:text(radio)
+	    {label Status?}
+	    {options {{"Trackable?" t} {"No, Thanks" f}}}
+	}
+    } -select_query {
+        select 
+        case when istrackable = 't' then 'Yes'
+          else 'No'
+        end as istrackable
+	from ims_cp_manifest_class
+	where man_id = :man_id and 
+	lorsm_instance_id = :package_id
+    } -edit_data {
+        db_dml do_update "
+            update ims_cp_manifest_class
+            set istrackable = :enable
+            where man_id = :man_id and 
+            lorsm_instance_id = :package_id"
+    } -after_submit {
+        ad_returnredirect [site_node::get_url_from_object_id -object_id package_id]
+        ad_script_abort
+    }
+
+
+
+
+
Index: openacs-4/packages/lorsm/www/delivery/body.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/body.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/delivery/body.adp	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/delivery/body.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -1,27 +1,24 @@
-<html>
-  <head>
-    <meta name="generator" content="OpenACS LORS Management">
+<master>
+<center>
+    <script type="text/javascript">
+      <!--
+      // Check if we're inside and the tree menu is shown
+      if (window.parent.toc) {
+      window.parent.toc.selectItem(0);
+      }
+      //-->
+    </script>
     
-      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
-    
-      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
-    
-      <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/default-master.css" media="all">
-    
+<h1>Welcome to <b>@course_name@</h1>
+<p>
 
-    <script src="/resources/acs-subsite/core.js" language="javascript"></script>
-
-    <textarea id="holdtext" style="display: none;"></textarea>
-
-    
-    <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/site-master.css" media="all">
-
- </head>
-
- <body border=0>
-<p align="center"><font size=+3">Welcome to LEON</font><br><font size=-1>Course Delivery System for LORS</font>
-</p>
-
-<p align="center">Click on the Course Index items to start your <b>@course_name@</b> course.</p>
- </body>
-</html>
+      Your Stats:
+      <br>
+	You have seen this course <b>x</b> number of times and have covered <b>@viewed_percent@ %</b> of the content.
+    </p>
+    <if @last_page_viewed@ defined>
+      <p>
+	The last page you viewed was: <b><a href="record-view?man_id=@man_id@&item_id=@imsitem_id@">@last_page_viewed;noquote@</a></b>
+    </if>
+    <p>
+      Click on menu to the left to view course materials.
Index: openacs-4/packages/lorsm/www/delivery/body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/body.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/delivery/body.tcl	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/delivery/body.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -9,9 +9,58 @@
     @arch-tag a20dffe3-6d54-4ece-858c-4529e82c163b
     @cvs-id $Id$
 } {
-    course_name:notnull
+    man_id:notnull
 } -properties {
 } -validate {
 } -errors {
 }
 
+set user_id [ad_conn user_id]
+db_0or1row get_last_viewed {
+    select item_id as imsitem_id, coalesce(acs_object__name(object_id),'Item '||object_id) as last_page_viewed
+    from views v,
+         ims_cp_items i,
+         ims_cp_organizations o
+    where v.viewer_id = :user_id
+          and v.object_id = i.item_id
+          and i.org_id = o.org_id
+          and o.man_id = :man_id
+    order by v.last_viewed desc
+    limit 1
+}
+
+set all_items [db_list get_total_items {
+    select i.item_id
+    from ims_cp_items i,
+    ims_cp_organizations o
+    where o.man_id = :man_id
+    and i.org_id = o.org_id   
+}]
+set total_item_count [llength $all_items]
+set viewed_items [db_list get_viewed_items "
+            select v.object_id
+              from views v
+             where v.viewer_id = :user_id
+               and v.object_id in ([join $all_items ,])
+        "]
+set viewed_item_count [llength $viewed_items]
+set viewed_percent [lc_numeric [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100] "%.2f"]
+
+# Get the course name
+if {[db_0or1row manifest "
+    select 
+           cp.course_name,
+	   cp.fs_package_id
+    from
+           ims_cp_manifests cp
+    where 
+	   cp.man_id = :man_id
+           and  cp.parent_man_id = 0"]} {
+    
+    # Course Name
+    if {[empty_string_p $course_name]} {
+	set course_name "No Course Name"
+    } 
+} else {
+    set course_name "No Course Name"
+}
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/exit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/exit.tcl	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,26 @@
+# packages/lorsm/www/delivery/exit.tcl
+
+ad_page_contract {
+    
+    Student tracking exit
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-25
+    @arch-tag 04aa013e-2a53-45eb-825d-d576ea35cd14
+    @cvs-id $Id: exit.tcl,v 1.1 2004/09/04 14:51:21 ernieg Exp $
+} {
+    track_id:integer
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+# stamps the time when leaving the delivery environment
+
+if {$track_id != 0} {
+    lorsm::track::exit -track_id $track_id
+}
+
+# redirects
+ad_returnredirect $return_url
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/footer.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/header.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/header.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/delivery/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/delivery/index.adp	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/delivery/index.adp	4 Sep 2004 14:51:21 -0000	1.2
@@ -1,20 +1,8 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
-   "http://www.w3.org/TR/html4/frameset.dtd">
 <html>
 <head>
-      <title>@course_name@</title>
-</head>
-<frameset rows="50,*,50" border="2">
-<frame src="header?course_name=@course_name@" name="header" title="header" scrolling="no">
-<frameset cols="20%, *" frameborder="1" framespacing="3">
-<frame frameborder="2" marginwidth="0" marginheight="0" src="toc?man_id=@man_id@" name="frame" title="TOC">
-<frame frameborder="2" src="body?course_name=@course_name@" name="body">
-</frameset>
+<title>@course_name@</title>
 
-<frame src="footer" name="footer" title="footer" scrolling="no">
-<noframes>
-      <p><br />
-  </p>
-  </noframes>
+<frameset cols="200,*" border=0>
+<frame src="menu?man_id=@man_id@<if @ims_id@ defined>&ims_id=@ims_id@</if>&track_id=@track_id@" name="toc">
+<frame src="<if @ims_id@ defined>@body_url;noquote@</if><else>body?man_id=@man_id@</else>" name="content">
 </frameset>
-</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/delivery/index.tcl	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/delivery/index.tcl	4 Sep 2004 14:51:21 -0000	1.2
@@ -1,67 +1,57 @@
-# packages/lorsm/www/delivery/index.tcl
+# packages/lorsm/www/delivery4/index.tcl
 
 ad_page_contract {
     
-    Course Delivery Based on IMS Content Packaging Structure
+    New index file using new tree menu
     
-    @author Ernie Ghiglione (ErnieG@mm.st)
-    @creation-date 2004-04-09
-    @arch-tag cfea182c-c686-4bee-be61-ec73f3d3a10f
+    @author Roel Canicula (roelmc@info.com.ph)
+    @creation-date 2004-08-07
+    @arch-tag: 64f3397b-4558-4298-a995-fc63e472f2a1
     @cvs-id $Id$
 } {
-    man_id:integer,notnull  
+    man_id:integer,notnull
+    ims_id:integer,notnull,optional
 } -properties {
 } -validate {
 } -errors {
 }
+
+if { [info exists ims_id] } {
+    set item_id $ims_id
+    
+    set body_url [export_vars -base "record-view" -url {item_id man_id}]
+}
+
+# Get the course name
 if {[db_0or1row manifest "
     select 
-           cp.man_id,
            cp.course_name,
-           cp.identifier,
-           cp.version,
-           text 'Yes' as hello,
-           case
-              when hasmetadata = 't' then 'Yes'
-              else 'No'
-           end as man_metadata,
-           case 
-              when isscorm = 't' then 'Yes'
-              else 'No'
-           end as isscorm,
-           cp.fs_package_id,
-           cp.folder_id,
-	   acs.creation_user,
-	   acs.creation_date,
-	   acs.context_id
+	   cp.fs_package_id
     from
-           ims_cp_manifests cp, acs_objects acs
+           ims_cp_manifests cp
     where 
-           cp.man_id = acs.object_id
-	   and  cp.man_id = :man_id
+	   cp.man_id = :man_id
            and  cp.parent_man_id = 0"]} {
-
     
     # Course Name
     if {[empty_string_p $course_name]} {
-	set course_name "No course Name"
+	set course_name "No Course Name"
     } 
-
-    # Version
-    if {[empty_string_p $version]} {
-	set version "No version Available"
-    } 
-    
-    # Instance
-    set instance [apm_package_key_from_id $fs_package_id]
-
-    # Folder
-    set folder [apm_package_url_from_id $fs_package_id]?[export_vars folder_id]
-
 } else {
-
-    set display 0
-    
+    set course_name "No Course Name"
 }
 
+# Student tracking
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+set user_id [ad_conn user_id]
 
+if {[lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
+    
+    set track_id [lorsm::track::new \
+		      -user_id $user_id \
+		      -community_id $community_id \
+		      -course_id $man_id]
+} else {
+    set track_id 0
+}
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/lists.css'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/lorsm_delivery.css'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/delivery/menu.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/menu.adp	4 Sep 2004 14:51:21 -0000	1.1
@@ -0,0 +1,163 @@
+<html>
+<head>
+<title></title>
+
+<script language="JavaScript">
+<!--
+var tree_tpl = {
+	'target'  : 'content',	// name of the frame links will be opened in
+
+	'icon_e'  : 'tigra/demo1/icons/empty.gif', // empty image
+	'icon_l'  : 'tigra/demo1/icons/line.gif',  // vertical line
+
+        'icon_32' : 'tigra/demo1/icons/base.gif',   // root leaf icon normal
+        'icon_36' : 'tigra/demo1/icons/base.gif',   // root leaf icon selected
+
+	'icon_48' : 'tigra/demo1/icons/base.gif',   // root icon normal
+	'icon_52' : 'tigra/demo1/icons/base.gif',   // root icon selected
+	'icon_56' : 'tigra/demo1/icons/base.gif',   // root icon opened
+	'icon_60' : 'tigra/demo1/icons/base.gif',   // root icon selected
+	
+	'icon_16' : 'tigra/demo1/icons/folder.gif', // node icon normal
+	'icon_20' : 'tigra/demo1/icons/folderopen.gif', // node icon selected
+	'icon_24' : 'tigra/demo1/icons/folderopen.gif', // node icon opened
+	'icon_28' : 'tigra/demo1/icons/folderopen.gif', // node icon selected opened
+
+	'icon_0'  : 'tigra/demo1/icons/page.gif', // leaf icon normal
+	'icon_4'  : 'tigra/demo1/icons/page.gif', // leaf icon selected
+	
+	'icon_2'  : 'tigra/demo1/icons/joinbottom.gif', // junction for leaf
+	'icon_3'  : 'tigra/demo1/icons/join.gif',       // junction for last leaf
+	'icon_18' : 'tigra/demo1/icons/plusbottom.gif', // junction for closed node
+	'icon_19' : 'tigra/demo1/icons/plus.gif',       // junctioin for last closed node
+	'icon_26' : 'tigra/demo1/icons/minusbottom.gif',// junction for opened node
+	'icon_27' : 'tigra/demo1/icons/minus.gif'       // junctioin for last opended node
+};
+
+function openMenu( ims_id ) {
+    if (ims_id.n_depth > 0) {
+	openMenu(ims_id.o_parent);
+	if ( ! ims_id.b_opened )
+          trees[ims_id.o_root.n_id].toggle(ims_id.n_id);
+    } else {
+	return;
+    }
+}
+
+function selectItem( index ) {
+      openMenu ( menu.a_index[index] );
+      trees[menu.a_index[index].o_root.n_id].select(menu.a_index[index].n_id);
+}
+
+function seekAndDestroy( ims_id ) {
+    // Traverse the tree until we reach level 1
+    if ( ims_id.b_opened ) {
+	seekAndDestroy(ims_id.o_parent);
+
+	// Loop through this level and close all other opened items
+	for(var i=0; i<ims_id.o_root.a_children.length; i++) {
+	    if (ims_id.open == ims_id.o_root.a_children[i]) {
+		// Same level, if opened and not in current
+		// active menu, close
+		if (ims_id.o_root.a_children[i].tmF && ims_id.o_root.a_children[i] != ims_id) {
+		    alert('found opened');
+		}
+	    }
+	}
+    } else {
+	return;
+    }
+}
+//-->
+</script>
+
+<script language="JavaScript" src="tigra/tree.js"></script>
+
+<script language="JavaScript">
+<!--
+      var TREE_ITEMS = [['Course Index', 'body?man_id=@man_id@',
+
+<if @TREE_ITEMS@ defined>@TREE_ITEMS;noquote@</if>
+
+]];
+
+      <if @TREE_HASH@ defined>
+      var TREE_HASH = new Array();
+      @TREE_HASH;noquote@
+      </if>
+
+//-->
+</script>
+
+<style type="text/css">
+      body { background-color: #6C9A83 }
+
+      a { font-family: Helvetica,Arial; 
+       font-weight: bold; 
+       font-size: 0.7em;
+       color: #FFFFFF;
+      }
+      
+      a.current a:active { font-family: Helvetica,Arial; 
+       font-weight: bold; 
+       font-size: 0.7em;
+       color: #FFFF00;
+      }
+
+      a.button { 
+       font: 65% arial;
+       border: solid 1px black;
+       background-color: #e1e1e1;
+       text-align: center; 
+       padding: 1px;
+       padding-left: 8px;
+       padding-right: 8px;
+       color: black;
+       text-decoration: none;
+       white-space: nowrap;
+       position: fixed;
+      }
+
+      a.button:link { 
+       text-decoration: none;
+       border: solid 1px black;
+      }
+
+      a.button:visited { 
+       text-decoration: none;
+       border: solid 1px black;
+      }
+
+      a.button:hover { 
+       text-decoration: none;
+       background-color: #ccc;
+       border: solid 1px black;
+      }
+
+      a.button:active { 
+       text-decoration: none;
+       border: solid 1px black;
+      }
+
+</style>
+
+</head>
+
+<body>
+    <a href="exit?man_id=@man_id@&track_id=@track_id@&return_url=@return_url@"  style="display: block; position: fixed;" class="button" target="_top">Exit Course</a>
+&nbsp;
+<hr size=1>
+    <if @TREE_ITEMS@ defined>
+      <script language="JavaScript">
+<!--
+	menu = new tree (TREE_ITEMS, tree_tpl);
+	
+	<if @ims_id@ defined>
+	selectItem(TREE_HASH["ims_id.@ims_id@"]);
+      </if>
+//-->
+      </script>
+    </if>
+</body>
+
+</html>
Index: openacs-4/packages/lorsm/www/delivery/menu.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/menu.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/menu.tcl	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,182 @@
+# packages/lorsm/www/delivery/index.tcl
+
+ad_page_contract {
+    
+    Course Delivery Table of Content
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag 553390f0-450e-48db-99f0-c5dcb17978b8
+    @cvs-id $Id: menu.tcl,v 1.1 2004/09/04 14:51:22 ernieg Exp $
+} {
+    man_id:integer,notnull  
+    ims_id:integer,notnull,optional
+    track_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set counter 1
+set user_id [ad_conn user_id]
+
+proc generate_tree_menu { items index rlevel } {
+    # This function is recursive
+
+    set adp_level [template::adp_level]
+    upvar TREE_HASH TREE_HASH
+    upvar index localindex
+    upvar #$adp_level counter counter
+    upvar #$adp_level ims_id ims_id
+    set itemcount [llength $items]
+
+    # Loop through first level items
+    # Sub-items are recursed
+    while { $index < $itemcount } {
+	set one [lindex $items $index]
+	set level [lindex $one 0]
+	set item_id [lindex $one 1]
+	set title [lindex $one 2]
+	
+	set title [fs::remove_special_file_system_characters -string $title]
+	regsub {'} $title {\'} title
+
+	upvar #$adp_level man_id man_id
+	set url "'[export_vars -base "record-view" \
+			 -url {item_id man_id}]'"
+ 
+	if { $index < [expr $itemcount - 1] } {
+	    # Get the tree level of the next item
+	    set nextlevel [lindex [lindex $items [incr index]] 0]
+	    
+	    # Loop through each item until an item with a different
+	    # level is encountered
+	    if { $level == $nextlevel } {
+		# Another item in the same level, just add to the list
+		lappend TREE_HASH "TREE_HASH\[\"ims_id.$item_id\"\] = $counter;"
+		lappend levelitems "\['$title', $url\]"
+		incr counter
+	    } elseif { $level < $nextlevel } {
+		# Next item is a sub-item
+		set ocounter $counter
+		incr counter
+		set submenu "[generate_tree_menu $items $index [expr $rlevel + 1]]"
+		lappend TREE_HASH "TREE_HASH\[\"ims_id.$item_id\"\] = $ocounter;"
+
+		if { [llength $submenu] } {
+		    # There's a submenu
+		    lappend levelitems \
+			"\['$title',  $url,\n$submenu\n\]"
+		} else {
+		    # Child is a lone leaf node, if so, it should have
+		    # replace the url, the item_id and decremented counter
+		    lappend levelitems \
+			"\['$title',  $url\]"
+		}
+
+		# The index should have been adjusted by now to point
+		# to the next item, let's see if the next item has a
+		# lower level, if so, it's time to return
+		if { $index < $itemcount } {
+		    set nextlevel [lindex [lindex $items $index] 0]
+		    if { $level > $nextlevel } {
+			set localindex $index
+			return [join $levelitems ",\n"]
+		    }
+		}
+		
+	    } else {
+		# Next item has lower level
+		set localindex $index
+
+		# If i'm alone in this level, there's really no point
+		# for my existence, i'll just give my URL to my parent
+		if { ![info exists levelitems] } {
+		    upvar url my_url
+		    upvar item_id my_item_id
+		    set my_url $url
+		    set my_item_id $item_id
+
+		    return [list]
+		} else {
+		    lappend TREE_HASH "TREE_HASH\[\"ims_id.$item_id\"\] = $counter;"
+		    incr counter
+		    return [join \
+				[lappend levelitems \
+				     "\['$title', $url\]"
+				] ",\n"
+			   ]
+		}
+	    }
+	} else {
+	    # Terminator, end of the list
+	    set localindex [expr $index + 1]
+	    lappend TREE_HASH "TREE_HASH\[\"ims_id.$item_id\"\] = $counter;"
+	    incr counter
+	    return [join \
+			[lappend levelitems \
+			     "\['$title', $url\]"
+			] ",\n"
+		   ]
+	}
+    }
+
+    set localindex $index
+    return [join $levelitems ",\n"]
+}
+
+# Counter starts at 1 coz Course Index isn't part of the list
+db_foreach organizations {
+    select 
+       org.org_id,
+       org.title as org_title,
+       org.hasmetadata,
+       tree_level(o.tree_sortkey) as indent
+    from
+       ims_cp_organizations org, acs_objects o
+    where
+       org.org_id = o.object_id
+     and
+       man_id = :man_id
+    order by
+       org_id
+} {
+
+    set indent [expr $indent +1]
+
+    db_foreach sql {		   
+        SELECT
+ 		(tree_level(tree_sortkey) - :indent) as indent,
+		i.item_id,
+                i.title as item_title
+        FROM 
+		acs_objects o, ims_cp_items i
+	WHERE 
+		o.object_type = 'ims_item'
+           AND
+		i.org_id = :org_id
+	   AND
+		o.object_id = i.item_id
+	   AND 
+	   	EXISTS
+		(select 1
+		   from acs_object_party_privilege_map p
+		  where p.object_id = i.item_id 
+		    and p.party_id = :user_id
+		    and p.privilege = 'read')
+
+        ORDER BY 
+                o.object_id, tree_sortkey
+    } {
+	lappend js [list $indent $item_id $item_title]
+    }
+}
+    
+if { [info exists js] } {
+    set index 0
+    set TREE_ITEMS [generate_tree_menu $js $index 1]
+    set TREE_HASH [join $TREE_HASH "\n"]
+}
+
+# return_url
+set return_url [dotlrn_community::get_community_url [dotlrn_community::get_community_id]]
Index: openacs-4/packages/lorsm/www/delivery/record-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/record-view.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/record-view.tcl	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,85 @@
+# packages/lorsm/www/delivery4/record-view.tcl
+
+ad_page_contract {
+    
+    records a view for this ims_cp_item and redirects to its url
+    
+    @author Deds Castillo (deds@i-manila.com.ph)
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-04
+    @arch-tag: a7aba567-c4c1-4f1c-b5f3-ebc1ab277515
+    @cvs-id $Id: record-view.tcl,v 1.1 2004/09/04 14:51:22 ernieg Exp $
+} {
+    item_id:notnull
+    man_id:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set viewer_id [ad_conn user_id]
+
+set views [views::record_view -object_id $item_id -viewer_id $viewer_id]
+
+set revision_id [item::get_best_revision $item_id]
+
+db_1row manifest_info "select fs_package_id, folder_id from ims_cp_manifests where man_id = :man_id"
+set content_root [fs::get_root_folder -package_id $fs_package_id]
+
+set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
+
+set href [db_string href "select href from ims_cp_resources r, ims_cp_items_to_resources ir where ir.item_id = :item_id and ir.res_id = r.res_id" -default ""]
+
+db_1row item_info "select title from ims_cp_items where item_id = :item_id"
+
+set fs_item_id [fs::get_item_id -folder_id $folder_id -name $href]
+
+# If no fs_item_id, this item is probably a folder
+# Else deliver the page
+if { ![empty_string_p $fs_item_id] } {
+
+    set fs_revision_id [item::get_best_revision $fs_item_id]
+    set fs_item_mime [item::get_mime_info $fs_revision_id mime_info]
+
+
+    if { ![string equal -length 4 "text" $mime_info(mime_type)] } {
+
+	# It's a file.
+	cr_write_content -revision_id $fs_revision_id
+	ad_script_abort
+
+    } else {
+	
+	set href $url2$href
+	regsub -all {//} $href {/} href
+	set imsitem_id $item_id
+
+	#    lorsm::set_content_root content_root
+	lorsm::set_ims_item_id $item_id
+
+	# we use nsv variables to set the delivery environment this is a
+	# temporary solution until we find something a bit better
+
+	if {[nsv_exists delivery_vars [ad_conn session_id]]} {
+	    nsv_unset delivery_vars [ad_conn session_id]
+	}
+
+	nsv_set delivery_vars [ad_conn session_id] [list]
+
+	nsv_lappend delivery_vars [ad_conn session_id] $content_root
+
+	ad_returnredirect [export_vars -base view/$href {imsitem_id} ]
+    }
+} else {
+    lorsm::set_ims_item_id $item_id
+    
+    # We have no content, so wipe item_id from the lorsm namespace
+    # This fixes a strange bug if you click a 'no content' menu item
+    # repeatedly and different content appears!
+    if { [info exists lorsm::item_id] } {
+	set lorsm::item_id ""
+    }
+
+    rp_internal_redirect -absolute_path [acs_root_dir]/templates/lorsm-default
+}
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/toc.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/lorsm/www/delivery/toc.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/lorsm/www/delivery/Images/leaf.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/Images/leaf.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/Images/minus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/Images/minus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/Images/plus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/Images/plus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/index.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/index.html	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,275 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+
+<style>
+	a, A:link, a:visited, a:active
+		{color: #0000aa; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	A:hover
+		{color: #ff0000; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	p, tr, td, ul, li
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px}
+	.header1, h1
+		{color: #ffffff; background: #4682B4; font-weight: bold; font-family: Tahoma, Verdana; font-size: 13px; margin: 0px; padding: 2px;}
+	.header2, h2
+		{color: #000000; background: #DBEAF5; font-weight: bold; font-family: Tahoma, Verdana; font-size: 12px;}
+	.intd
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px; padding-left: 15px; padding-right: 15px;}
+	.ctrl
+		{font-family: Tahoma, Verdana, sans-serif; font-size: 12px; width: 100%; }
+	form
+		{ margin: 5px;}
+</style>
+</head>
+
+<body bottommargin="15" topmargin="15" leftmargin="15" rightmargin="15" marginheight="15" marginwidth="15" bgcolor="white">
+<script language="JavaScript" src="tree.js"></script>
+<script language="JavaScript" src="tree_items.js"></script>
+<script language="JavaScript" src="tree_tpl.js"></script>
+
+<!-- Header -->
+<table cellpadding="0" cellspacing="0" width="100%" border="0">
+<tr>
+	<td width="350" rowspan="2"><img src="ttm.gif" width="350" height="80" border="0" alt="Tigra Tree Menu"></td>
+	<td align="right" valign="top"><img src="logo.gif" width="178" height="30" border="0" alt="Softcomplex logo"></td>
+</tr>
+<tr>
+	<td align="right" valign="bottom" nowrap>
+	<b>
+	|&nbsp;<a href="http://www.softcomplex.com/index.html">About&nbsp;Us</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/services.html">Services</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/download.html">Download</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/order.html">Order</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/support.html">Support</a>&nbsp;
+	|
+	</b>
+	</td>
+</tr>
+<tr><td><img src="pixel.gif" width="1" height="5" border="0"></td></tr>
+</table>
+<!-- /Header -->
+
+<!-- Body -->
+<table cellpadding="0" cellspacing="0" border="0" bgcolor="#4682B4"><tr><td>
+	<table cellpadding="0" cellspacing="1" width="100%" border="0">
+	<tr>
+		<td class="header1" valign="top">Products</td>
+		<td class="header1" valign="top" colspan="2">Tigra Tree Menu v1.1 - Welcome Page</td>
+	<tr>
+	<td valign="top" bgcolor="#FFFFFF" rowspan="2">
+	<table cellpadding="3" cellspacing="1" border="0" width="100%">
+	<tr><td class="header2">Client Side Products</td></tr>
+	<tr>
+		<td class="intd">
+		<a href="http://www.softcomplex.com/products/tigra_menu/" title="JavaScript Menu - allows unlimited levels and multiple menus per page. Supports custom effects and geometry" target="_top">Tigra Menu</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_menu_pro/" title="Tigra Menu PRO is a flexible JavaScript DHTML menu solution for commercial applications offering high reliability and wide browsers support" target="_top">Tigra Menu PRO</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_menu_gold/" title="Tigra Menu Gold is a cross browser Javascript Menu navigation component for web sites offering most complete feature set" target="_top">Tigra Menu GOLD</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_tree_menu/" title="Tigra Tree Menu is a free JavaScript DHTML navigation system for web sites and web applications. Product looks and acts exactly as Microsoft Windows Tree Control. Offering the best performance on the market, script can manage hierarchies containing thousands of items">Tigra Tree Menu</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_tree_menu_pro/" title="Tigra Tree Menu PRO is cross-browser JavaScript Tree Menu navigation component for web sites and web applications" target="_top">Tigra Tree Menu PRO</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_calendar/" title="Popup timestamp picker is a JavaScript applet that makes it easy for your visitors to fill out the date/time field(s) of your form, by selecting the date from a popup calendar" target="_top">Tigra Calendar</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_calendar_pro/" title="Tigra Calendar PRO is flexible JavaScript Calendar offering high reliability and wide browsers support. This script allows your visitors to select any date from on page calendar with minimum number of clicks" target="_top">Tigra Calendar PRO</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_scroller/" title="Tigra Scroller is free JavaScript widget for web sites that scrolls text or html in the box" target="_top">Tigra Scroller</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_scroller_pro/" title="Tigra Scroller PRO is professional cross browser JavaScript widget for web sites that scrolls text or html in the box. Script offers great browsers compatibility and most complete feature set" target="_top">Tigra Scroller PRO</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_color_picker/" title="Tigra Color Picker - Free JavaScript widget that makes it easy for your visitors to fill out color value field(s) by selecting the color from a popup palette" target="_top">Tigra Color Picker</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_hints/" title="Tigra Hints is free JavaScript widget that displays pop-up box with notes (also known as tooltips or hints) when mouse appears over any HTML element on the page" target="_top">Tigra Hints</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_tables/" title="JavaScript applet creating nice client-side visual effects for HTML tables making them easier to read" target="_top">Tigra Tables</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_tables_pro/" title="Tigra Tables PRO is flexible cross-browser client side table data manipulation JavaScript offering rows sorting, filtering, paged output, altering rows coloring and other visual effects. Tigra Tables PRO component saves development time and greatly reduces network load. With highly optimized algorithms script offers good results on large data sets" target="_top">Tigra Tables PRO</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_calculator/" title="Tigra Calculator is free JavaScript widget that allows your visitors to perform arithmetic calculations instantly on the HTML form" target="_top">Tigra Calculator</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_calculator_pro/" title="Tigra Calculator PRO is flexible cross-browser JavaScript calculator supporting advanced features.">Tigra Calculator PRO</a><br>					
+		<a href="http://www.softcomplex.com/products/tigra_form_validator/" title="Tigra Form Validator is free JavaScript component performing client side form validation.">Tigra Form Validator</a><br>
+		<a href="http://www.softcomplex.com/products/tigra_form_validator_pro/" title="Tigra Form Validator PRO is professionally designed JavaScript component performing client-side form validation of any complexity. The script supports most of the data types used in online forms and it can be easily extended with any custom types.">Tigra Form Validator PRO</a><br>
+		</td>
+	</tr>
+	<tr><td><img src="/img/pixel.gif" width="200" height="1" border="0"></td></tr>
+	<tr><td class="header2">Server Side Products</td></tr>
+	<tr>
+		<td class="intd">
+		<a href="http://www.softcomplex.com/products/php_image_gallery/" title="PHP Image Gallery - Image gallery supporting hierarchical album structure with flexible permissions system and easy to use administrative panel" target="_top">PHP Image Gallery</a><br>
+		<a href="http://www.softcomplex.com/products/php_event_calendar/" title="PHP Event Calendar is component that creates event calendar or browsable news archive.  With the intuitive control panel, minimum efforts are required to set up and maintain the script" target="_top">PHP Event Calendar</a><br>
+		<a href="http://www.softcomplex.com/products/apache_easy_debug/" title="Apache Easy Debug is CGI/Perl script intended to replace default Internal Server Error Message. With this script installed web developer doesn't need to lookup and scroll web server log after each script error because latest records are nice formatted and displayed just on error page" target="_top">Apache Easy Debug</a><br>
+		</td>
+	</tr>
+	<tr><td><img src="/img/pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td class="header2">Online Services</td></tr>
+	<tr>
+		<td class="intd">
+		<a href="http://www.softcomplex.com/products/tigra_menu/builder/" title="Web application allowing to build the site with great javascript menu navigation system interactively with minimum effort in three steps just answering questions. After few minutes you'll be downloading your site in zip archive" target="_top">Tigra Menu Online Builder</a><br>
+		</td>
+	</tr>
+	<tr><td><img src="/img/pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr>
+		<td class="header2">Win32 Applications</td>
+	</tr>
+	<tr>
+		<td class="intd">
+		<a href="http://www.softcomplex.com/products/tigra_menu_w32_builder/" title="Tigra Menu Builder for Windows is free application that helps to create cross-browser DHTML navigation systems. No JavaScript programming skills are required to build responsive, professionally looking drop down menus using this rapid development tool" target="_top">Tigra Menu Builder Win32</a><br>
+		</td>
+	</tr>
+	<tr><td><img src="/img/pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr>
+		<td class="header2">ActiveX Components</td>
+	</tr>
+	<tr>
+		<td class="intd">
+		<a href="http://www.softcomplex.com/products/asp_upload_component/" title="ASP Upload Component is ActiveX component designed to ease access to multipart/form-data received from client's browser when developing Active Server Pages applications. With this component installed you can access multiple file uploads and other form data just the way it is done with Request object" target="_top">ASP Upload Component</a><br>
+		<a href="http://www.softcomplex.com/products/asp_mail_component/" title="ASP Mail Component is ActiveX component designed to allow e-mail sending from Active Server Pages (ASP). With this component installed you can send simple text E-mail message as well as HTML e-mail with attachments and multiple receipinents" target="_top">ASP Mail Component</a><br>
+		<a href="http://www.softcomplex.com/products/asp_zip_component/" title="ASP Zip Component is ActiveX component designed to allow work with zip archives. With this component installed you can create, extract and repare your zip archives" target="_top">ASP Zip Component</a><br>
+		</td>
+	</tr>
+	<tr><td><img src="/img/pixel.gif" width="1" height="1" border="0"></td></tr>
+	</table>
+	</td>
+	<!-- Sample -->
+	<td valign="top" bgcolor="#FFFFFF">
+	<table cellpadding="3" cellspacing="1" border="0" width="100%">
+	<tr><td class="header2">Sample:</td></tr>
+	<tr><td><img src="pixel.gif" width="180" height="1" border="0"></td></tr>
+	<tr><td class="intd">
+		<script language="JavaScript">
+			<!--
+
+			new tree (TREE_ITEMS, tree_tpl);
+
+			//-->
+		</script>
+		</td></tr>
+	<tr><td><img src="pixel.gif" width="1" height="50" border="0"></td></tr>
+	</table>
+	</td>
+	<!-- Content -->
+	<td valign="top" bgcolor="#FFFFFF">
+	<table cellpadding="3" cellspacing="1" border="0" width="100%">
+	<tr><td class="header2">Welcome</td></tr>
+	<tr><td class="intd"><p>Thank You for downloading Tigra Tree Menu, You've made the right decision!</p></td></tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td class="header2">Overview</td></tr>
+	<tr><td class="intd">
+	<p>Tigra Tree Menu is a free JavaScript DHTML navigation system for web sites and web applications. Product looks and acts exactly as Microsoft Windows Tree Control. Offering the best performance on the market, script can manage hierarchies containing thousands of items.</p>
+	</td></tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td class="header2">Features</td></tr>
+	<tr>
+		<td class="intd">
+		<ul>
+			<li>unlimited tree menu depth
+			<li>unlimited number of tree menus on single page all independently configurable
+			<li>easy items text styles setup
+			<li>any icons set can be used
+			<li>low weight (~5KB)
+			<li>highly optimized code guarantees incredible performance (good results on trees containing 10,000+ items)
+			<li>can be used either inline or with frames
+			<li>future browser's versions ready
+			<li>simple configuration file structure, easy to generate dynamically from database
+			<li>items configuration file format is compatible with Tigra Menu and can be generated with <a href="http://www.softcomplex.com/products/tigra_menu/builder/" target="_top">Tigra Menu Online Builder</a>
+			<li>object oriented JavaScript implementation for those who want to learn DHTML programming
+			<li>best choice for site maps, online documentation and intranet applications
+		</ul>
+	</td></tr>
+	</table>
+	</td>
+</tr>
+<tr>
+	<td colspan="2" bgcolor="white">
+	<table cellpadding="3" cellspacing="0" border="0" width="100%">
+	<tr><td class="header2">Compatibility Table</td></tr>
+	<tr><td class="intd">
+		<p><b>Note: </b>As any other javascript component Tigra Tree Menu requires JavaScript and CSS support enabled in the browser.<br>Here is a table of the script's compatibility:<br>
+		<br>
+		<table cellpadding="0" cellspacing="0" border="0" bgcolor="#4682B4" align="center"><tr><td>
+			<table cellpadding="3" cellspacing="1" width="100%" border="0">
+			<tr align="center">
+				<td class="header2" rowspan="2">Platform</td>
+				<td class="header2" colspan="3">Browser</td>
+			</tr>
+			<tr align="center">
+				<td class="header2" width="100">MS IE</td>
+				<td class="header2" width="100">Netscape</td>
+			</tr>
+			<tr align="center">
+				<td bgcolor="white"><b>Windows 95/98/ME/2000/XP</b></td>
+				<td bgcolor="white">4.0+</td>
+				<td bgcolor="white">6.2</td>
+			</tr>
+			<tr align="center">
+				<td bgcolor="white"><b>Mac OS 8/9/X</b></td>
+				<td bgcolor="white">5.2</td>
+				<td bgcolor="white">7.0+</td>
+			</tr>
+		</table></td></tr></table>
+		<p>If you look for wider browsers support then consider upgrading to <a href="http://www.softcomplex.com/products/tigra_tree_menu_pro/">Tigra Tree Menu PRO</a></p>
+	</td></tr>
+	<tr><td class="header2">Support Materials<a name="support_materials"></a></td></tr>
+	<tr><td class="intd">
+		<ul>
+			<li><a href="demo1/index.html"><b>Demos</b></a> - included in the distribution package to get started instantly
+			<li><a href="http://www.softcomplex.com/products/tigra_tree_menu/docs/"><b>Documentation</b></a> - available online for quick references
+			<li><a href="/forum/forumdisplay_62/"><b>Forum</b></a> - great place to discuss your challenges with other users
+		</ul>
+	</td></tr>
+	<tr><td class="header2">Additional Services</td></tr>
+	<tr>
+		<td class="intd">
+		<ul>
+			<li>Need some feature not in the list?
+			<li>Need the programming task finished yesterday?
+			<li>Find all this programming stuff too complicated?
+			<li>Got some improvement idea for your site?
+		</ul>
+		Contact us with <a href="http://www.softcomplex.com/support.html">customization request</a>.
+		</td>
+	</tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td class="header2">Support Tigra Tree Menu</td></tr>
+	<tr>
+		<td class="intd">
+		Please, support this amazing free JavaScript Navigation system by submitting your vote:
+		<form action="http://www.hotscripts.com/cgi-bin/rate.cgi" method="POST" target="new">
+		<input type=hidden name="ID" value="16808"><a href="http://www.hotscripts.com/Detailed/16808.html" target="new"><b>HotScripts.com</b></a> :
+		<select name="rate" size="1" style="font-size:10px;">
+			<option selected value="5">Excellent!</option>
+			<option value="4">Very Good</option>
+			<option value="3">Good</option>
+			<option value="2">Fair</option>
+			<option value="1">Poor</option>
+		</select>&nbsp;<input type="submit" value="Rate It!" style="font-size:10px;">
+		</form>
+
+		<form action="http://www.scriptsearch.com/cgi-bin/rateit.cgi" method="post" target="new">
+		<input type="hidden" name="ID" value="5781"><a href="http://www.scriptsearch.com/details/5781.html" target="new"><b>ScriptSearch.com</b></a> :
+		<select name="rate" size="1" style="font-size:10px;">
+			<option value="5" selected>Excellent!</option>
+			<option value="4">Very Good</option>
+			<option value="3">Good</option>
+			<option value="2">Fair</option>
+			<option value="1">Poor</option>
+		</select>&nbsp;<input type="submit" value="Vote!" style="font-size:10px;">
+		</form>
+		</td>
+	</tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	</table>
+	</td>
+</tr>
+</table>
+</td></tr></table>
+<!-- /Body -->
+
+<!-- Footer -->
+<table cellpadding="3" cellspacing="0" width="100%" border="0" height="22">
+<tr bgcolor="#4682B4">
+	<td nowrap><font color="white">Copyright &copy;2004 SoftComplex Inc. All rights reserved.</font></td>
+	<td align="right">
+	| <a href="http://www.softcomplex.com/"><font color="white">company info</font></a>
+	| <a href="http://www.softcomplex.com/site_agreement.html"><font color="white">terms of service</font></a>
+	| <a href="http://www.softcomplex.com/privacy_policy.html"><font color="white">privacy policy</font></a>
+	|
+	</td>
+</tr>
+</table>
+<!-- /Footer -->
+
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/tigra/logo.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/logo.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/tree.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/tree.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/tree.js	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,133 @@
+// Title: Tigra Tree
+// Description: See the demo at url
+// URL: http://www.softcomplex.com/products/tigra_menu_tree/
+// Version: 1.1
+// Date: 11-12-2002 (mm-dd-yyyy)
+// Notes: This script is free. Visit official site for further details.
+
+function tree (a_items, a_template) {
+
+    this.a_tpl      = a_template;
+    this.a_config   = a_items;
+    this.o_root     = this;
+    this.a_index    = [];
+    this.o_selected = null;
+    this.n_depth    = -1;
+	
+    var o_icone = new Image(),
+	o_iconl = new Image();
+    o_icone.src = a_template['icon_e'];
+    o_iconl.src = a_template['icon_l'];
+    a_template['im_e'] = o_icone;
+    a_template['im_l'] = o_iconl;
+    for (var i = 0; i < 64; i++)
+	if (a_template['icon_' + i]) {
+	    var o_icon = new Image();
+	    a_template['im_' + i] = o_icon;
+	    o_icon.src = a_template['icon_' + i];
+	}
+	
+    this.toggle = function (n_id) {	var o_item = this.a_index[n_id]; o_item.open(o_item.b_opened) };
+    this.select = function (n_id) { return this.a_index[n_id].select(); };
+    this.mout   = function (n_id) { this.a_index[n_id].upstatus(true) };
+    this.mover  = function (n_id) { this.a_index[n_id].upstatus() };
+
+    this.a_children = [];
+    for (var i = 0; i < a_items.length; i++)
+	new tree_item(this, i);
+
+    this.n_id = trees.length;
+    trees[this.n_id] = this;
+	
+    for (var i = 0; i < this.a_children.length; i++) {
+	document.write(this.a_children[i].init());
+	this.a_children[i].open();
+    }
+}
+
+function tree_item (o_parent, n_order) {
+
+    this.n_depth  = o_parent.n_depth + 1;
+    this.a_config = o_parent.a_config[n_order + (this.n_depth ? 2 : 0)];
+    if (!this.a_config) return;
+
+    this.o_root    = o_parent.o_root;
+    this.o_parent  = o_parent;
+    this.n_order   = n_order;
+    this.b_opened  = !this.n_depth;
+
+    this.n_id = this.o_root.a_index.length;
+    this.o_root.a_index[this.n_id] = this;
+    o_parent.a_children[n_order] = this;
+
+    this.a_children = [];
+    for (var i = 0; i < this.a_config.length - 2; i++)
+	new tree_item(this, i);
+
+    this.get_icon = item_get_icon;
+    this.open     = item_open;
+    this.select   = item_select;
+    this.init     = item_init;
+    this.upstatus = item_upstatus;
+    this.is_last  = function () { return this.n_order == this.o_parent.a_children.length - 1 };
+}
+
+function item_open (b_close) {
+    var o_idiv = get_element('i_div' + this.o_root.n_id + '_' + this.n_id);
+    if (!o_idiv) return;
+	
+    if (!o_idiv.innerHTML) {
+	var a_children = [];
+	for (var i = 0; i < this.a_children.length; i++)
+	    a_children[i]= this.a_children[i].init();
+	o_idiv.innerHTML = a_children.join('');
+    }
+    o_idiv.style.display = (b_close ? 'none' : 'block');
+	
+    this.b_opened = !b_close;
+    var o_jicon = document.images['j_img' + this.o_root.n_id + '_' + this.n_id],
+	o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+    if (o_jicon) o_jicon.src = this.get_icon(true);
+    if (o_iicon) o_iicon.src = this.get_icon();
+    this.upstatus();
+}
+
+function item_select (b_deselect) {
+    if (!b_deselect) {
+	var o_olditem = this.o_root.o_selected;
+	this.o_root.o_selected = this;
+	if (o_olditem) o_olditem.select(true);
+    }
+    var o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+    if (o_iicon) o_iicon.src = this.get_icon();
+    get_element('i_txt' + this.o_root.n_id + '_' + this.n_id).style.color = b_deselect ? '#FFFFFF' : '#FFFF00';
+	
+    this.upstatus();
+    return Boolean(this.a_config[1]);
+}
+
+function item_upstatus (b_clear) {
+    window.setTimeout('window.status="' + (b_clear ? '' : this.a_config[0] + (this.a_config[1] ? ' ('+ this.a_config[1] + ')' : '')) + '"', 10);
+}
+
+function item_init () {
+    var a_offset = [],
+	o_current_item = this.o_parent;
+    for (var i = this.n_depth; i > 1; i--) {
+	a_offset[i] = '<img src="' + this.o_root.a_tpl[o_current_item.is_last() ? 'icon_e' : 'icon_l'] + '" border="0" align="absbottom">';
+	o_current_item = o_current_item.o_parent;
+    }
+    return '<table cellpadding="0" cellspacing="0" border="0"><tr><td nowrap>' + (this.n_depth ? a_offset.join('') + (this.a_children.length
+														      ? '<a href="javascript: trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')"><img src="' + this.get_icon(true) + '" border="0" align="absbottom" name="j_img' + this.o_root.n_id + '_' + this.n_id + '"></a>'
+														      : '<img src="' + this.get_icon(true) + '" border="0" align="absbottom">') : '') 
+	+ '<a href="' + this.a_config[1] + '" target="' + this.o_root.a_tpl['target'] + '" onclick="trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ');return trees[' + this.o_root.n_id + '].select(' + this.n_id + ')" ondblclick="trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')" class="t' + this.o_root.n_id + 'i" id="i_txt' + this.o_root.n_id + '_' + this.n_id + '"><img src="' + this.get_icon() + '" border="0" align="absbottom" name="i_img' + this.o_root.n_id + '_' + this.n_id + '" class="t' + this.o_root.n_id + 'im">' + this.a_config[0] + '</a></td></tr></table>' + (this.a_children.length ? '<div id="i_div' + this.o_root.n_id + '_' + this.n_id + '" style="display:none"></div>' : '');
+}
+
+function item_get_icon (b_junction) {
+    return this.o_root.a_tpl['icon_' + ((this.n_depth ? 0 : 32) + (this.a_children.length ? 16 : 0) + (this.a_children.length && this.b_opened ? 8 : 0) + (!b_junction && this.o_root.o_selected == this ? 4 : 0) + (b_junction ? 2 : 0) + (b_junction && this.is_last() ? 1 : 0))];
+}
+
+var trees = [];
+get_element = document.all ?
+    function (s_id) { return document.all[s_id] } :
+    function (s_id) { return document.getElementById(s_id) };
Index: openacs-4/packages/lorsm/www/delivery/tigra/tree_items.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/tree_items.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/tree_items.js	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,106 @@
+
+var TREE_ITEMS = [
+	['Home', 'http://www.softcomplex.com/',
+		['Products', 'http://www.softcomplex.com/download.html',
+			['Server Side Components', 'http://www.softcomplex.com/download.html#server_side',
+				['PHP Event Calendar', 'http://www.softcomplex.com/products/php_event_calendar/'],
+				['Advanced Web Security', null],
+				['SC Object Environment', null],
+			],
+			['Client Side Components', 'http://www.softcomplex.com/download.html#client_side',
+				['Tigra Menu', 'http://www.softcomplex.com/products/tigra_menu/',
+					['Home Page', 'http://www.softcomplex.com/products/tigra_menu/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_menu/docs/'],
+					['Online Builder', 'http://www.softcomplex.com/products/tigra_menu/builder/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=29'],
+				],
+				['Tigra Menu PRO', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_menu_pro/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_menu_pro/documentation/',
+						['Documentation', 'http://www.softcomplex.com/products/tigra_menu_pro/documentation/'],
+						['Frequently Asked Questions', 'http://www.softcomplex.com/products/tigra_menu_pro/documentation/faq.html'],
+						['Terms and Conditions', 'http://www.softcomplex.com/products/tigra_menu_pro/documentation/terms_cond.html'],
+					],
+					['Online Builder', 'http://www.softcomplex.com/products/tigra_menu/builder/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=29'],
+					['Order Form', 'https://secure.element5.com/shareit/checkout.html?productid=153541'],
+					['Support Request', 'http://www.softcomplex.com/support.html'],
+				],
+				['Tigra Menu GOLD', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_menu_pro/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_menu_gold/docs/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=51'],
+					['Order Form', 'https://secure.element5.com/shareit/checkout.html?productid=169414'],
+					['Support Request', 'http://www.softcomplex.com/support.html'],
+				],
+				['Tigra Tree Menu', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_tree_menu/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=31'],
+				],
+				['Tigra Calendar', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_calendar/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=30'],
+				],
+				['Tigra Calendar PRO', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_calendar_pro/'],
+					['Order Form', 'https://secure.element5.com/shareit/checkout.html?productid=159443'],
+					['Support Request', 'http://www.softcomplex.com/support.html'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=30'],
+				],
+				['Tigra Scroller', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_scroller/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_scroller/docs/'],
+					['Demo #1', 'http://www.softcomplex.com/products/tigra_scroller/demo1.html'],
+					['Demo #2', 'http://www.softcomplex.com/products/tigra_scroller/demo2.html'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=49'],
+				],
+				['Tigra Scroller PRO', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_scroller_pro/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_scroller_pro/docs/'],
+					['Demo #1', 'http://www.softcomplex.com/products/tigra_scroller_pro/demo1.html'],
+					['Demo #2', 'http://www.softcomplex.com/products/tigra_scroller_pro/demo2.html'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=50'],
+					['Order Form', 'https://secure.element5.com/shareit/checkout.html?productid=167102'],
+					['Support Request', 'http://www.softcomplex.com/support.html'],
+				],
+				['Tigra Tables', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_tables/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=32'],
+				],
+				['Tigra Tables PRO', null,
+					['Home Page', 'http://www.softcomplex.com/products/tigra_tables_pro/'],
+					['Documentation', 'http://www.softcomplex.com/products/tigra_tables_pro/docs/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=32'],
+					['Order Form', 'https://secure.element5.com/shareit/checkout.html?productid=163419'],
+					['Support Request', 'http://www.softcomplex.com/support.html'],
+				],
+			],
+			['Online Services', 'http://www.softcomplex.com/download.html#online_services',
+				['Tigra Menu Online Builder', null,
+					['Login Page', 'http://www.softcomplex.com/products/tigra_menu/builder/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=33'],
+					['Help Pages', null,
+						['Horizontal Menu', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_horizontal_menu'],
+						['Vertical Menu', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_vertical_menu'],
+						['Item Path', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_path'],
+						['Caption', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_caption'],
+						['Link', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_link'],
+						['Item Size', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_size'],
+						['Block Offset', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_boffset'],
+						['Saving Files', 'http://www.softcomplex.com/cgi-bin/builder/mgr.pl?class=static_page&action=view&tpl=help_save'],
+					],
+				],
+			],
+			['ActiveX Components', 'http://www.softcomplex.com/download.html#activex_components',
+				['ASP Upload Component', null,
+					['Home Page', 'http://www.softcomplex.com/products/asp_upload_component/'],
+					['Documentation', 'http://www.softcomplex.com/products/asp_upload_component/docs/'],
+					['Forum', 'http://www.softcomplex.com/forum/forumdisplay.php?fid=35'],
+				],
+			]
+		],
+		['Services', 'http://www.softcomplex.com/services.html'],
+		['Contacts', 'http://www.softcomplex.com/support.html'],
+	]
+];
+
Index: openacs-4/packages/lorsm/www/delivery/tigra/tree_tpl.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/tree_tpl.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/tree_tpl.js	4 Sep 2004 14:51:22 -0000	1.1
@@ -0,0 +1,36 @@
+/*
+	Feel free to use your custom icons for the tree. Make sure they are all of the same size.
+	User icons collections are welcome, we'll publish them giving all regards.
+*/
+
+var tree_tpl = {
+	'target'  : '_blank',	// name of the frame links will be opened in
+							// other possible values are: _blank, _parent, _search, _self and _top
+
+	'icon_e'  : 'demo1/icons/empty.gif', // empty image
+	'icon_l'  : 'demo1/icons/line.gif',  // vertical line
+
+        'icon_32' : 'demo1/icons/base.gif',   // root leaf icon normal
+        'icon_36' : 'demo1/icons/base.gif',   // root leaf icon selected
+
+	'icon_48' : 'demo1/icons/base.gif',   // root icon normal
+	'icon_52' : 'demo1/icons/base.gif',   // root icon selected
+	'icon_56' : 'demo1/icons/base.gif',   // root icon opened
+	'icon_60' : 'demo1/icons/base.gif',   // root icon selected
+	
+	'icon_16' : 'demo1/icons/folder.gif', // node icon normal
+	'icon_20' : 'demo1/icons/folderopen.gif', // node icon selected
+	'icon_24' : 'demo1/icons/folderopen.gif', // node icon opened
+	'icon_28' : 'demo1/icons/folderopen.gif', // node icon selected opened
+
+	'icon_0'  : 'demo1/icons/page.gif', // leaf icon normal
+	'icon_4'  : 'demo1/icons/page.gif', // leaf icon selected
+	
+	'icon_2'  : 'demo1/icons/joinbottom.gif', // junction for leaf
+	'icon_3'  : 'demo1/icons/join.gif',       // junction for last leaf
+	'icon_18' : 'demo1/icons/plusbottom.gif', // junction for closed node
+	'icon_19' : 'demo1/icons/plus.gif',       // junctioin for last closed node
+	'icon_26' : 'demo1/icons/minusbottom.gif',// junction for opened node
+	'icon_27' : 'demo1/icons/minus.gif'       // junctioin for last opended node
+};
+
Index: openacs-4/packages/lorsm/www/delivery/tigra/ttm.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/ttm.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/compressed/readme.txt
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/compressed/readme.txt,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/compressed/readme.txt	4 Sep 2004 14:51:23 -0000	1.1
@@ -0,0 +1,12 @@
+Use tree.js file from this directory instead of
+that provided in the demos if you wish to speed
+up site download and reduce network traffic
+consumption.
+
+Regular version of tree.js: ~5KB
+Compressed version of menu.js: ~3KB
+
+Don't remove product information block from tree.js
+This is not allowed. If you modified the script or
+if you wish to add your comments then put them after
+product information block.
Index: openacs-4/packages/lorsm/www/delivery/tigra/compressed/tree.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/compressed/tree.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/compressed/tree.js	4 Sep 2004 14:51:23 -0000	1.1
@@ -0,0 +1,8 @@
+// Title: Tigra Tree
+// Description: See the demo at url
+// URL: http://www.softcomplex.com/products/tigra_menu_tree/
+// Version: 1.1 (size optimized)
+// Date: 11-12-2002 (mm-dd-yyyy)
+// Notes: This script is free. Visit official site for further details.
+
+function tree(tm0,tm1){this.tm2=tm1;this.tm3=tm0;this.tm4=this;this.tm5=[];this.tm6=null;this.tm7=-1;var tm8=new Image(),tm9=new Image();tm8.src=tm1['icon_e'];tm9.src=tm1['icon_l'];tm1['im_e']=tm8;tm1['im_l']=tm9;for(var i=0;i<64;i++)if(tm1['icon_'+i]){var tmA=new Image();tm1['im_'+i]=tmA;tmA.src=tm1['icon_'+i]}this.tmB=function(tmC){var tmD=this.tm5[tmC];tmD.tmE(tmD.tmF)};this.tmG=function(tmC){return this.tm5[tmC].tmG()};this.tmH=function(tmC){this.tm5[tmC].tmI(true)};this.tmJ=function(tmC){this.tm5[tmC].tmI()};this.tmK=[];for(var i=0;i<tm0.length;i++)new tmL(this,i);this.tmC=trees.length;trees[this.tmC]=this;for(var i=0;i<this.tmK.length;i++){document.write(this.tmK[i].tmM());this.tmK[i].tmE()}}function tmL(tmN,tmO){this.tm7=tmN.tm7+1;this.tm3=tmN.tm3[tmO+(this.tm7?2:0)];if(!this.tm3)return;this.tm4=tmN.tm4;this.tmN=tmN;this.tmO=tmO;this.tmF=!this.tm7;this.tmC=this.tm4.tm5.length;this.tm4.tm5[this.tmC]=this;tmN.tmK[tmO]=this;this.tmK=[];for(var i=0;i<this.tm3.length-2;i++)new tmL(this,i);this.tmP=tmQ;this.tmE=tmR;this.tmG=tmS;this.tmM=tmT;this.tmI=tmU;this.tmV=function(){return this.tmO==this.tmN.tmK.length-1}}function tmR(tmW){var tmX=tmY('i_div'+this.tm4.tmC+'_'+this.tmC);if(!tmX)return;if(!tmX.innerHTML){var tmK=[];for(var i=0;i<this.tmK.length;i++)tmK[i]=this.tmK[i].tmM();tmX.innerHTML=tmK.join('')}tmX.style.display=(tmW?'none':'block');this.tmF=!tmW;var tmZ=document.images['j_img'+this.tm4.tmC+'_'+this.tmC],tma=document.images['i_img'+this.tm4.tmC+'_'+this.tmC];if(tmZ)tmZ.src=this.tmP(true);if(tma)tma.src=this.tmP();this.tmI()}function tmS(tmb){if(!tmb){var tmc=this.tm4.tm6;this.tm4.tm6=this;if(tmc)tmc.tmG(true)}var tma=document.images['i_img'+this.tm4.tmC+'_'+this.tmC];if(tma)tma.src=this.tmP();tmY('i_txt'+this.tm4.tmC+'_'+this.tmC).style.fontWeight=tmb?'normal':'bold';this.tmI();return Boolean(this.tm3[1])}function tmU(tmd){window.setTimeout('window.status="'+(tmd?'':this.tm3[0]+(this.tm3[1]?' ('+this.tm3[1]+')':''))+'"',10)}function tmT(){var tme=[],tmf=this.tmN;for(var i=this.tm7;i>1;i--){tme[i]='<img src="'+this.tm4.tm2[tmf.tmV()?'icon_e':'icon_l']+'" border="0" align="absbottom">';tmf=tmf.tmN}return '<table cellpadding="0" cellspacing="0" border="0"><tr><td nowrap>'+(this.tm7?tme.join('')+(this.tmK.length?'<a href="javascript: trees['+this.tm4.tmC+'].tmB('+this.tmC+')" onmouseover="trees['+this.tm4.tmC+'].tmJ('+this.tmC+')" onmouseout="trees['+this.tm4.tmC+'].tmH('+this.tmC+')"><img src="'+this.tmP(true)+'" border="0" align="absbottom" name="j_img'+this.tm4.tmC+'_'+this.tmC+'"></a>':'<img src="'+this.tmP(true)+'" border="0" align="absbottom">'):'')+'<a href="'+this.tm3[1]+'" target="'+this.tm4.tm2['target']+'" onclick="return trees['+this.tm4.tmC+'].tmG('+this.tmC+')" ondblclick="trees['+this.tm4.tmC+'].tmB('+this.tmC+')" onmouseover="trees['+this.tm4.tmC+'].tmJ('+this.tmC+')" onmouseout="trees['+this.tm4.tmC+'].tmH('+this.tmC+')" class="t'+this.tm4.tmC+'i" id="i_txt'+this.tm4.tmC+'_'+this.tmC+'"><img src="'+this.tmP()+'" border="0" align="absbottom" name="i_img'+this.tm4.tmC+'_'+this.tmC+'" class="t'+this.tm4.tmC+'im">'+this.tm3[0]+'</a></td></tr></table>'+(this.tmK.length?'<div id="i_div'+this.tm4.tmC+'_'+this.tmC+'" style="display:none"></div>':'')}function tmQ(tmg){return this.tm4.tm2['icon_'+((this.tm7?0:32)+(this.tmK.length?16:0)+(this.tmK.length&&this.tmF?8:0)+(!tmg&&this.tm4.tm6==this?4:0)+(tmg?2:0)+(tmg&&this.tmV()?1:0))]}var trees=[];tmY=document.all?function(tmh){return document.all[tmh]}:function(tmh){return document.getElementById(tmh)};
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/footer.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/footer.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/footer.html	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,28 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+<style>
+	p, tr, td, ul, li
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px}
+</style>
+</head>
+
+<body bgcolor="#ffffff" leftmargin="15" marginheight="0" marginwidth="15" topmargin="0">
+<!-- Footer -->
+<table cellpadding="3" cellspacing="0" width="100%" border="0" height="22">
+<tr bgcolor="#4682B4">
+	<td nowrap><font color="white">Copyright &copy;2004 SoftComplex Inc. All rights reserved.</font></td>
+	<td align="right">
+	| <a href="http://www.softcomplex.com/"><font color="white">company info</font></a>
+	| <a href="http://www.softcomplex.com/site_agreement.html"><font color="white">terms of service</font></a>
+	| <a href="http://www.softcomplex.com/privacy_policy.html"><font color="white">privacy policy</font></a>
+	|
+	</td>
+</tr>
+</table>
+<!-- /Footer -->
+
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/header.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/header.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/header.html	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,52 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+<style>
+	a, A:link, a:visited, a:active
+		{color: #0000aa; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	A:hover
+		{color: #ff0000; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	p, tr, td, ul, li
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px}
+	.header1, h1
+		{color: #ffffff; background: #4682B4; font-weight: bold; font-family: Tahoma, Verdana; font-size: 13px; margin: 0px;}
+</style>
+</head>
+<body bottommargin="15" topmargin="15" leftmargin="15" rightmargin="15" marginheight="15" marginwidth="15" bgcolor="white">
+
+<!-- Header -->
+<table cellpadding="0" cellspacing="0" width="100%" border="0">
+<tr>
+	<td width="350" rowspan="2"><img src="ttm.gif" width="350" height="80" border="0" alt="Tigra Tree Menu"></td>
+	<td align="right" valign="top"><img src="logo.gif" width="178" height="30" border="0" alt="Softcomplex logo"></td>
+</tr>
+<tr>
+	<td align="right" valign="bottom" nowrap>
+	<b>
+	|&nbsp;<a href="http://www.softcomplex.com/index.html" target="_top">About&nbsp;Us</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/services.html" target="_top">Services</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/download.html" target="_top">Download</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/order.html" target="_top">Order</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/support.html" target="_top">Support</a>&nbsp;
+	|
+	</b>
+	</td>
+</tr>
+<tr><td><img src="pixel.gif" width="1" height="5" border="0"></td></tr>
+</table>
+<!-- /Header -->
+
+<!-- Body -->
+<table cellpadding="3" cellspacing="0" border="0" bgcolor="#4682B4" width="100%">
+<tr><td class="header1" width="100%">Tigra Tree Menu - Demo #1 (Frames Targeting)</td></tr>
+<tr>
+	<td><img src="pixel.gif" width="180" height="1" border="0"></td>
+	<td><img src="pixel.gif" width="225" height="1" border="0"></td>
+	<td width="100%"><img src="pixel.gif" width="1" height="1" border="0"></td>
+</tr>
+</table>
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/index.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/index.html	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,21 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu - Demo #1 (Frames Targeting)</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+</head>
+<frameset rows="122,*,20" border="0">
+	<frame name="header" src="header.html" marginwidth="15" marginheight="15" scrolling="no" frameborder="0" noresize>
+	<frameset cols="15,280,200,*,15" border="0">
+		<frame name="blank" id="blank" scrolling="No" frameborder="0" marginwidth="0" marginheight="0">
+		<frame src="links.html" name="links" id="links" frameborder="1" marginwidth="0" marginheight="0" noresize>
+		<frame src="tree.html" name="tree" id="tree" scrolling="Auto" frameborder="1" marginwidth="0" marginheight="0" noresize>
+		<frame name="frameset" id="frameset" frameborder="1" scrolling="No">
+		<frame name="blank" id="blank" scrolling="No" frameborder="0" marginwidth="0" marginheight="0">
+	</frameset>
+	<frame name="footer" src="footer.html" marginwidth="15" marginheight="15" scrolling="no" frameborder="0" noresize>
+</frameset>
+<body>
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/links.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/links.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/links.html	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,57 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+<style>
+	a, A:link, a:visited, a:active
+		{color: #0000aa; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	A:hover
+		{color: #ff0000; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	p, tr, td, ul, li
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px}
+	.header1, h1
+		{color: #ffffff; background: #4682B4; font-weight: bold; font-family: Tahoma, Verdana; font-size: 13px; margin: 0px; padding: 3px;}
+	.header2, h2
+		{color: #000000; background: #DBEAF5; font-weight: bold; font-family: Tahoma, Verdana; font-size: 12px;}
+	.intd
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px; padding-left: 15px;}
+</style>
+</head>
+
+<body bottommargin="0" topmargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" bgcolor="white">
+<table cellpadding="3" cellspacing="1" border="0" width="100%">
+	<tr><td class="header2">Notes</td></tr>
+	<tr>
+		<td class="intd">
+		In the center frame you can see Tigra Tree Menu instance.
+		Click on tree items to see frames targeting in action.
+		</td>
+	</tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td class="header2">Advantages</td></tr>
+	<tr>
+		<td class="intd">
+		<p><b>Flexibility and usability</b> - You can make navigation tree look exactly as your application requires using configuration settings provided. With minimum programming efforts component can be attached to dynamic data sources such as database or file system.</p>
+		<p><b>Performance and robustness</b> - Tigra Tree Menu is highly optimized JavaScript component that efficiently utilizes resources of the browser. The product is designed to smoothly operate hierarchies containing thousands of items. Configuration files with low formatting overhead save network traffic and guarantee fast download times. Nevertheless you can reach even more efficiency using <font color="Red">size optimized version</font> provided within the download package</p>
+		<p><b>Saves time and budget</b> - The script saves time, funds and efforts at all stages of the web application development: you get the component that does what you need for free, with tons of illustrated support materials you start using tree menu instantly, you efficiently and comfortably maintain navigation component, you easily adopt script as your requirements grow.
+		</td>
+	</tr>
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr-->
+	<tr><td class="header2">Links</td></tr>
+	<tr>
+		<td class="intd">
+		<b>
+		<ul>
+			<li><a href="http://www.softcomplex.com/products/tigra_tree_menu/" target="_top">Product page</a>
+			<li><a href="http://www.softcomplex.com/products/tigra_tree_menu/docs/" target="_top">Product documentation</a>
+			<li><a href="http://www.softcomplex.com/forum/forumdisplay_62/" target="_top">Tigra Tree Menu forum</a>
+			<li><a href="../demo2/index.html" target="_top">Next demo (Win help style)</a>
+		</ul>
+		</b>
+		</td>
+	</tr>
+</table>
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/logo.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/logo.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/pixel.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/pixel.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.html	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,34 @@
+<html>
+<head>
+	<title>JavaScript Tree Menu</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+<style>
+	a, A:link, a:visited, a:active, A:hover
+		{color: #000000; text-decoration: none; font-family: Tahoma, Verdana; font-size: 12px}
+</style>
+
+</head>
+
+<body bottommargin="0" topmargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" bgcolor="white">
+<script language="JavaScript" src="tree.js"></script>
+<script language="JavaScript" src="tree_items.js"></script>
+<script language="JavaScript" src="tree_tpl.js"></script>
+
+<table cellpadding="5" cellspacing="0" cellpadding="10" border="0" width="100%">
+<tr>
+	<td>
+	<script language="JavaScript">
+	<!--//
+		new tree (TREE_ITEMS, TREE_TPL);
+	//-->
+	</script>
+	</td>
+	
+</tr>
+</table>
+
+</body>
+</html>
+
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree.js	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,132 @@
+// Title: Tigra Tree
+// Description: See the demo at url
+// URL: http://www.softcomplex.com/products/tigra_menu_tree/
+// Version: 1.1
+// Date: 11-12-2002 (mm-dd-yyyy)
+// Notes: This script is free. Visit official site for further details.
+
+function tree (a_items, a_template) {
+
+	this.a_tpl      = a_template;
+	this.a_config   = a_items;
+	this.o_root     = this;
+	this.a_index    = [];
+	this.o_selected = null;
+	this.n_depth    = -1;
+	
+	var o_icone = new Image(),
+		o_iconl = new Image();
+	o_icone.src = a_template['icon_e'];
+	o_iconl.src = a_template['icon_l'];
+	a_template['im_e'] = o_icone;
+	a_template['im_l'] = o_iconl;
+	for (var i = 0; i < 64; i++)
+		if (a_template['icon_' + i]) {
+			var o_icon = new Image();
+			a_template['im_' + i] = o_icon;
+			o_icon.src = a_template['icon_' + i];
+		}
+	
+	this.toggle = function (n_id) {	var o_item = this.a_index[n_id]; o_item.open(o_item.b_opened) };
+	this.select = function (n_id) { return this.a_index[n_id].select(); };
+	this.mout   = function (n_id) { this.a_index[n_id].upstatus(true) };
+	this.mover  = function (n_id) { this.a_index[n_id].upstatus() };
+
+	this.a_children = [];
+	for (var i = 0; i < a_items.length; i++)
+		new tree_item(this, i);
+
+	this.n_id = trees.length;
+	trees[this.n_id] = this;
+	
+	for (var i = 0; i < this.a_children.length; i++) {
+		document.write(this.a_children[i].init());
+		this.a_children[i].open();
+	}
+}
+function tree_item (o_parent, n_order) {
+
+	this.n_depth  = o_parent.n_depth + 1;
+	this.a_config = o_parent.a_config[n_order + (this.n_depth ? 2 : 0)];
+	if (!this.a_config) return;
+
+	this.o_root    = o_parent.o_root;
+	this.o_parent  = o_parent;
+	this.n_order   = n_order;
+	this.b_opened  = !this.n_depth;
+
+	this.n_id = this.o_root.a_index.length;
+	this.o_root.a_index[this.n_id] = this;
+	o_parent.a_children[n_order] = this;
+
+	this.a_children = [];
+	for (var i = 0; i < this.a_config.length - 2; i++)
+		new tree_item(this, i);
+
+	this.get_icon = item_get_icon;
+	this.open     = item_open;
+	this.select   = item_select;
+	this.init     = item_init;
+	this.upstatus = item_upstatus;
+	this.is_last  = function () { return this.n_order == this.o_parent.a_children.length - 1 };
+}
+
+function item_open (b_close) {
+	var o_idiv = get_element('i_div' + this.o_root.n_id + '_' + this.n_id);
+	if (!o_idiv) return;
+	
+	if (!o_idiv.innerHTML) {
+		var a_children = [];
+		for (var i = 0; i < this.a_children.length; i++)
+			a_children[i]= this.a_children[i].init();
+		o_idiv.innerHTML = a_children.join('');
+	}
+	o_idiv.style.display = (b_close ? 'none' : 'block');
+	
+	this.b_opened = !b_close;
+	var o_jicon = document.images['j_img' + this.o_root.n_id + '_' + this.n_id],
+		o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+	if (o_jicon) o_jicon.src = this.get_icon(true);
+	if (o_iicon) o_iicon.src = this.get_icon();
+	this.upstatus();
+}
+
+function item_select (b_deselect) {
+	if (!b_deselect) {
+		var o_olditem = this.o_root.o_selected;
+		this.o_root.o_selected = this;
+		if (o_olditem) o_olditem.select(true);
+	}
+	var o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+	if (o_iicon) o_iicon.src = this.get_icon();
+	get_element('i_txt' + this.o_root.n_id + '_' + this.n_id).style.fontWeight = b_deselect ? 'normal' : 'bold';
+	
+	this.upstatus();
+	return Boolean(this.a_config[1]);
+}
+
+function item_upstatus (b_clear) {
+	window.setTimeout('window.status="' + (b_clear ? '' : this.a_config[0] + (this.a_config[1] ? ' ('+ this.a_config[1] + ')' : '')) + '"', 10);
+}
+
+function item_init () {
+	var a_offset = [],
+		o_current_item = this.o_parent;
+	for (var i = this.n_depth; i > 1; i--) {
+		a_offset[i] = '<img src="' + this.o_root.a_tpl[o_current_item.is_last() ? 'icon_e' : 'icon_l'] + '" border="0" align="absbottom">';
+		o_current_item = o_current_item.o_parent;
+	}
+	return '<table cellpadding="0" cellspacing="0" border="0"><tr><td nowrap>' + (this.n_depth ? a_offset.join('') + (this.a_children.length
+		? '<a href="javascript: trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')"><img src="' + this.get_icon(true) + '" border="0" align="absbottom" name="j_img' + this.o_root.n_id + '_' + this.n_id + '"></a>'
+		: '<img src="' + this.get_icon(true) + '" border="0" align="absbottom">') : '') 
+		+ '<a href="' + this.a_config[1] + '" target="' + this.o_root.a_tpl['target'] + '" onclick="return trees[' + this.o_root.n_id + '].select(' + this.n_id + ')" ondblclick="trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')" class="t' + this.o_root.n_id + 'i" id="i_txt' + this.o_root.n_id + '_' + this.n_id + '"><img src="' + this.get_icon() + '" border="0" align="absbottom" name="i_img' + this.o_root.n_id + '_' + this.n_id + '" class="t' + this.o_root.n_id + 'im">' + this.a_config[0] + '</a></td></tr></table>' + (this.a_children.length ? '<div id="i_div' + this.o_root.n_id + '_' + this.n_id + '" style="display:none"></div>' : '');
+}
+
+function item_get_icon (b_junction) {
+	return this.o_root.a_tpl['icon_' + ((this.n_depth ? 0 : 32) + (this.a_children.length ? 16 : 0) + (this.a_children.length && this.b_opened ? 8 : 0) + (!b_junction && this.o_root.o_selected == this ? 4 : 0) + (b_junction ? 2 : 0) + (b_junction && this.is_last() ? 1 : 0))];
+}
+
+var trees = [];
+get_element = document.all ?
+	function (s_id) { return document.all[s_id] } :
+	function (s_id) { return document.getElementById(s_id) };
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_items.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_items.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_items.js	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,17 @@
+var TREE_ITEMS = [
+	['Home', 'http://www.softcomplex.com/index.html',
+		['Services', 'http://www.softcomplex.com/services.html'],
+		['Download', 'http://www.softcomplex.com/download.html'],
+		['Order',    'http://www.softcomplex.com/order.html'],
+		['Support',  'http://www.softcomplex.com/support.html'],
+	],
+	['Level 0 Item 1', null,
+		['Level 1 Item 0', 'links.html'],
+		['Level 1 Item 1', 0,
+			['Level 2 Item 0'],
+			['Level 2 Item 1', 0],
+		],
+		['Level 1 Item 2'],
+		['Level 1 Item 3'],
+	]
+];
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_tpl.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_tpl.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo1/tree_tpl.js	4 Sep 2004 14:51:24 -0000	1.1
@@ -0,0 +1,36 @@
+/*
+	Feel free to use your custom icons for the tree. Make sure they are all of the same size.
+	User icons collections are welcome, we'll publish them giving all regards.
+*/
+
+var TREE_TPL = {
+	'target'  : 'frameset',	// name of the frame links will be opened in
+							// other possible values are: _blank, _parent, _search, _self and _top
+
+	'icon_e'  : 'icons/empty.gif', // empty image
+	'icon_l'  : 'icons/line.gif',  // vertical line
+
+        'icon_32' : 'icons/base.gif',   // root leaf icon normal
+        'icon_36' : 'icons/base.gif',   // root leaf icon selected
+	
+	'icon_48' : 'icons/base.gif',   // root icon normal
+	'icon_52' : 'icons/base.gif',   // root icon selected
+	'icon_56' : 'icons/base.gif',   // root icon opened
+	'icon_60' : 'icons/base.gif',   // root icon selected
+	
+	'icon_16' : 'icons/folder.gif', // node icon normal
+	'icon_20' : 'icons/folderopen.gif', // node icon selected
+	'icon_24' : 'icons/folderopen.gif', // node icon opened
+	'icon_28' : 'icons/folderopen.gif', // node icon selected opened
+
+	'icon_0'  : 'icons/page.gif', // leaf icon normal
+	'icon_4'  : 'icons/page.gif', // leaf icon selected
+	
+	'icon_2'  : 'icons/joinbottom.gif', // junction for leaf
+	'icon_3'  : 'icons/join.gif',       // junction for last leaf
+	'icon_18' : 'icons/plusbottom.gif', // junction for closed node
+	'icon_19' : 'icons/plus.gif',       // junctioin for last closed node
+	'icon_26' : 'icons/minusbottom.gif',// junction for opened node
+	'icon_27' : 'icons/minus.gif'       // junctioin for last opended node
+};
+
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/ttm.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/ttm.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/base.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/base.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/empty.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/empty.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/folder.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/folder.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/folderopen.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/folderopen.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/join.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/join.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/joinbottom.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/joinbottom.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/line.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/line.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/minus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/minus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/minusbottom.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/minusbottom.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/page.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/page.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/plus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/plus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/plusbottom.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo1/icons/plusbottom.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/index.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/index.html,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo2/index.html	4 Sep 2004 14:51:25 -0000	1.1
@@ -0,0 +1,121 @@
+<html>
+<head>
+	<title>Tigra Tree Menu - Demo #2 (Win help style)</title>
+	<meta name="description" content="Free Cross Browser Javascript DHTML Tree Menu Navigation">
+	<meta name="keywords" content="JavaScript tree menu, DHTML tree menu, client side tree menu, table of contents, site map, web authoring, scripting, freeware, download, shareware, free software, DHTML, Free Tree Menu, site, navigation, html, web, netscape, explorer, IE, opera, DOM, control, cross browser, support, frames, target, download">
+	<meta name="robots" content="index,follow">
+<style>
+	a, A:link, a:visited, a:active
+		{color: #0000aa; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	A:hover
+		{color: #ff0000; text-decoration: none; font-family: Tahoma, Verdana; font-size: 11px}
+	p, tr, td, ul, li
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px}
+	.header1, h1
+		{color: #ffffff; background: #4682B4; font-weight: bold; font-family: Tahoma, Verdana; font-size: 13px; margin: 0px; padding: 2px;}
+	.header2, h2
+		{color: #000000; background: #DBEAF5; font-weight: bold; font-family: Tahoma, Verdana; font-size: 12px;}
+	.intd
+		{color: #000000; font-family: Tahoma, Verdana; font-size: 11px; padding-left: 15px; padding-right: 15px;}
+</style>
+
+	<script language="JavaScript" src="tree.js"></script>
+	<script language="JavaScript" src="tree_items.js"></script>
+	<script language="JavaScript" src="tree_tpl.js"></script>
+	
+</head>
+<body bottommargin="15" topmargin="15" leftmargin="15" rightmargin="15" marginheight="15" marginwidth="15" bgcolor="white">
+
+<!-- Header -->
+<table cellpadding="0" cellspacing="0" width="100%" border="0">
+<tr>
+	<td width="350" rowspan="2"><img src="ttm.gif" width="350" height="80" border="0" alt="Tigra Tree Menu"></td>
+	<td align="right" valign="top"><img src="logo.gif" width="178" height="30" border="0" alt="Softcomplex logo"></td>
+</tr>
+<tr>
+	<td align="right" valign="bottom" nowrap>
+	<b>
+	|&nbsp;<a href="http://www.softcomplex.com/index.html">About&nbsp;Us</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/services.html">Services</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/download.html">Download</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/order.html">Order</a>&nbsp;
+	|&nbsp;<a href="http://www.softcomplex.com/support.html">Support</a>&nbsp;
+	|
+	</b>
+	</td>
+</tr>
+<tr><td><img src="pixel.gif" width="1" height="5" border="0"></td></tr>
+</table>
+<!-- /Header -->
+
+<!-- Body -->
+<table cellpadding="0" cellspacing="0" border="0" bgcolor="#4682B4" width="100%"><tr><td>
+<table cellpadding="0" cellspacing="1" width="100%" border="0">
+<tr>
+	<td class="header1" valign="top" colspan="2">Tigra Tree Menu - Demo #2 (Win help style)</td>
+</tr>
+<tr>
+	<td valign="top" bgcolor="#FFFFFF">
+	<table cellpadding="3" cellspacing="1" border="0" width="100%">
+		<tr><td class="header2">Notes</td></tr>
+		<tr>
+			<td class="intd">
+			Tree menu outward appearance can be easily configured to match your needs.
+			On the right hand side you can see win help like tree menu appearance.
+			</td>
+		</tr>
+		<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+		<tr><td class="header2">Advantages</td></tr>
+		<tr>
+			<td class="intd">
+			<p><b>Flexibility and usability</b> - You can make navigation tree look exactly as your application requires using configuration settings provided. With minimum programming efforts component can be attached to dynamic data sources such as database or file system.</p>
+			<p><b>Performance and robustness</b> - Tigra Tree Menu is highly optimized JavaScript component that efficiently utilizes resources of the browser. The product is designed to smoothly operate hierarchies containing thousands of items. Configuration files with low formatting overhead save network traffic and guarantee fast download times. Nevertheless you can reach even more efficiency using <font color="Red">size optimized version</font> provided within the download package</p>
+			<p><b>Saves time and budget</b> - The script saves time, funds and efforts at all stages of the web application development: you get the component that does what you need for free, with tons of illustrated support materials you start using tree menu instantly, you efficiently and comfortably maintain navigation component, you easily adopt script as your requirements grow.
+			</td>
+		</tr>
+		<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr-->
+		<tr><td class="header2">Links</td></tr>
+		<tr><td class="intd">
+			<b>
+			<ul>
+				<li><a href="http://www.softcomplex.com/products/tigra_tree_menu/" target="_top">Product page</a>
+				<li><a href="http://www.softcomplex.com/products/tigra_tree_menu/docs/" target="_top">Product documentation</a>
+				<li><a href="http://www.softcomplex.com/forum/forumdisplay_62/" target="_top">Tigra Tree Menu forum</a>
+				<li><a href="../demo1/index.html" target="_top">Previous demo (Frames Targeting)</a>
+			</ul>
+			</b>
+		</td></tr>
+		<tr><td><img src="pixel.gif" width="300" height="1" border="0"></td></tr>
+	</table>
+	</td>
+	<td valign="top" bgcolor="#FFFFFF" width="100%">
+	<table cellpadding="0" cellspacing="5" border="0" width="100%">
+	<tr><td><img src="pixel.gif" width="1" height="1" border="0"></td></tr>
+	<tr><td>
+		<script language="JavaScript">
+			new tree (TREE_ITEMS, TREE_TPL);
+		</script>
+	</td></tr>
+	</table>
+	</td>
+</tr>
+</table>
+</td></tr></table>
+<!-- /Body -->
+
+<!-- Footer -->
+<table cellpadding="3" cellspacing="0" width="100%" border="0" height="22">
+<tr bgcolor="#4682B4">
+	<td nowrap><font color="white">Copyright &copy;2004 SoftComplex Inc. All rights reserved.</font></td>
+	<td align="right">
+	| <a href="http://www.softcomplex.com/"><font color="white">company info</font></a>
+	| <a href="http://www.softcomplex.com/site_agreement.html"><font color="white">terms of service</font></a>
+	| <a href="http://www.softcomplex.com/privacy_policy.html"><font color="white">privacy policy</font></a>
+	|
+	</td>
+</tr>
+</table>
+<!-- /Footer -->
+
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/logo.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/logo.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/pixel.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/pixel.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree.js	4 Sep 2004 14:51:25 -0000	1.1
@@ -0,0 +1,132 @@
+// Title: Tigra Tree
+// Description: See the demo at url
+// URL: http://www.softcomplex.com/products/tigra_menu_tree/
+// Version: 1.1
+// Date: 11-12-2002 (mm-dd-yyyy)
+// Notes: This script is free. Visit official site for further details.
+
+function tree (a_items, a_template) {
+
+	this.a_tpl      = a_template;
+	this.a_config   = a_items;
+	this.o_root     = this;
+	this.a_index    = [];
+	this.o_selected = null;
+	this.n_depth    = -1;
+	
+	var o_icone = new Image(),
+		o_iconl = new Image();
+	o_icone.src = a_template['icon_e'];
+	o_iconl.src = a_template['icon_l'];
+	a_template['im_e'] = o_icone;
+	a_template['im_l'] = o_iconl;
+	for (var i = 0; i < 64; i++)
+		if (a_template['icon_' + i]) {
+			var o_icon = new Image();
+			a_template['im_' + i] = o_icon;
+			o_icon.src = a_template['icon_' + i];
+		}
+	
+	this.toggle = function (n_id) {	var o_item = this.a_index[n_id]; o_item.open(o_item.b_opened) };
+	this.select = function (n_id) { return this.a_index[n_id].select(); };
+	this.mout   = function (n_id) { this.a_index[n_id].upstatus(true) };
+	this.mover  = function (n_id) { this.a_index[n_id].upstatus() };
+
+	this.a_children = [];
+	for (var i = 0; i < a_items.length; i++)
+		new tree_item(this, i);
+
+	this.n_id = trees.length;
+	trees[this.n_id] = this;
+	
+	for (var i = 0; i < this.a_children.length; i++) {
+		document.write(this.a_children[i].init());
+		this.a_children[i].open();
+	}
+}
+function tree_item (o_parent, n_order) {
+
+	this.n_depth  = o_parent.n_depth + 1;
+	this.a_config = o_parent.a_config[n_order + (this.n_depth ? 2 : 0)];
+	if (!this.a_config) return;
+
+	this.o_root    = o_parent.o_root;
+	this.o_parent  = o_parent;
+	this.n_order   = n_order;
+	this.b_opened  = !this.n_depth;
+
+	this.n_id = this.o_root.a_index.length;
+	this.o_root.a_index[this.n_id] = this;
+	o_parent.a_children[n_order] = this;
+
+	this.a_children = [];
+	for (var i = 0; i < this.a_config.length - 2; i++)
+		new tree_item(this, i);
+
+	this.get_icon = item_get_icon;
+	this.open     = item_open;
+	this.select   = item_select;
+	this.init     = item_init;
+	this.upstatus = item_upstatus;
+	this.is_last  = function () { return this.n_order == this.o_parent.a_children.length - 1 };
+}
+
+function item_open (b_close) {
+	var o_idiv = get_element('i_div' + this.o_root.n_id + '_' + this.n_id);
+	if (!o_idiv) return;
+	
+	if (!o_idiv.innerHTML) {
+		var a_children = [];
+		for (var i = 0; i < this.a_children.length; i++)
+			a_children[i]= this.a_children[i].init();
+		o_idiv.innerHTML = a_children.join('');
+	}
+	o_idiv.style.display = (b_close ? 'none' : 'block');
+	
+	this.b_opened = !b_close;
+	var o_jicon = document.images['j_img' + this.o_root.n_id + '_' + this.n_id],
+		o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+	if (o_jicon) o_jicon.src = this.get_icon(true);
+	if (o_iicon) o_iicon.src = this.get_icon();
+	this.upstatus();
+}
+
+function item_select (b_deselect) {
+	if (!b_deselect) {
+		var o_olditem = this.o_root.o_selected;
+		this.o_root.o_selected = this;
+		if (o_olditem) o_olditem.select(true);
+	}
+	var o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id];
+	if (o_iicon) o_iicon.src = this.get_icon();
+	get_element('i_txt' + this.o_root.n_id + '_' + this.n_id).style.fontWeight = b_deselect ? 'normal' : 'bold';
+	
+	this.upstatus();
+	return Boolean(this.a_config[1]);
+}
+
+function item_upstatus (b_clear) {
+	window.setTimeout('window.status="' + (b_clear ? '' : this.a_config[0] + (this.a_config[1] ? ' ('+ this.a_config[1] + ')' : '')) + '"', 10);
+}
+
+function item_init () {
+	var a_offset = [],
+		o_current_item = this.o_parent;
+	for (var i = this.n_depth; i > 1; i--) {
+		a_offset[i] = '<img src="' + this.o_root.a_tpl[o_current_item.is_last() ? 'icon_e' : 'icon_l'] + '" border="0" align="absbottom">';
+		o_current_item = o_current_item.o_parent;
+	}
+	return '<table cellpadding="0" cellspacing="0" border="0"><tr><td nowrap>' + (this.n_depth ? a_offset.join('') + (this.a_children.length
+		? '<a href="javascript: trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')"><img src="' + this.get_icon(true) + '" border="0" align="absbottom" name="j_img' + this.o_root.n_id + '_' + this.n_id + '"></a>'
+		: '<img src="' + this.get_icon(true) + '" border="0" align="absbottom">') : '') 
+		+ '<a href="' + this.a_config[1] + '" target="' + this.o_root.a_tpl['target'] + '" onclick="return trees[' + this.o_root.n_id + '].select(' + this.n_id + ')" ondblclick="trees[' + this.o_root.n_id + '].toggle(' + this.n_id + ')" onmouseover="trees[' + this.o_root.n_id + '].mover(' + this.n_id + ')" onmouseout="trees[' + this.o_root.n_id + '].mout(' + this.n_id + ')" class="t' + this.o_root.n_id + 'i" id="i_txt' + this.o_root.n_id + '_' + this.n_id + '"><img src="' + this.get_icon() + '" border="0" align="absbottom" name="i_img' + this.o_root.n_id + '_' + this.n_id + '" class="t' + this.o_root.n_id + 'im">' + this.a_config[0] + '</a></td></tr></table>' + (this.a_children.length ? '<div id="i_div' + this.o_root.n_id + '_' + this.n_id + '" style="display:none"></div>' : '');
+}
+
+function item_get_icon (b_junction) {
+	return this.o_root.a_tpl['icon_' + ((this.n_depth ? 0 : 32) + (this.a_children.length ? 16 : 0) + (this.a_children.length && this.b_opened ? 8 : 0) + (!b_junction && this.o_root.o_selected == this ? 4 : 0) + (b_junction ? 2 : 0) + (b_junction && this.is_last() ? 1 : 0))];
+}
+
+var trees = [];
+get_element = document.all ?
+	function (s_id) { return document.all[s_id] } :
+	function (s_id) { return document.getElementById(s_id) };
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_items.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_items.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_items.js	4 Sep 2004 14:51:25 -0000	1.1
@@ -0,0 +1,115 @@
+/* 
+	the format of the tree definition file is simple,
+	you can find specification in the Tigra Menu documentation at:
+	
+	http://www.softcomplex.com/products/tigra_tree_menu/docs/index.html#hierarchy
+*/
+
+var TREE_ITEMS = [
+	['Window', 0, 
+		['Description'],
+		['Properties', 0,
+			['client'],
+			['closed'],
+			['defaultStatus'],
+			['dialogArguments'],
+			['dialogHeight'],
+			['dialogWidth'],
+			['dialogTop'],
+			['dialogLeft'],
+			['document', 0, 
+				['Description'],
+				['Properties', 0, 
+					['activeElement'],
+					['aLinkColor'],
+					['bgColor'],
+					['cookie'],
+					['domain'],
+					['fgColor'],
+					['lastModified'],
+					['linkColor'],
+					['location'],
+					['parentWindow'],
+					['referrer'],
+					['readyState'],
+					['title'],
+					['URL'],
+					['vlinkColor']
+				],
+				['Methods', 0, 
+					['close'],
+					['createElement'],
+					['execCommand'],
+					['elementFromPoint'],
+					['open'],
+					['queryCommandEnabled'],
+					['queryCommandIndeterm'],
+					['queryCommandState'],
+					['queryCommandSupported'],
+					['queryCommandValue'],
+					['write'],
+					['writeln']
+				],
+				['Collections', 0, 
+					['all'],
+					['anchors'],
+					['applets'],
+					['forms'],
+					['frames'],
+					['embeds'],
+					['images'],
+					['links'],
+					['scripts'],
+					['styleSheets']
+				],
+				['Example']
+			],
+			['event'],
+			['history', 0, 
+				['Description'],
+				['Properties', 0, 
+					['length']
+				],
+				['Methods', 0,
+					['back'],
+					['forward'],
+					['go']
+				],
+				['Example']
+			],
+			['length'],
+			['location'],
+			['name'],
+			['navigator'],
+			['offscreenBuffering'],
+			['opener'],
+			['parent'],
+			['returnValue'],
+			['self'],
+			['status'],
+			['top']
+		],
+		['Methods', 0, 
+			['alert'],
+			['blur'],
+			['clearInterval'],
+			['clearTimeout'],
+			['close'],
+			['confirm'],
+			['execScript'],
+			['focus '],
+			['navigate'],
+			['open'],
+			['prompt'],
+			['scroll'],
+			['setInterval'],
+			['setTimeout'],
+			['showHelp'],
+			['showModalDialog']
+		],
+		['Collections', 0,
+			['frames']
+		],
+		['Example']
+	]
+];
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_tpl.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_tpl.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/tigra/demo2/tree_tpl.js	4 Sep 2004 14:51:25 -0000	1.1
@@ -0,0 +1,36 @@
+/*
+	Feel free to use your custom icons for the tree. Make sure they are all of the same size.
+	User icons collections are welcome, we'll publish them giving all regards.
+*/
+
+var TREE_TPL = {
+	'target'  : '_blank',	// name of the frame links will be opened in
+							// other possible values are: _blank, _parent, _search, _self and _top
+
+	'icon_e'  : 'icons/empty.gif', // empty image
+	'icon_l'  : 'icons/empty.gif',  // vertical line
+	
+        'icon_32' : 'icons/base.gif',   // root leaf icon normal
+        'icon_36' : 'icons/base.gif',   // root leaf icon selected
+	
+	'icon_48' : 'icons/folder.gif',   // root icon normal
+	'icon_52' : 'icons/foldersel.gif',   // root icon selected
+	'icon_56' : 'icons/folder.gif',   // root icon opened
+	'icon_60' : 'icons/foldersel.gif',   // root icon selected
+	
+	'icon_16' : 'icons/folder.gif', // node icon normal
+	'icon_20' : 'icons/foldersel.gif', // node icon selected
+	'icon_24' : 'icons/folderopen.gif', // node icon opened
+	'icon_28' : 'icons/foldersel.gif', // node icon selected opened
+
+	'icon_0'  : 'icons/page.gif', // leaf icon normal
+	'icon_4'  : 'icons/pagesel.gif', // leaf icon selected
+	
+	'icon_2'  : 'icons/empty.gif', // junction for leaf
+	'icon_3'  : 'icons/empty.gif',       // junction for last leaf
+	'icon_18' : 'icons/plus.gif', // junction for closed node
+	'icon_19' : 'icons/plus.gif',       // junctioin for last closed node
+	'icon_26' : 'icons/minus.gif',// junction for opened node
+	'icon_27' : 'icons/minus.gif'       // junctioin for last opended node
+};
+
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/ttm.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/ttm.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/empty.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/empty.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/folder.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/folder.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/folderopen.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/folderopen.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/foldersel.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/foldersel.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/minus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/minus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/page.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/page.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/pagesel.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/pagesel.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/plus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/tigra/demo2/icons/plus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery/view/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/view/index-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/view/index-oracle.xql	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="template_root">      
+      <querytext>
+
+      select content_template.get_root_folder from dual
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/lorsm/www/delivery/view/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/view/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/view/index-postgresql.xql	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="template_root">      
+      <querytext>
+
+      select content_template__get_root_folder()
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/lorsm/www/delivery/view/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery/view/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery/view/index.vuh	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,55 @@
+#################################################
+ad_page_contract {
+   
+    @author Unknown
+    @creation-date Unknown
+    @cvs-id $Id: index.vuh,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {    
+    { imsitem_id "" }
+}
+
+# check if the nsv variable exists
+if {![nsv_exists delivery_vars [ad_conn session_id]]} {
+    ad_returnredirect [dotlrn_community::get_community_url [dotlrn_community::get_community_id -package_id [ad_conn package_id]]]
+}
+
+
+#
+if {[info exists imsitem_id]} {
+    lorsm::set_ims_item_id $imsitem_id
+}
+
+# Get the paths
+set the_root [ns_info pageroot]
+set the_url [ad_conn path_info]
+set content_type "content_revision"
+
+set content_root [lindex [nsv_get delivery_vars [ad_conn session_id]] 0]
+set imsitem_id [lorsm::get_ims_item_id]
+
+#ad_script_abort
+
+set template_root [db_string template_root ""]
+
+# Serve the page
+
+# DRB: Note that content::init modifies the local variable the_root, which is treated
+# as though it's been passed by reference.   This requires that the redirect treat the
+# path as an absolute path within the filesystem.
+
+if { [lorsm::init the_url the_root  $content_root $template_root public "" $content_type] } {
+
+    # we introduced our own template
+    rp_internal_redirect -absolute_path [acs_root_dir]/templates/lorsm-default
+
+} else {
+  # ns_returnnotfound
+  set page "[ad_header {Content Item Not Found}]"
+  append page "<h3>Content Item Not Found</h3>"
+  append page "The requested item is not available for viewing.  "
+  append page "The item is either not available on this server or it is not in a publishable state  "
+  append page "Unpublished items can be viewed via the CMS interface if the CMS package is installed.<br>"
+  append page "[ad_footer]"
+  doc_return 200 text/html $page
+}
+
Index: openacs-4/packages/lorsm/www/delivery1/body.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/body.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/body.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,27 @@
+<html>
+  <head>
+    <meta name="generator" content="OpenACS LORS Management">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/default-master.css" media="all">
+    
+
+    <script src="/resources/acs-subsite/core.js" language="javascript"></script>
+
+    <textarea id="holdtext" style="display: none;"></textarea>
+
+    
+    <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/site-master.css" media="all">
+
+ </head>
+
+ <body border=0>
+<p align="center"><font size=+3">Welcome to LEON</font><br><font size=-1>Course Delivery System for LORS</font>
+</p>
+
+<p align="center">Click on the Course Index items to start your <b>@course_name@</b> course.</p>
+ </body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery1/body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/body.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/body.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,17 @@
+# packages/lorsm/www/delivery/body.tcl
+
+ad_page_contract {
+    
+    Course Delivery Body
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag a20dffe3-6d54-4ece-858c-4529e82c163b
+    @cvs-id $Id: body.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    course_name:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
Index: openacs-4/packages/lorsm/www/delivery1/exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/exit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/exit.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,26 @@
+# packages/lorsm/www/delivery/exit.tcl
+
+ad_page_contract {
+    
+    Student tracking exit
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-25
+    @arch-tag 04aa013e-2a53-45eb-825d-d576ea35cd14
+    @cvs-id $Id: exit.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    track_id:integer
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+# stamps the time when leaving the delivery environment
+
+if {$track_id != 0} {
+    lorsm::track::exit -track_id $track_id
+}
+
+# redirects
+ad_returnredirect $return_url
Index: openacs-4/packages/lorsm/www/delivery1/header.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/header.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/header.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,31 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+
+<link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
+<link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
+<link rel="stylesheet" type="text/css" href="/resources/dotlrn/dotlrn-master.css" media="all">
+<script src="/resources/acs-subsite/core.js" language="javascript"></script>
+</head>
+<body border="0">
+ <!-- Header Begin -->
+
+  <table width="100%" cellpadding=0 cellspacing=0> 
+   <tr>
+      <td class="header-logo">
+        <img class="header-img" border="0" src="/dotlrn/resources/logo" alt="Header Logo">
+      </td>
+
+      <td><span class="header-text">@course_name@<br></span></td>
+
+      <td align="right" class="header-text">
+        <a href="@exit_url@" target="_top">Exit Course</a>
+        <img class="header-img" src="/resources/dotlrn/spacer.gif" height="1" width="10">
+        <a href="@logout_url@" target="_top">Log Out</a>
+        <img class="header-img" src="/resources/dotlrn/spacer.gif" height="1" width="10">
+      </td>
+    </tr>
+    </table>
+
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery1/header.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/header.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/header.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,24 @@
+# packages/lorsm/www/delivery/header.tcl
+
+ad_page_contract {
+    
+    Course Delivery Header
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag 3e231cd4-395e-428e-a3ba-ca52cf73a0dd
+    @cvs-id $Id: header.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    course_name:notnull
+    track_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+set return_url [dotlrn_community::get_community_url [dotlrn_community::get_community_id]]
+
+
+# urls
+set exit_url "exit?[export_vars {return_url track_id}]"
+set logout_url "exit?return_url=/register/logout&[export_vars track_id]"
Index: openacs-4/packages/lorsm/www/delivery1/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/index.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,19 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN"
+   "http://www.w3.org/TR/html4/frameset.dtd">
+<html>
+<head>
+      <title>@course_name@</title>
+</head>
+<frameset rows="75,*" border="1">
+<frame src="header?course_name=@course_name@&track_id=@track_id@" name="header" title="header" scrolling="no">
+<frameset cols="20%, *" frameborder="1" framespacing="3">
+<frame frameborder="2" marginwidth="0" marginheight="0" src="toc?man_id=@man_id@" name="frame" title="TOC">
+<frame frameborder="2" src="body?course_name=@course_name@" name="body">
+</frameset>
+
+<noframes>
+      <p>Sorry, your browser must support frames to view this page. 
+  </p>
+  </noframes>
+</frameset>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery1/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/index.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,82 @@
+# packages/lorsm/www/delivery/index.tcl
+
+ad_page_contract {
+    
+    Course Delivery Based on IMS Content Packaging Structure
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag cfea182c-c686-4bee-be61-ec73f3d3a10f
+    @cvs-id $Id: index.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    man_id:integer,notnull  
+} -properties {
+} -validate {
+} -errors {
+}
+if {[db_0or1row manifest "
+    select 
+           cp.man_id,
+           cp.course_name,
+           cp.identifier,
+           cp.version,
+           text 'Yes' as hello,
+           case
+              when hasmetadata = 't' then 'Yes'
+              else 'No'
+           end as man_metadata,
+           case 
+              when isscorm = 't' then 'Yes'
+              else 'No'
+           end as isscorm,
+           cp.fs_package_id,
+           cp.folder_id,
+	   acs.creation_user,
+	   acs.creation_date,
+	   acs.context_id
+    from
+           ims_cp_manifests cp, acs_objects acs
+    where 
+           cp.man_id = acs.object_id
+	   and  cp.man_id = :man_id
+           and  cp.parent_man_id = 0"]} {
+
+    
+    # Course Name
+    if {[empty_string_p $course_name]} {
+	set course_name "No course Name"
+    } 
+
+    # Version
+    if {[empty_string_p $version]} {
+	set version "No version Available"
+    } 
+    
+    # Instance
+    set instance [apm_package_key_from_id $fs_package_id]
+
+    # Folder
+    set folder [apm_package_url_from_id $fs_package_id]?[export_vars folder_id]
+
+    # Student tracking
+    set package_id [ad_conn package_id]
+    set community_id [dotlrn_community::get_community_id]
+    set user_id [ad_conn user_id]
+
+    if {[lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
+
+	set track_id [lorsm::track::new \
+			  -user_id $user_id \
+			  -community_id $community_id \
+			  -course_id $man_id]
+    } else {
+	set track_id 0
+    }
+
+} else {
+
+    set display 0
+    
+}
+
+
Index: openacs-4/packages/lorsm/www/delivery1/record-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/record-view.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/record-view.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,24 @@
+# packages/lorsm/www/delivery/record-view.tcl
+
+ad_page_contract {
+    
+    records a view for this ims_cp_item and redirects to its url
+    
+    @author Deds Castillo (deds@i-manila.com.ph)
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-04
+    @arch-tag: a7aba567-c4c1-4f1c-b5f3-ebc1ab277515
+    @cvs-id $Id: record-view.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    item_id:notnull
+    redirect_url:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set viewer_id [ad_conn user_id]
+
+set views [views::record_view -object_id $item_id -viewer_id $viewer_id]
+
+ad_returnredirect $redirect_url
Index: openacs-4/packages/lorsm/www/delivery1/toc.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/toc.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/toc.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,89 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+  <head>
+    <meta name="generator" content="OpenACS LORS Management">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/default-master.css" media="all">
+    
+
+    <script src="/resources/acs-subsite/core.js" language="javascript"></script>
+
+    <textarea id="holdtext" style="display: none;"></textarea>
+
+    
+    <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/site-master.css" media="all">
+
+<style type="text/css">
+body, td {
+font-family: "Verdana", sans-serif; white-space: nowrap; 
+font-size: 8pt;
+}
+tt, pre {
+font-family: monospace;
+}
+a {
+text-decoration: none;
+}
+a:hover {
+text-decoration: underline;
+}
+.shadowed {
+font-size: 8pt;
+background: #aaaaaa;
+}
+.meta {
+font-size: 8pt;
+}
+.index {
+font-size: 8pt;
+}
+.caption, .index {
+color: #ffffff;
+}
+.comments {
+font-size: 8pt;
+}
+
+#site-header {
+  background-color: #6C9A83;
+  color: white;
+  font-family: tahoma, verdana, helvetica, sans-serif;
+  font-size: 85%;
+  padding-top: 10px;
+  padding-bottom: 14px;
+  padding-left: 14px;
+  padding-right: 18px;
+  text-align: center;
+}
+
+#site-header .system-name {
+  font-size: 120%;
+  font-weight: bold;
+  float: left;
+}
+#site-header .system-name a {
+  color: white;
+  text-decoration: none;
+}
+#site-header .system-name a:hover {
+  color: white;
+  text-decoration: none;
+}
+
+</style>
+  
+  </head>
+<body border=0>
+<div id="site-header">
+  <div class="system-name">
+    Course Index
+  </div>
+</div>
+@table_item;noquote@
+<hr size="1">
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery1/toc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery1/toc.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery1/toc.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,126 @@
+# packages/lorsm/www/delivery/toc.tcl
+
+ad_page_contract {
+    
+    Course Delivery Table of Content
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag 553390f0-450e-48db-99f0-c5dcb17978b8
+    @cvs-id $Id: toc.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    man_id:integer,notnull  
+} -properties {
+} -validate {
+} -errors {
+}
+
+set table_item ""
+set package_id [ad_conn package_id]
+
+# In order to share courses across classes, we need to share
+# file-storage objects across file-storage instances. This has been
+# proven to be really tricky. But here we pass the fs_package_id for
+# the current community, so we don't have to have permissions for
+# other instances of file-storages of other classes.  See
+# documentation for further details.
+
+set community_id [dotlrn_community::get_community_id]
+set fs_local_package_id [site_node_apm_integration::get_child_package_id \
+		       -package_id [dotlrn_community::get_package_id $community_id] \
+		       -package_key "file-storage"\
+		      ]
+set track_id [lorsm::track::istrackable -course_id $man_id -package_id $package_id]
+
+set extra_vars fs_local_package_id
+
+
+db_foreach organizations {
+    select 
+       org.org_id,
+       org.title as org_title,
+       org.hasmetadata,
+       tree_level(o.tree_sortkey) as indent
+    from
+       ims_cp_organizations org, acs_objects o
+    where
+       org.org_id = o.object_id
+     and
+       man_id = :man_id
+    order by
+       org_id
+} {
+
+    set indent [expr $indent +1]
+    set missing_text "Nothing here"
+
+    set table_extra_html { width="100%" }
+    # the table_def isn't quite neat as I'd like to, but it does the job for a
+    # simple indexing for delivery. 
+    set table_def {
+	{ title "" "no_sort" "<td>$indent[if {![empty_string_p $identifierref]} {set href \"<a href='[lorsm::fix_href2 -item_id $item_id -identifierref $identifierref -fs_package_id $fs_package_id -fs_local_package_id $fs_local_package_id -folder_id $folder_id -type $type -track_id $track_id]' target='body' title='$item_title'>$item_title</a>\"} else {set href $item_title}]</td>" }
+    }
+
+    set table_item [concat $table_item [ad_table -Tmissing_text $missing_text -Textra_vars {fs_local_package_id track_id}  -Ttable_extra_html $table_extra_html blah {
+        SELECT
+		o.object_id,
+ 		repeat('&nbsp;', (tree_level(tree_sortkey) - :indent)* 2) as indent,
+		i.item_id,
+                i.title as item_title,
+                i.hasmetadata,
+                i.org_id,
+                case 
+		    when i.identifierref <> '' then (
+						     SELECT
+						      res.href 
+						     FROM
+						      ims_cp_items_to_resources i2r, 
+						      ims_cp_resources res 
+						     WHERE
+						       i2r.res_id = res.res_id
+						      AND
+						       i2r.item_id = i.item_id 
+						     )
+                  else ''
+                end as identifierref,
+                case 
+		    when i.identifierref <> '' then (
+						     SELECT
+						      res.type
+						     FROM
+						      ims_cp_items_to_resources i2r, 
+						      ims_cp_resources res 
+						     WHERE
+						       i2r.res_id = res.res_id
+						      AND
+						       i2r.item_id = i.item_id 
+						     )
+                  else ''
+                end as type,
+                m.fs_package_id,
+	        m.folder_id,
+	        m.course_name
+        FROM 
+		acs_objects o, ims_cp_items i, ims_cp_manifests m
+	WHERE 
+		o.object_type = 'ims_item'
+           AND
+		i.org_id = :org_id
+	   AND
+		o.object_id = i.item_id
+           AND
+                m.man_id = :man_id
+        ORDER BY 
+                object_id, tree_sortkey
+
+
+    } $table_def]]
+
+    append orgs_list "$table_item"
+
+
+    append orgs_list "</td></tr>"
+
+} 
+
+
Index: openacs-4/packages/lorsm/www/delivery2/blank.htm
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/blank.htm,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/blank.htm	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,6 @@
+<html>
+<head>
+</head>
+<body>
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery2/body.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/body.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/body.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,31 @@
+<html>
+  <head>
+    <meta name="generator" content="OpenACS LORS Management">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
+    
+      <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/default-master.css" media="all">
+    
+
+    <script src="/resources/acs-subsite/core.js" language="javascript"></script>
+
+    <textarea id="holdtext" style="display: none;"></textarea>
+
+    
+    <link rel="stylesheet" type="text/css" href="/resources/acs-subsite/site-master.css" media="all">
+
+ </head>
+
+ <body border=0>
+<p align="center"><font size=+3">Welcome to <b>@course_name@</b></font><br><font size=-1>Course Delivery System for LORS</font>
+</p>
+
+<p align="center">
+Your Stats:
+<br>
+You have seen this course <b>x</b> number of times and have covered <b>xx %</b> of the content.
+</p>
+ </body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery2/body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/body.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/body.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,17 @@
+# packages/lorsm/www/delivery/body.tcl
+
+ad_page_contract {
+    
+    Course Delivery Body
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag a20dffe3-6d54-4ece-858c-4529e82c163b
+    @cvs-id $Id: body.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    course_name:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
Index: openacs-4/packages/lorsm/www/delivery2/displayToc.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/displayToc.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/displayToc.js	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,170 @@
+/*------------------------------------------------------------------- 
+Author's Statement:
+This script is based on ideas of the author.
+You may copy, modify and use it for any purpose. The only condition is that if you publish web pages that use this script you point to its author at a suitable place and don't remove this Statement from it.
+It's your responsibility to handle possible bugs even if you didn't modify anything. I cannot promise any support.
+Dieter Bungers
+GMD (www.gmd.de) and infovation (www.infovation.de)
+--------------------------------------------------------------------*/
+// Checking the client's browser and setting the text sizes of the headings in the ToC depending on the global parameter textSizes set in tocParas and the browser useed:
+
+var isIE = navigator.appName.toLowerCase().indexOf("explorer") > -1;
+var mdi = (isIE) ? textSizes[1]:textSizes[3];
+var sml = (isIE) ? textSizes[2]:textSizes[4];
+
+// Other global variables:
+
+// oldCurrentNumber is required to keep a hedings ordering string (or number) in case the ToC should change (tocChange > 0) but the content's location should remain unchanged (i.e. noLink == 1). In those cases the heading preceeded by oldCurrentNumber has to remain hilited (otherwise the heading preceeded by currentNumber has to be hilited).
+var oldCurrentNumber = "", oldLastVisitNumber = "";
+
+// toDisplay: Array to keep the display status for each heading. It is initialised so only the top level headings are displayed (headings preceeded by a single string without a dot):  
+var toDisplay = new Array();
+for (ir=0; ir<tocTab.length; ir++) {
+	toDisplay[ir] = tocTab[ir][0].split(".").length==1;
+}
+
+// ***************************************
+// The function redisplays the ToC and the content 
+// ***************************************
+
+function reDisplay(currentNumber,tocChange,noLink,e) {
+// Input parameters:
+// currentNumber: Hierarchical ordering string (or number) of the heading the user wants to display (we call this heading the "current"). This controls the change of both, the ToC depending on the second parameter tocChange and the content's URL depending on the third parameter noLink. 
+// tocChange: Controls how to change the ToC. 0 = No change, 1 = Change with automatic collapsing of expanded headings that are not on the path to the current heading, 2 = Change wthout automatic colapsing (as use for example by Windows Explorer or Mac OS).
+// noLink: Controls wether the content's URL shall be changed to the value given by the 3rd element of an tocTab's entry (= 0) or not (= 1).
+// e: The event that triggered the function call. If it is set it must be the event object.
+
+// If there is an event that triggered the function call: Checking the control key depending on the browser used. If it is pressed and tocChange is greater than 0 tocChange is set to 2 so the ToC schanges without automatic collapsing: 
+	if (e) {
+		ctrlKeyDown = (isIE) ? e.ctrlKey : (e.modifiers==2);
+		if (tocChange && ctrlKeyDown) tocChange = 2;
+	}
+
+// Initializing the ToC window's document and displaying the title on it's top. The ToC is performed by a HTML table:
+	toc.document.clear();
+	toc.document.write("<html>\n<head>\n<title>ToC</title>\n</head>\n<body bgcolor=\"" + backColor + "\">\n<table border=0 cellspacing=1 cellpadding=0>\n<tr>\n<td colspan=" + (nCols+1) + "><a href=\"javaScript:history.go(0)\" onMouseDown=\"parent.reDisplay('" + tocTab[0][0] + "',0,0)\" style=\"font-family: " + fontTitle + "; font-weight:bold; font-size:" + textSizes[0] + "em; color: " + titleColor + "; text-decoration:none\">" + tocTab[0][1] + "</a></td></tr>\n<tr>");
+
+// This is for defining the number of columns of the ToC table and the width of the last one. The first cells of each following row shall be empty or contain the heading symbol, the last ones are reserved for displaying the heding's text:
+	for (k=0; k<nCols; k++) {
+		toc.document.write("<td>&nbsp;</td>");
+	}
+	toc.document.write("<td width=240>&nbsp;</td></tr>");
+
+//	currentLevel = the level of the current heading:
+	var currentNumArray = currentNumber.split(".");
+	var currentLevel = currentNumArray.length-1;
+
+// currentIndex = Current heading's index in the tocTab array:
+	var currentIndex = null;
+	for (i=0; i<tocTab.length; i++) {
+		if (tocTab[i][0] == currentNumber) {
+			currentIndex = i;
+			break;
+		}
+	}
+// If currentNumber was not found in tocTab: No action.
+	if (currentIndex == null) return false;
+	
+// currentIsExpanded = Expand/Collaps-state of the current heading:
+	if (currentIndex < tocTab.length-1) {
+		nextLevel = tocTab[currentIndex+1][0].split(".").length-1;
+		currentIsExpanded = nextLevel > currentLevel && toDisplay[currentIndex+1];
+	} 
+	else currentIsExpanded = false;
+
+// Determining the new URL and target (if given) of the current heading
+	theHref = (noLink) ? "" : tocTab[currentIndex][2];
+	theTarget = tocTab[currentIndex][3];
+
+// ***************************************
+// 1st loop over the tocTab entries: Determining which heading to display:
+// ***************************************
+	for (i=1; i<tocTab.length; i++) {
+
+// Nothing to do if the tocChange parameter is set to 0. If it is set to 1 or 2...
+		if (tocChange) {
+			thisNumber = tocTab[i][0];
+			thisNumArray = thisNumber.split(".");
+			thisLevel = thisNumArray.length-1;
+// isOnPath = this heading is on the path to the current heading in the ToC hierarchy or a sibling of such a heading:
+			isOnPath = true;
+			if (thisLevel > 0) {
+				for (j=0; j<thisLevel; j++) {
+					isOnPath = (j>currentLevel) ? false : isOnPath && (thisNumArray[j] == currentNumArray[j]);
+				}
+			} 
+// By the following, the headings on the path to the current heading and the siblings of such  headings (isOnPath==true, see above) will be displayed anyway. If the tocChange parameter is set to 1 no other heading will be displayed. If it is set to a number greater than 1 the headings that have been displayed before will additionally be displayed again.  
+			toDisplay[i] = (tocChange == 1) ? isOnPath : (isOnPath || toDisplay[i]);
+
+// Now let's perform the expand/collaps mechanism: If the heading is a descendant of the current heading it's next display depends on wether the current heading was expanded or collapsed. If it was expanded the descendants have not to be displayed this time, otherwise only the childs has to be displayed but not the grandchildren, great-grandchildren etc.. Remember that currentIsExpanded says wether the current heading was expanded or not. The if-clause is a criteria for being a descendant of the current heading. If it's a descendant and thisLevel == currentLevel+1 it's a child.
+			if (thisNumber.indexOf(currentNumber+".")==0 && thisLevel > currentLevel) { 		
+				if (currentIsExpanded) toDisplay[i] = false;
+				else toDisplay[i] = (thisLevel == currentLevel+1); 
+			}
+		} 
+	} // End of loop over the tocTab
+
+// ***************************************
+// 2nd loop over the tocTab entries: Displaying the headings:
+// ***************************************
+	var scrollY=0, addScroll=tocScroll; 
+	for (i=1; i<tocTab.length; i++) {
+		if (toDisplay[i]) {
+			thisNumber = tocTab[i][0];
+			thisNumArray = thisNumber.split(".");
+			thisLevel = thisNumArray.length-1;
+			isCurrent = (i == currentIndex);
+
+// Setting the heading's symbol depending on whether this heading is expanded or not or if it is a leaf. It is expanded if the next heading has a greater level than this one AND has to be displayed: 
+			if (i < tocTab.length-1) {
+				nextLevel = tocTab[i+1][0].split(".").length-1;
+				img = (thisLevel >= nextLevel) ? "leaf" : ((toDisplay[i+1]) ? "minus" : "plus");
+			} 
+			else img = "leaf"; // The last heading is always a leaf.
+
+// If the scoll parameter is set true than increment the scrollY value:
+			if (addScroll) scrollY+=((thisLevel<2)?mdi:sml)*25;
+			if (isCurrent) addScroll=false;
+
+// thisTextColor = the text color of this heading
+			if (noLink)
+				thisTextColor = (thisNumber==oldCurrentNumber) ? currentColor:((thisNumber==oldLastVisitNumber) ? lastVisitColor:normalColor);
+			else thisTextColor = (thisNumber==currentNumber) ? currentColor:((thisNumber==oldCurrentNumber) ? lastVisitColor:normalColor);
+
+// Now writing this ToC line, i.e. a table row...:			
+			toc.document.writeln("<tr>");
+
+// ...first some empty cells for the line indent depending on the level of this heading...:
+			for (k=1; k<=thisLevel; k++) {
+				toc.document.writeln("<td>&nbsp;</td>");
+			}
+
+// ...then the hading symbol and the heading text each with a javaScript link caling just this function reDisplay again: 
+			toc.document.writeln("<td valign=top><a href=\"javaScript:history.go(0)\" onMouseDown=\"parent.reDisplay('" + thisNumber + "'," + tocBehaviour[0] + "," + tocLinks[0] + ",event)\"><img src=\"Images/" + img + ".gif\" width=13 height=12 border=0></a></td> <td colspan=" + (nCols-thisLevel) + "><a href=\"javaScript:history.go(0)\" onMouseDown=\"parent.reDisplay('" + thisNumber + "'," + tocBehaviour[1] + "," + tocLinks[1] + ",event)\" style=\"font-family: " + fontLines + ";" + ((thisLevel<=mLevel)?"font-weight:bold":"") +  "; font-size:" + ((thisLevel<=mLevel)?mdi:sml) + "em; color: " + thisTextColor + "; text-decoration:none\">" + tocTab[i][1] + "</a></td></tr>");
+		}
+	} // End of loop over the tocTab
+
+// ***************************************
+// Closing the ToC document, scrolling its frame window and displaying new content in the content frame or in the top window if required 
+// ***************************************
+
+// Updating the global variables oldCurrentNumber and oldLastVisitNumber. See above for its definition
+	if (!noLink) { 
+		oldLastVisitNumber = oldCurrentNumber;
+		oldCurrentNumber = currentNumber;
+	}
+
+// Closing the ToC table and the document
+	toc.document.writeln("</table>\n</body></html>");
+	toc.document.close();
+
+// Scrolling the ToC if required
+	if (tocScroll) toc.scroll(0,scrollY);
+	
+// Setting the top or content window's location if required
+	if (theHref) 
+		if (theTarget=="top") top.location.href = theHref;
+		else if (theTarget=="parent") parent.location.href = theHref;
+		else if (theTarget=="blank") open(theHref,"");
+		else content.location.href = theHref;
+}
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery2/exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/exit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/exit.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,26 @@
+# packages/lorsm/www/delivery/exit.tcl
+
+ad_page_contract {
+    
+    Student tracking exit
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-25
+    @arch-tag 04aa013e-2a53-45eb-825d-d576ea35cd14
+    @cvs-id $Id: exit.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    track_id:integer
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+# stamps the time when leaving the delivery environment
+
+if {$track_id != 0} {
+    lorsm::track::exit -track_id $track_id
+}
+
+# redirects
+ad_returnredirect $return_url
Index: openacs-4/packages/lorsm/www/delivery2/header.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/header.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/header.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,32 @@
+<master>
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+
+<link rel="stylesheet" type="text/css" href="/resources/acs-templating/lists.css" media="all">
+<link rel="stylesheet" type="text/css" href="/resources/acs-templating/forms.css" media="all">
+<link rel="stylesheet" type="text/css" href="/resources/dotlrn/dotlrn-master.css" media="all">
+<script src="/resources/acs-subsite/core.js" language="javascript"></script>
+</head>
+<body border="0">
+ <!-- Header Begin -->
+
+  <table width="100%" cellpadding=0 cellspacing=0> 
+   <tr>
+      <td class="header-logo">
+        <img class="header-img" border="0" src="/dotlrn/resources/logo" alt="Header Logo">
+      </td>
+
+      <td><span class="header-text">@course_name@<br></span></td>
+
+      <td align="right" class="header-text">
+        <a href="@exit_url@" target="_top">Exit Course</a>
+        <img class="header-img" src="/resources/dotlrn/spacer.gif" height="1" width="10">
+        <a href="@logout_url@" target="_top">Log Out</a>
+        <img class="header-img" src="/resources/dotlrn/spacer.gif" height="1" width="10">
+      </td>
+    </tr>
+    </table>
+
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery2/header.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/header.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/header.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,24 @@
+# packages/lorsm/www/delivery/header.tcl
+
+ad_page_contract {
+    
+    Course Delivery Header
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag 3e231cd4-395e-428e-a3ba-ca52cf73a0dd
+    @cvs-id $Id: header.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    course_name:notnull
+    track_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+set return_url [dotlrn_community::get_community_url [dotlrn_community::get_community_id]]
+
+
+# urls
+set exit_url "exit?[export_vars {return_url track_id}]"
+set logout_url "exit?return_url=/register/logout&[export_vars track_id]"
Index: openacs-4/packages/lorsm/www/delivery2/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/index.adp	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,19 @@
+<html>
+<head>
+<title>@course_name@</title>
+<script language="JavaScript">
+<!--
+@jsfile;noquote@
+-->
+</script>
+<script language="JavaScript" src="tocParas.js"></script>
+<script language="JavaScript" src="displayToc.js"></script>
+</head>
+
+<frameset cols="200,*" border=0 onload="reDisplay('0',true)">
+<frame src="blank.htm" name="toc">
+<frame src="body?course_name=@course_name;noquote@" name="content">
+</frameset>
+
+
+</html>
Index: openacs-4/packages/lorsm/www/delivery2/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/index.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,222 @@
+# packages/lorsm/www/delivery/index.tcl
+
+ad_page_contract {
+    
+    Course Delivery Table of Content
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-04-09
+    @arch-tag 553390f0-450e-48db-99f0-c5dcb17978b8
+    @cvs-id $Id: index.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    man_id:integer,notnull  
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set package_id [ad_conn package_id]
+
+# In order to share courses across classes, we need to share
+# file-storage objects across file-storage instances. This has been
+# proven to be really tricky. But here we pass the fs_package_id for
+# the current community, so we don't have to have permissions for
+# other instances of file-storages of other classes.  See
+# documentation for further details.
+
+set community_id [dotlrn_community::get_community_id]
+set fs_local_package_id [site_node_apm_integration::get_child_package_id \
+		       -package_id [dotlrn_community::get_package_id $community_id] \
+		       -package_key "file-storage"\
+		      ]
+
+
+if {[db_0or1row manifest "
+    select 
+           cp.man_id,
+           cp.course_name,
+           cp.identifier,
+           cp.version,
+           text 'Yes' as hello,
+           case
+              when hasmetadata = 't' then 'Yes'
+              else 'No'
+           end as man_metadata,
+           case 
+              when isscorm = 't' then 'Yes'
+              else 'No'
+           end as isscorm,
+           cp.fs_package_id,
+           cp.folder_id,
+	   acs.creation_user,
+	   acs.creation_date,
+	   acs.context_id
+    from
+           ims_cp_manifests cp, acs_objects acs
+    where 
+           cp.man_id = acs.object_id
+	   and  cp.man_id = :man_id
+           and  cp.parent_man_id = 0"]} {
+
+    
+    # Course Name
+    if {[empty_string_p $course_name]} {
+	set course_name "No course Name"
+    } 
+
+    # Version
+    if {[empty_string_p $version]} {
+	set version "No version Available"
+    } 
+    
+    # Instance
+    set instance [apm_package_key_from_id $fs_package_id]
+
+    # Folder
+    set folder [apm_package_url_from_id $fs_package_id]?[export_vars folder_id]
+
+    # Student tracking
+    set package_id [ad_conn package_id]
+    set community_id [dotlrn_community::get_community_id]
+    set user_id [ad_conn user_id]
+
+    if {[lorsm::track::istrackable -course_id $man_id -package_id $package_id]} {
+
+	set track_id [lorsm::track::new \
+			  -user_id $user_id \
+			  -community_id $community_id \
+			  -course_id $man_id]
+    } else {
+	set track_id 0
+    }
+
+} else {
+
+    set display 0
+    
+}
+
+
+
+db_foreach organizations {
+    select 
+       org.org_id,
+       org.title as org_title,
+       org.hasmetadata,
+       tree_level(o.tree_sortkey) as indent
+    from
+       ims_cp_organizations org, acs_objects o
+    where
+       org.org_id = o.object_id
+     and
+       man_id = :man_id
+    order by
+       org_id
+} {
+
+    set indent [expr $indent +1]
+
+    db_foreach sql {		   
+        SELECT
+ 		(tree_level(tree_sortkey) - :indent) as indent,
+		i.item_id,
+                i.title as item_title
+        FROM 
+		acs_objects o, ims_cp_items i
+	WHERE 
+		o.object_type = 'ims_item'
+           AND
+		i.org_id = :org_id
+	   AND
+		o.object_id = i.item_id
+	   AND 
+	   	EXISTS
+		(select 1
+		   from acs_object_party_privilege_map p
+		  where p.object_id = i.item_id 
+		    and p.party_id = :user_id
+		    and p.privilege = 'read')
+
+        ORDER BY 
+                o.object_id, tree_sortkey
+    } {
+	lappend js_file [list $indent $item_id $item_title]
+    }
+}
+
+
+if {![exists_and_not_null js]} {
+
+    set js [list]
+    # the first element must be blank
+    lappend js [list 0 0 "Course Index"]
+
+}
+
+foreach one $js_file {
+    lappend js [list [lindex $one 0] [lindex $one 1] [lindex $one 2]]
+#    ns_write "[lindex $one 0] [lindex $one 1] [lindex $one 2]\n"
+}
+
+
+set counter 0
+set counterx 0
+set maxcols 0
+set jsfile  "var tocTab = new Array();\n"
+
+foreach one $js {
+
+    if {[lindex $one 0] != 0 } {
+
+	for {set x [lindex [lindex $js [expr $counter -1]] 0]} {$x < [lindex $one 0]} {incr x} {
+	    set counterx [concat $counterx.$x]
+	} 
+	
+	for {set x [lindex [lindex $js [expr $counter -1]] 0]} {$x > [lindex $one 0]} {set x [expr $x -1]} {
+	    
+	    set counterx [string range $counterx 0 [expr [string length $counterx] - [expr 1 + [string length [file extension $counterx]]]]]
+	    
+	}
+	
+	
+	if { [lindex [lindex $js [expr $counter -1]] 0] >= [lindex $one 0]} {
+	    
+	    set subnum [string range $counterx [expr  [string length $counterx] -1]  [string length $counterx]]
+	    set subnum [expr $subnum + 1]
+	    set counterx [string replace $counterx [expr  [string length $counterx] -1]  [string length $counterx] $subnum]
+	    
+	}
+	
+	
+    } else {
+	set counterx $counter
+    }
+
+    set item_id [lindex $one 1]    
+
+    if {[lindex $one 1] == 0} {
+
+	set url ""
+	
+    } else {
+
+	set url [export_vars -base record-view {man_id item_id}]
+
+    }
+
+    set jsfile [concat $jsfile  "tocTab\[$counter\] = new Array (\"$counterx\", \"[lindex $one 2]\", \"$url\"); \n"]
+    incr counter
+
+    # maxcols
+
+    if {[lindex $one 0] > $maxcols} {
+	set maxcols [lindex $one 0]
+    }
+    
+}
+
+set jsfile [concat $jsfile "var nCols = [expr $maxcols + 1];"]
+
+
+#ns_write $jsfile
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery2/record-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/record-view.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/record-view.tcl	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,85 @@
+# packages/lorsm/www/delivery4/record-view.tcl
+
+ad_page_contract {
+    
+    records a view for this ims_cp_item and redirects to its url
+    
+    @author Deds Castillo (deds@i-manila.com.ph)
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-04
+    @arch-tag: a7aba567-c4c1-4f1c-b5f3-ebc1ab277515
+    @cvs-id $Id: record-view.tcl,v 1.1 2004/09/04 14:51:26 ernieg Exp $
+} {
+    item_id:notnull
+    man_id:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set viewer_id [ad_conn user_id]
+
+set views [views::record_view -object_id $item_id -viewer_id $viewer_id]
+
+set revision_id [item::get_best_revision $item_id]
+
+db_1row manifest_info "select fs_package_id, folder_id from ims_cp_manifests where man_id = :man_id"
+set content_root [fs::get_root_folder -package_id $fs_package_id]
+
+set url2 "[db_string select_folder_key {select key from fs_folders where folder_id = :folder_id}]/"
+
+set href [db_string href "select href from ims_cp_resources r, ims_cp_items_to_resources ir where ir.item_id = :item_id and ir.res_id = r.res_id" -default ""]
+
+db_1row item_info "select title from ims_cp_items where item_id = :item_id"
+
+set fs_item_id [fs::get_item_id -folder_id $folder_id -name $href]
+
+# If no fs_item_id, this item is probably a folder
+# Else deliver the page
+if { ![empty_string_p $fs_item_id] } {
+
+    set fs_revision_id [item::get_best_revision $fs_item_id]
+    set fs_item_mime [item::get_mime_info $fs_revision_id mime_info]
+
+
+    if { ![string equal -length 4 "text" $mime_info(mime_type)] } {
+
+	# It's a file.
+	cr_write_content -revision_id $fs_revision_id
+	ad_script_abort
+
+    } else {
+	
+	set href $url2$href
+	regsub -all {//} $href {/} href
+	set imsitem_id $item_id
+
+	#    lorsm::set_content_root content_root
+	lorsm::set_ims_item_id $item_id
+
+	# we use nsv variables to set the delivery environment this is a
+	# temporary solution until we find something a bit better
+
+	if {[nsv_exists delivery_vars [ad_conn session_id]]} {
+	    nsv_unset delivery_vars [ad_conn session_id]
+	}
+
+	nsv_set delivery_vars [ad_conn session_id] [list]
+
+	nsv_lappend delivery_vars [ad_conn session_id] $content_root
+
+	ad_returnredirect [export_vars -base ../delivery/view/$href {imsitem_id} ]
+    }
+} else {
+    lorsm::set_ims_item_id $item_id
+    
+    # We have no content, so wipe item_id from the lorsm namespace
+    # This fixes a strange bug if you click a 'no content' menu item
+    # repeatedly and different content appears!
+    if { [info exists lorsm::item_id] } {
+	set lorsm::item_id ""
+    }
+
+    rp_internal_redirect -absolute_path [acs_root_dir]/templates/lorsm-default
+}
Index: openacs-4/packages/lorsm/www/delivery2/tocParas.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/tocParas.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/tocParas.js	4 Sep 2004 14:51:26 -0000	1.1
@@ -0,0 +1,16 @@
+/* These are the parameters to define the appearance of the ToC. */
+var
+	showNumbers = true, 		// display the ordering strings: yes=true | no=false
+	backColor = "#6C9A83",		// background color of the ToC 
+	normalColor = "#FFFFFF",	// text color of the ToC headlines
+	lastVisitColor = "#FFFFBB",	// text color of the line last visited
+	currentColor = "#FFFF00",	// text color of the actual line just clicked on
+	titleColor = "#FFFFFF",		// text color of the title "Table of Contents"
+	mLevel = 1,					// number of levels minus 1 the headlines of which are presentet with large and bold fonts   
+	textSizes = new Array(1, 0.7, 0.6, 0.7, 0.6),			// font-size factors for: [0] the title "Table of Contents", [1] larger and bold fonts [2] smaller fonts if MS Internet Explorer [3] larger and bold fonts [4] smaller fonts if Netscape Navigator.
+	fontTitle = "Helvetica,Arial", // font-family of the title "Table of Contents"
+	fontLines = "Helvetica,Arial", // font-family of the headlines
+	tocScroll=true,				// Automatic scrolling of the ToC frame (true) or not(false)
+	tocBehaviour = new Array(1,0), // Indicates how the ToC shall change when clicking in the heading symbol (1st arg.) resp. in the heading text (2nd arg). Arg's meaning: 0 = No change, 1 = ToC changes with automatic collapsing, 2 = ToC changes with no automatic collapsing.
+	tocLinks = new Array(1,0);	// Indicates wether the content's location shall be changed when clicking in the heading symbol (1st arg.) resp. in the heading text (2nd arg). Arg's meaning: 1 = No, 0 = Yes. 
+	
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/delivery2/Images/leaf.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/Images/leaf.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery2/Images/minus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/Images/minus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery2/Images/plus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/Images/plus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery2/view/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/view/index-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/view/index-oracle.xql	4 Sep 2004 14:51:28 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="template_root">      
+      <querytext>
+
+      select content_template.get_root_folder from dual
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/lorsm/www/delivery2/view/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/view/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/view/index-postgresql.xql	4 Sep 2004 14:51:28 -0000	1.1
@@ -0,0 +1,15 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="template_root">      
+      <querytext>
+
+      select content_template__get_root_folder()
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/lorsm/www/delivery2/view/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery2/view/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery2/view/index.vuh	4 Sep 2004 14:51:28 -0000	1.1
@@ -0,0 +1,51 @@
+#################################################
+ad_page_contract {
+   
+    @author Unknown
+    @creation-date Unknown
+    @cvs-id $Id: index.vuh,v 1.1 2004/09/04 14:51:28 ernieg Exp $
+} {    
+    { imsitem_id "" }
+}
+
+#
+if {[info exists imsitem_id]} {
+    lorsm::set_ims_item_id $imsitem_id
+}
+
+# Get the paths
+set the_root [ns_info pageroot]
+set the_url [ad_conn path_info]
+set content_type "content_revision"
+
+# Get the IDs
+set content_root [lindex [nsv_get delivery_vars [ad_conn session_id]] 0]
+set imsitem_id [lorsm::get_ims_item_id]
+
+#ad_script_abort
+
+set template_root [db_string template_root ""]
+
+# Serve the page
+
+# DRB: Note that content::init modifies the local variable the_root, which is treated
+# as though it's been passed by reference.   This requires that the redirect treat the
+# path as an absolute path within the filesystem.
+
+if { [lorsm::init the_url the_root  $content_root $template_root public "" $content_type] } {
+
+    # we introduced our own template
+    rp_internal_redirect -absolute_path /home/ernieg/web/concord/templates/lorsm-default
+
+
+} else {
+  # ns_returnnotfound
+  set page "[ad_header {Content Item Not Found}]"
+  append page "<h3>Content Item Not Found</h3>"
+  append page "The requested item is not available for viewing.  "
+  append page "The item is either not available on this server or it is not in a publishable state  "
+  append page "Unpublished items can be viewed via the CMS interface if the CMS package is installed.<br>"
+  append page "[ad_footer]"
+  doc_return 200 text/html $page
+}
+
Index: openacs-4/packages/lorsm/www/export/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/export/Attic/index.vuh,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/export/index.vuh	22 Apr 2004 03:58:12 -0000	1.1
+++ openacs-4/packages/lorsm/www/export/index.vuh	4 Sep 2004 14:51:28 -0000	1.2
@@ -12,9 +12,15 @@
     {folder_id:integer,optional}
 }
 
+set user_id [ad_conn user_id]
+
+# check write permisssion to export the course
+
+
 # Based on Yun's file system exports
 
 if {[exists_and_not_null folder_id]} {
+    permission::require_write_permission -object_id $folder_id -creation_user $user_id
     set download_name [fs::get_file_system_safe_object_name -object_id $folder_id]
 
     # We get rid of spaces since they are annoying
Index: openacs-4/packages/lorsm/www/lib/repository-shared-courses.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/lib/Attic/repository-shared-courses.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/lib/repository-shared-courses.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,3 @@
+  <listtemplate name="d_courses"></listtemplate>
+
+  
Index: openacs-4/packages/lorsm/www/lib/repository-shared-courses.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/lib/Attic/repository-shared-courses.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/lib/repository-shared-courses.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,97 @@
+# packages/lorsm/www/lib/repository-shared-courses.tcl
+
+ad_page_contract {
+    
+     List all the shared courses in the repository
+     View shared courses
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-09
+    @arch-tag: 9dd389d3-195f-49ed-b610-ee893cde06d6
+    @cvs-id $Id: repository-shared-courses.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+    
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set title "Shared Courses"
+set context [list "Shared Courses"]
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id [ad_conn user_id]  \
+		 -community_id $community_id ]
+
+set com_url [dotlrn_community::get_community_url $community_id]
+
+template::list::create \
+    -name d_courses \
+    -multirow d_courses \
+    -html {width 50%} \
+    -key man_id \
+    -no_data "No Courses" \
+    -elements {
+        course_name {
+            label "Available Courses"
+            display_col course_name
+            link_url_eval {[export_vars -base $community_url/lorsm/shared/course-info {man_id fs_package_id folder_id}]}
+            link_html {title "Access Course"}
+
+        }
+        hasmetadata {
+            label "Metadata?"
+            link_url_eval {[export_vars -base $community_url/lorsm/md {ims_md_id}]}
+            link_html {title "See metadata" }
+	    html { align center }
+        }
+        creation_user {
+            label "Owner"
+            display_eval {[person::name -person_id $creation_user]}
+            link_url_eval {[acs_community_member_url -user_id $creation_user]}
+        }
+        creation_date {
+            label "Creation Date"
+            display_eval {[lc_time_fmt $creation_date "%x %X"]}
+        }
+        admin {
+            label "Course Info"
+	    display_eval {Info/View}
+            link_url_eval {[export_vars -base $community_url/lorsm/shared/course-info man_id]}
+            link_html {title "Info" class button}
+	    html { align center }
+        }
+    }
+
+
+db_multirow -extend { ims_md_id community_url } d_courses select_d_courses {
+    select 
+           cp.man_id,
+           cp.course_name,
+           cp.identifier,
+           cp.version,
+           case
+              when hasmetadata = 't' then 'Yes'
+              else 'No'
+           end as hasmetadata,
+           cp.fs_package_id,
+           cp.folder_id,
+	   acs.creation_user,
+	   acs.creation_date,
+	   acs.context_id
+    from
+           ims_cp_manifests cp, acs_objects acs
+    where 
+           cp.man_id = acs.object_id
+    and
+           cp.isshared = 't'
+    order by acs.creation_date desc
+} {
+    set ims_md_id $man_id
+    set community_url $com_url
+}
+ 
Index: openacs-4/packages/lorsm/www/md/general_title.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/general_title.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/md/general_title.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,29 @@
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<include src="../lib/md-record"
+    ims_md_id="@ims_md_id;noquote@"
+/>
+
+<hr>
+
+<h3>List of General Metadata Titles</h3>
+<blockquote>
+  <table cellspacing="2" cellpadding="2" border="0" width="50%">
+    <tr class="form-section">
+      <th colspan="2">General Metadata</th>
+    </tr>
+    <tr class="form-section">
+      <td class="form-section">Titles: </td>
+      <td><listtemplate name= "d_gen_titles"></listtemplate></td>
+    </tr>   
+
+  </table>
+</blockquote>
+<p>
+
+<h3>Add/Edit General Metadata Title</h3>
+<blockquote>
+ <formtemplate id="generalmd_title" style="standard-lars"></formtemplate>
+</blockquote>
Index: openacs-4/packages/lorsm/www/md/general_title.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/general_title.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/md/general_title.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,103 @@
+# packages/lorsm/www/md/general_title.tcl
+
+ad_page_contract {
+    
+    Add/Edit General MD Title
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-03
+    @arch-tag 1956d02e-511a-470c-81d0-c2857242651c
+    @cvs-id $Id: general_title.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+    ims_md_id:integer
+    ims_md_ge_ti_id:integer,optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+# set context & title
+if { ![ad_form_new_p -key ims_md_ge_ti_id]} {
+    set context [list "IMS Metadata Editor - General MD"]
+    set title "Edit General MD Title"
+} else {
+    set context [list "IMS Metadata Editor - General MD"]
+    set title "Add General MD Title"
+}
+
+# Form
+
+ad_form -name generalmd_title \
+    -cancel_url index \
+    -mode edit \
+    -form {
+
+    ims_md_ge_ti_id:key(ims_md_general_title_seq)
+
+    {title_l:text,nospell,optional
+	{section "Add/Edit General MD Title"}
+        {html {size 10}}
+	{help_text "i.e.: 'en_AU' for Australian English"}
+        {label "Language:"}
+    }
+    
+    {title_s:text,nospell
+        {html {size 50}}
+        {label "Title:"}
+    }
+
+    {ims_md_id:text(hidden)
+    }
+
+} -select_query  {select * from ims_md_general_title where ims_md_ge_ti_id = :ims_md_ge_ti_id and ims_md_id = :ims_md_id
+
+} -edit_data {
+        db_dml do_update "
+            update ims_md_general_title
+            set title_l = :title_l, title_s = :title_s
+            where ims_md_ge_ti_id = :ims_md_ge_ti_id "
+} -new_data {
+        db_dml do_insert "
+            insert into ims_md_general_title (ims_md_ge_ti_id, ims_md_id, title_l, title_s)
+            values
+            (:ims_md_ge_ti_id, :ims_md_id, :title_l, :title_s)"
+
+} -after_submit {
+    ad_returnredirect [export_vars -base "general_title" {ims_md_id}]
+        ad_script_abort
+} 
+
+# General Title
+template::list::create \
+    -name d_gen_titles \
+    -multirow d_gen_titles \
+    -no_data "No Titles Available" \
+    -html { align right style "width: 100%;" } \
+    -elements {
+        title_l {
+            label ""
+        }
+        title_s {
+            label ""
+        }
+        export {
+            display_eval {\[Edit\]}
+            link_url_eval { [export_vars -base "general_title" {ims_md_ge_ti_id ims_md_id}] }
+            link_html {title "Edit Record "}
+            html { align center }
+        }
+    }
+
+db_multirow d_gen_titles select_ge_titles {
+    select title_l,
+           title_s, 
+           ims_md_ge_ti_id,
+           ims_md_id
+    from 
+           ims_md_general_title
+    where
+           ims_md_id = :ims_md_id
+} {
+    set item_url [export_vars -base "item" { ims_md_id }]
+}
+
Index: openacs-4/packages/lorsm/www/md/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/index.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/md/index.adp	22 Apr 2004 03:58:13 -0000	1.1
+++ openacs-4/packages/lorsm/www/md/index.adp	4 Sep 2004 14:51:29 -0000	1.2
@@ -5,3 +5,12 @@
 <include src="../lib/md-record"
     ims_md_id="@ims_md_id;noquote@"/>
 
+<p>
+<if @write_p@ eq 1>
+ You can <a href="@link@">upload a XML LOM metadata node</a> to add/change the metadata for this record.
+</if>
+<br>
+<if @read_p@ eq 1>
+ Here's a link to the actual element
+</if>
+
Index: openacs-4/packages/lorsm/www/md/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/md/Attic/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/lorsm/www/md/index.tcl	22 Apr 2004 03:58:13 -0000	1.1
+++ openacs-4/packages/lorsm/www/md/index.tcl	4 Sep 2004 14:51:29 -0000	1.2
@@ -11,4 +11,9 @@
 
 # set context
 set context [list "IMS Metadata Editor"]
-set title "IMS Metadata Editor"
\ No newline at end of file
+set title "IMS Metadata Editor"
+set link [export_vars -base "md_upload" ims_md_id]
+
+set write_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege write]
+
+set read_p [permission::permission_p -party_id [ad_conn user_id] -object_id $ims_md_id -privilege read]
Index: openacs-4/packages/lorsm/www/shared/add-shared-course-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/add-shared-course-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/add-shared-course-2.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,51 @@
+# packages/lorsm/www/shared/add-shared-course-2.tcl
+
+ad_page_contract {
+    
+    Adds an existing course to a .LRN class
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-13
+    @arch-tag: efa8621f-daa6-4743-9711-28a4195232ec
+    @cvs-id $Id: add-shared-course-2.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+    man_id:integer
+    return_url
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+set class_key [dotlrn_community::get_community_type_from_community_id $community_id]
+
+# check admin permisssion for the community
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id $user_id  \
+		 -community_id $community_id ]
+
+# check if the course is actually shared
+if {[db_string isshared {select isshared from ims_cp_manifests where man_id = :man_id}] == "f"} {
+    # if it ain't complain and quit
+    ad_complain "The course you are trying to add to your class is not shared."
+
+}
+
+# check if the course is already added as course for this class
+
+if {![db_0or1row exists {select man_id, lorsm_instance_id from ims_cp_manifest_class where man_id = :man_id \
+			     and lorsm_instance_id = :package_id \
+			     and community_id = :community_id}]} {
+    ad_complain "The course [lorsm::get_course_name -manifest_id $man_id], is already part of your class"
+
+
+}
+
+db_dml add-course {insert into ims_cp_manifest_class \
+		       (man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) \
+		       values \
+		       (:man_id, :package_id, :community_id, :class_key, 't', 'f')}
+
+ad_returnredirect $return_url
\ No newline at end of file
Index: openacs-4/packages/lorsm/www/shared/add-shared-course.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/add-shared-course.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/add-shared-course.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,13 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+<h2>You are about to add @course_name@ to your class.</h2>
+<p>
+Confirm?
+<form action="add-shared-course-2">
+    <input type="hidden" name="return_url" value="@return_url@">
+    <input type="hidden" name="man_id" value="@man_id@">
+    <input type="submit" name="submit" value="Add @course_name@ to my class">
+</form>
+
Index: openacs-4/packages/lorsm/www/shared/add-shared-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/add-shared-course.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/add-shared-course.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,51 @@
+# packages/lorsm/www/shared/add-shared-course.tcl
+
+ad_page_contract {
+    
+    Adds an existing shared course to a .LRN class
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-12
+    @arch-tag: 9f1edd88-ff55-4328-8f3b-6d014351e48a
+    @cvs-id $Id: add-shared-course.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+   man_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+set class_key [dotlrn_community::get_community_type_from_community_id $community_id]
+
+# check admin permisssion for the community
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id $user_id  \
+		 -community_id $community_id ]
+
+# check if the course is actually shared
+if {[db_string isshared {select isshared from ims_cp_manifests where man_id = :man_id}] == "f"} {
+    # if it ain't complain and quit
+    ad_complain "The course you are trying to add to your class is not shared."
+
+}
+
+# check if the course is already added as course for this class
+
+if {![db_0or1row exists {select man_id, lorsm_instance_id from ims_cp_manifest_class where man_id = :man_id \
+			     and lorsm_instance_id = :package_id \
+			     and community_id = :community_id}]} {
+    ad_complain "The course [lorsm::get_course_name -manifest_id $man_id], is already part of your class"
+
+
+}
+
+set title "Add Course Confirmation"
+set course_name [lorsm::get_course_name -manifest_id $man_id]
+
+set context [list [list [export_vars -base .] "Shared Courses"] [list [export_vars -base course-info {man_id}] "Preview Course: $course_name"] "Confirmation"]
+
+set return_url [site_node::get_url_from_object_id -object_id $package_id]
+
Index: openacs-4/packages/lorsm/www/shared/course-info.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/course-info.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/course-info.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,123 @@
+<master>
+  <property name="title">@title;noquote@</property>
+  <property name="context">@context;noquote@</property>
+
+  
+<blockquote>
+<table class="list" cellpadding="3" cellspacing="1" width="70%">
+    <tr class="list-header">
+        <th class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" colspan="2">
+        Course Information
+        </th>
+    </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Course Name:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0; font-weight: bold;">
+                @course_name;noquote@
+              </td>
+          </tr>
+              <tr class="list-even">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Version:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0">
+                  @version;noquote@
+              </td>
+          </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Metadata?:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0">
+         	<if @man_metadata@ eq "Yes">
+	           <a href="md/?ims_md_id=@man_id@">Yes</a>
+                </if>
+	        <else>
+                  No
+                </else>
+              </td>
+          </tr>
+              <tr class="list-even">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Identifier:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                @identifier@
+              </td>
+          </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Is SCORM?:
+              </td>
+              <td 
+         	<if @isscorm@ eq "Yes">
+	           class="list" style="font-weight: bold;"
+                </if>
+	        <else>
+                   class="list"
+                </else>
+                valign="top" align="left">@isscorm;noquote@
+              </td>
+          </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Created By:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                @created_by@
+              </td>
+          </tr>
+              <tr class="list-even">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Date:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                @creation_date;noquote@
+              </td>
+          </tr>
+              <tr class="list-odd">
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Submanifests:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                @submanifests@
+              </td>
+          </tr>
+              <tr class="list-even last">
+        <if @active@ eq 0>
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%">
+                Add course to my class now:
+              </td>
+              <td class="list" valign="top" style="background-color: #f0f0f0" width="80%">
+                     <div style="float: right;">
+	                  <a href="@shared_url@" class="button">Add Course</a>
+                     </div>
+              </td>
+        </if>
+        <else>
+              <td class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" width="20%" colspan="2">
+                  Course already part of your class
+              </td>
+        </else>
+          </tr>
+    <tr class="list-header">
+        <th class="list" valign="top" style="background-color: #e0e0e0; font-weight: bold;" colspan="2">
+         Organizations
+        </th>
+    </tr>
+              <tr class="list-odd">
+              <td  valign="top" style="background-color: #f0f0f0; font-weight: bold;" colspan="2">
+
+              </td>
+          </tr>
+              <tr class="list-odd">
+              <td  valign="top" style="background-color: #f0f0f0; font-weight: bold;" colspan="2">
+          @orgs_list;noquote@
+              </td>
+          </tr>
+</table>
+</blockquote>
+
+<hr>
Index: openacs-4/packages/lorsm/www/shared/course-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/course-info.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/course-info.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,232 @@
+# packages/lorsm/www/shared/course-info.tcl
+
+ad_page_contract {
+    
+     Previews course
+     
+     @author Ernie Ghiglione (ErnieG@mm.st)
+     @creation-date 2004-07-09
+     @arch-tag: 9687443a-686e-4784-9702-5c00ee0bdc88
+     @cvs-id $Id: course-info.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+ } {
+     man_id:integer
+} -properties {
+} -validate {
+} -errors {
+}
+
+
+set context [list [list [export_vars -base .] "Shared Courses"] "Preview Course"]
+set title "Preview Course"
+
+# In order to share courses across classes, we need to share
+# file-storage objects across file-storage instances. This has been
+# proven to be really tricky. But here we pass the fs_package_id for
+# the current community, so we don't have to have permissions for
+# other instances of file-storages of other classes.  See
+# documentation for further details.
+
+set community_id [dotlrn_community::get_community_id]
+set fs_local_package_id [site_node_apm_integration::get_child_package_id \
+		       -package_id [dotlrn_community::get_package_id $community_id] \
+		       -package_key "file-storage"\
+		      ]
+
+# Checks whether this course is already in use on this community
+
+
+set active [db_0or1row check "
+    select
+          man_id, 
+          community_id, 
+          lorsm_instance_id
+    from
+          ims_cp_manifest_class
+    where
+          man_id = :man_id
+    and
+          community_id = :community_id"]
+
+
+
+if {[db_0or1row manifest "
+    select 
+           cp.man_id,
+           cp.course_name,
+           cp.identifier,
+           cp.version,
+           text 'Yes' as hello,
+           case
+              when hasmetadata = 't' then 'Yes'
+              else 'No'
+           end as man_metadata,
+           case 
+              when isscorm = 't' then 'Yes'
+              else 'No'
+           end as isscorm,
+	   cp.isshared,
+	   acs.creation_user,
+	   acs.creation_date,
+	   acs.context_id
+    from
+           ims_cp_manifests cp, acs_objects acs
+    where 
+           cp.man_id = acs.object_id
+	   and  cp.man_id = :man_id
+           and  cp.parent_man_id = 0"]} {
+
+    # Sets the variable for display. 
+    set display 1
+    
+    # Course Name
+    if {[empty_string_p $course_name]} {
+	set course_name "No course Name"
+    } 
+
+    # Version
+    if {[empty_string_p $version]} {
+	set version "No version Available"
+    } 
+    
+    # Created By
+    set created_by [person::name -person_id $creation_user]
+
+    # Creation Date
+    set creation_date [lc_time_fmt $creation_date "%x %X"]
+
+    # Check for submanifests
+    if {[db_0or1row submans "
+           select 
+                count(*) as submanifests 
+           from 
+                ims_cp_manifests 
+           where 
+                man_id = :man_id
+              and
+                parent_man_id = :man_id"]} {
+    } else {
+	set submanifests 0
+    }
+
+
+} else {
+
+    set display 0
+    
+}
+
+
+append orgs_list "<table class=\"list\" cellpadding=\"3\" cellspacing=\"1\" width=\"100%\">"
+append orgs_list "<tr class=\"list-header\">
+        <th class=\"list\" valign=\"top\" style=\"background-color: #e0e0e0; font-weight: bold;\">Organization</th>
+        <th class=\"list\" valign=\"top\" style=\"background-color: #e0e0e0; font-weight: bold;\">Metadata?</th>
+        <th class=\"list\" valign=\"top\" style=\"background-color: #e0e0e0; font-weight: bold;\">Items</th>
+    </tr>
+"
+db_foreach organizations {
+    select 
+       org.org_id,
+       org.title as org_title,
+       org.hasmetadata,
+       tree_level(o.tree_sortkey) as indent
+    from
+       ims_cp_organizations org, acs_objects o
+    where
+       org.org_id = o.object_id
+     and
+       man_id = :man_id
+    order by
+       org_id
+} {
+
+
+    append orgs_list "<tr class=\"list-even\"><td valign=\"top\" width=\"20%\">$org_title</td><td valign=\"top\" align=\"center\" width=\"5%\">$hasmetadata</td><td>"
+
+    set indent [expr $indent +1]
+    set missing_text "Nothing here"
+    set return_url [export_vars -base [ns_conn url] man_id]
+    set table_extra_html { width="100%" }
+   
+    set track_id 0
+    set table_extra_vars {return_url fs_local_package_id track_id}
+    set table_def {
+	{ title "" "no_sort" "<td>$indent[if {![empty_string_p $identifierref]} {set href \"<a href='[lorsm::fix_href2 -item_id $item_id -identifierref $identifierref -fs_package_id $fs_package_id -fs_local_package_id $fs_local_package_id -folder_id $folder_id -type $type -track_id $track_id]' target='body' title='$item_title'>$item_title</a>\"} else {set href $item_title}]</td>" }
+	{ metadata "Metadata?" "no_sort" "<td align=\"center\">[if {$hasmetadata == \"f\"} {set hasmetadata \"No\"} else {set hasmetadata \"<a href=md/?ims_md_id=$item_id>Metadata\"}]</a></td>" }
+	{ type   "Type" "no_sort" "<td align=\"center\">$type</td>" }
+    }
+
+    set table_item [ad_table -Tmissing_text $missing_text -Textra_vars $table_extra_vars  -Theader_row_extra "style=\"background-color: #e0e0e0; font-weight: bold;\" class=\"list-header\"" -Ttable_extra_html $table_extra_html blah {
+        SELECT
+		o.object_id,
+ 		repeat('&nbsp;', (tree_level(tree_sortkey) - :indent)* 3) as indent,
+		i.item_id,
+                i.title as item_title,
+                i.hasmetadata,
+                i.org_id,
+                case
+                    when i.isshared = 'f' then (
+						'false'
+						) 
+	            else 'true'
+                end as isshared,
+                case 
+		    when i.identifierref <> '' then (
+						     SELECT
+						      res.href 
+						     FROM
+						      ims_cp_items_to_resources i2r, 
+						      ims_cp_resources res 
+						     WHERE
+						       i2r.res_id = res.res_id
+						      AND
+						       i2r.item_id = i.item_id 
+)
+                  else ''
+                end as identifierref,
+                case 
+		    when i.identifierref <> '' then (
+						     SELECT
+						      res.type
+						     FROM
+						      ims_cp_items_to_resources i2r, 
+						      ims_cp_resources res 
+						     WHERE
+						       i2r.res_id = res.res_id
+						      AND
+						       i2r.item_id = i.item_id 
+)
+                  else ''
+                end as type,
+                m.fs_package_id,
+	        m.folder_id,
+	        m.course_name
+        FROM 
+		acs_objects o, ims_cp_items i, ims_cp_manifests m
+	WHERE 
+		o.object_type = 'ims_item'
+           AND
+		i.org_id = :org_id
+	   AND
+		o.object_id = i.item_id
+           AND
+                m.man_id = :man_id
+        ORDER BY 
+                tree_sortkey, object_id
+
+
+    } $table_def]
+
+    append orgs_list "$table_item"
+
+
+    append orgs_list "</td></tr>"
+
+} if_no_rows {
+    append orgs_list "<tr class=\"list-odd\"><td></td></tr>"
+}
+
+append orgs_list "</table>"
+
+set shared_url  [export_vars -base add-shared-course {man_id}]
+
+
Index: openacs-4/packages/lorsm/www/shared/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/index.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,15 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+<table width="100%">
+  <tr>
+    <td valign="top">
+        <h2>Shared Courses in the Repository</h2>
+     </td>
+  <tr>
+   <td>
+	  <include src="../lib/repository-shared-courses">
+   </td>
+ </tr>
+</table>
Index: openacs-4/packages/lorsm/www/shared/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/shared/Attic/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/shared/index.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,20 @@
+# packages/lorsm/www/shared/index.tcl
+
+ad_page_contract {
+    
+    View shared courses
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-07-09
+    @arch-tag: 6222c3f4-af54-44a3-a84e-de89740c9aaa
+    @cvs-id $Id: index.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+    
+} -properties {
+} -validate {
+} -errors {
+}
+
+set title "Shared Courses"
+set context [list "Shared Courses"]
+
Index: openacs-4/packages/lorsm/www/tracking/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking/Attic/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking/index.adp	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,9 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+
+<blockquote>
+        <listtemplate name="student_track"></listtemplate><br /><br />
+        <listtemplate name="object_views"></listtemplate>
+</blockquote>
+  
Index: openacs-4/packages/lorsm/www/tracking/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/tracking/Attic/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/tracking/index.tcl	4 Sep 2004 14:51:29 -0000	1.1
@@ -0,0 +1,213 @@
+# packages/lorsm/www/tracking/index.tcl
+
+ad_page_contract {
+    
+    Student Tracking Index Page
+    
+    @author Ernie Ghiglione (ErnieG@mm.st)
+    @creation-date 2004-05-25
+    @arch-tag a5b230ee-0fa7-4e48-be1b-eeae323291e7
+    @cvs-id $Id: index.tcl,v 1.1 2004/09/04 14:51:29 ernieg Exp $
+} {
+    man_id:integer,notnull
+    {item_id 0}
+    group:optional
+} -properties {
+} -validate {
+} -errors {
+}
+
+set package_id [ad_conn package_id]
+set community_id [dotlrn_community::get_community_id]
+
+set admin_p [dotlrn::user_can_admin_community_p  \
+		 -user_id [ad_conn user_id]  \
+		 -community_id $community_id ]
+
+
+set title "Student Tracking"
+set context {Tracking}
+
+if {![exists_and_not_null group]} {
+    set group 1
+}
+
+if {$group == 1} {
+
+    template::list::create \
+	-name student_track \
+	-multirow student_track \
+	-actions [list "Summarize" [export_vars -base ".?group=0" {man_id item_id}] "Summarize all students"] \
+	-key man_id \
+	-html {width 50%} \
+	-no_data "No Students" \
+	-elements {
+	    student_name {
+		label "Student Name"
+		display_eval {[person::name -person_id $student_name]}
+		link_url_eval {[acs_community_member_url -user_id $student_name]}
+		link_html {title "Student's profile"}
+	    }
+	    start_time {
+		label "Start Course"
+		display_eval {[lc_time_fmt $start_time "%x %T"]}
+		html { align center }
+	    }
+	    end_time {
+		label "Exit Course"
+		display_eval {[lc_time_fmt $end_time "%x %T"]}
+		html { align center }
+	    }
+	    time_spend {
+		label "Time Spent"
+		display_eval {[lorsm::dates_calc -start_date [lc_time_fmt $start_time "%x %T"] -end_date [lc_time_fmt $end_time "%x %T"]]}
+		html { align center }
+	    }
+	}
+
+    db_multirow -extend { ims_md_id } student_track select_students {
+	select 
+	user_id as student_name,
+	start_time,
+	end_time
+	from
+	lorsm_student_track
+	where 
+	community_id = :community_id
+	and
+	course_id    = :man_id
+        and
+           end_time NOTNULL
+	order by  
+	start_time desc
+    } {
+	set ims_md_id $man_id
+    }
+    
+    template::list::create \
+        -name object_views \
+        -multirow object_views \
+        -elements {
+            title {
+                label "Title"
+            }
+            viewer_name {
+                label "Viewed By"
+            }
+            views {
+                label "Total Views"
+            }
+            last_viewed {
+                label "Last Viewed On"
+            }
+        }
+
+    if {$item_id} {
+	set extra_where " and v.object_id = :item_id"
+    } else {
+	set extra_where ""
+    }
+
+    db_multirow -extend {viewer_name} object_views objects_views "
+        select v.*,
+               i.title
+        from views v,
+             ims_cp_items i,
+             ims_cp_organizations o
+        where
+             i.item_id = v.object_id
+        and
+             i.org_id = o.org_id
+	and
+             o.man_id = :man_id
+        $extra_where
+    " {
+        set viewer_name [acs_user::get_element -user_id $viewer_id -element name]
+    }
+
+} else {
+    # group display
+
+    template::list::create \
+	-name student_track \
+	-multirow student_track \
+	-key man_id \
+	-actions [list "Expand" [export_vars -base ".?group=1" {man_id item_id}] "Expand all students"] \
+	-html {width 50%} \
+	-no_data "No Students" \
+	-elements {
+	    student_name {
+		label "Student Name"
+		display_eval {[person::name -person_id $student_name]}
+		link_url_eval {[acs_community_member_url -user_id $student_name]}
+		link_html {title "Student's profile"}
+	    }
+	    counter {
+		label "Times Viewed"
+		html { align center }
+	    }
+	    time_spent {
+		label "Time Spent"
+		html { align center }
+	    }
+	}
+
+    db_multirow -extend { ims_md_id } student_track select_students {
+	select 
+	user_id as student_name,
+	count(*) as counter,
+	sum(end_time - start_time) as time_spent
+	from
+	lorsm_student_track
+	where 
+	community_id = :community_id
+	and
+	   course_id    = :man_id
+	and 
+	   end_time  NOTNULL
+	group by user_id
+
+    } {
+	set ims_md_id $man_id
+    }
+
+    template::list::create \
+        -name object_views \
+        -multirow object_views \
+        -elements {
+            title {
+                label "Title"
+            }
+            views {
+                label "Total Views"
+            }
+            unique_views {
+                label "Unique Views"
+            }
+            last_viewed {
+                label "Last Viewed On"
+            }
+        }
+    
+    if {$item_id} {
+	set extra_where " and v.object_id = :item_id"
+    } else {
+	set extra_where ""
+    }
+
+    db_multirow object_views objects_views "
+        select v.*,
+               i.title
+        from view_aggregates v,
+             ims_cp_items i,
+             ims_cp_organizations o
+        where
+             i.item_id = v.object_id
+        and
+             i.org_id = o.org_id
+	and
+             o.man_id = :man_id
+        $extra_where
+    "
+
+}