Index: openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml	17 May 2005 17:03:39 -0000	1.6
+++ openacs-4/packages/lorsm/catalog/lorsm.en_US.ISO-8859-1.xml	18 May 2005 07:45:23 -0000	1.7
@@ -682,6 +682,7 @@
   <msg key="lt_Were_sorry_but_it_app">We're sorry, but it appears that you do not have the permission to perform this operation.</msg>
   <msg key="lt_Whether_copyright_or_">Whether copyright or other restrictions apply</msg>
   <msg key="lt_Whether_use_of_the_re">Whether use of the resource requires payment</msg>
+  <msg key="lt_With_Bottom_Navigatio">With Bottom Navigation Bar</msg>
   <msg key="lt_Without_LORSM_Index_S">Without LORSM Index Style</msg>
   <msg key="lt_You_are_about_to_add_">You are about to add %course_name% to your class.</msg>
   <msg key="lt_You_can_add_courses_a">You can add courses already existing in the repository</msg>
@@ -786,6 +787,7 @@
   <msg key="Size_1">Size</msg>
   <msg key="Source">Source:</msg>
   <msg key="Source_1">Source</msg>
+  <msg key="Start">Begin with the Course</msg>
   <msg key="Start_Course">Start Course</msg>
   <msg key="Status">Status:</msg>
   <msg key="Status_1">Status</msg>
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 -r1.5 -r1.6
--- openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	17 May 2005 17:03:39 -0000	1.5
+++ openacs-4/packages/lorsm/tcl/lorsm-install-procs.tcl	18 May 2005 07:45:24 -0000	1.6
@@ -52,16 +52,23 @@
 
     }
 
-	set pretty_name "[_ lorsm.Classic_Style]"
-	# Insert default values for the course presentation formats
-	db_dml create_default_format {
-		insert into lorsm_course_presentation_formats values (-1,:pretty_name,'default','delivery')
-	}
+    # by the moment we only have tree format presentations and there is no
+    # way (by the moment) to add more dinamically, so we create them with an non dynamic id
 
-	set pretty_name "[_ lorsm.lt_Without_LORSM_Index_S]"
-	db_dml create_no_index_format {
-		insert into lorsm_course_presentation_formats values (-2,:pretty_name,'without_index','delivery-no-index')
-	}
+    set pretty_name "[_ lorsm.Classic_Style]"
+    # Insert default values for the course presentation formats
+    db_dml create_default_format {
+	insert into lorsm_course_presentation_formats values (-1,:pretty_name,'default','delivery')
+    }
+    
+    set pretty_name "[_ lorsm.lt_Without_LORSM_Index_S]"
+    db_dml create_no_index_format {
+	insert into lorsm_course_presentation_formats values (-2,:pretty_name,'without_index','delivery-no-index')
+    }
+    
+    set pretty_name "[_ lorsm.lt_With_Bottom_Navigatio]"
+    db_dml create_no_index_format {
+	insert into lorsm_course_presentation_formats values (-3,:pretty_name,'bottom_navigation_bar','delivery-bottom-bar')
+    }
 
-
 }
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.6 -r1.7
--- openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	17 May 2005 17:03:39 -0000	1.6
+++ openacs-4/packages/lorsm/tcl/lorsm-procs.tcl	18 May 2005 07:45:24 -0000	1.7
@@ -460,14 +460,15 @@
     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 
-	}
-    }
+    if { ![exists_and_not_null 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
@@ -478,15 +479,14 @@
     
     # 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
+		set revision_id $rev_id
     }
 
     variable template_path
Index: openacs-4/packages/lorsm/templates/lorsm-default.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/templates/lorsm-default.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/lorsm/templates/lorsm-default.tcl	17 May 2005 17:03:40 -0000	1.7
+++ openacs-4/packages/lorsm/templates/lorsm-default.tcl	18 May 2005 07:45:24 -0000	1.8
@@ -30,6 +30,13 @@
 
 set imsitem_id [lorsm::get_ims_item_id] 
 
+set html_document_p 0
+if { [string eq $content(mime_type) "text/html"] && [regexp -nocase {<html>} $text match] } {
+	set html_document_p 1
+	# parent window
+ 	regsub -all -nocase {target=.?(_top)} $text {target="content"} text
+}
+
 # We set all this blank variables in the case that the ims_item does
 # not have a resource id
 
Index: openacs-4/packages/lorsm/templates/lorsm-no-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/templates/lorsm-no-index.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lorsm/templates/lorsm-no-index.tcl	26 Apr 2005 16:48:29 -0000	1.4
+++ openacs-4/packages/lorsm/templates/lorsm-no-index.tcl	18 May 2005 07:45:24 -0000	1.5
@@ -62,7 +62,9 @@
 		} else {
 			set viewed_item_id [lindex $item_list [expr [lsearch -exact $item_list $viewed_item_id] - 1]]
 		}
-		lorsm::record_view $viewed_item_id $man_id
+		if { [lsearch -exact $item_list $viewed_item_id] >= 0 } {
+		    lorsm::record_view $viewed_item_id $man_id
+		}
 
 		# Student tracking
 		set package_id [ad_conn package_id]
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/body.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/body.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/body.adp	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,18 @@
+<master  src="/www/blank-master">
+<center>
+    
+<h1>#lorsm.Welcome_to# <b>@course_name@</h1>
+<p>
+
+      #lorsm.Your_Stats#
+      <br>
+	#lorsm.lt_You_have_seen_this_co# <b>@viewed_times@</b> #lorsm.lt_number_of_times_and_h# <b>@viewed_percent@ %</b> #lorsm.of_the_content#
+    </p>
+    <if @last_page_viewed@ defined>
+      <p>
+	#lorsm.lt_The_last_page_you_vie# <b><a href="record-view?man_id=@man_id@&item_id=@imsitem_id@">@last_page_viewed;noquote@</a></b>
+    </if>
+ 	<else>
+	<a href="record-view?man_id=@man_id@&item_id=@first_item_id@" onclick="parent.frames['bottom'].location.reload()">#lorsm.Start#</a>
+	</else>
+
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/body.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/body.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/body.tcl	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,76 @@
+# packages/lorsm/www/delivery-bottom-bar/body.tcl
+
+ad_page_contract {
+    
+} {
+    man_id:notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_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 times viewed
+
+set viewed_times [db_string select_viewed_times "
+             select count(*) 
+             from lorsm_student_track 
+             where community_id = :community_id
+             and course_id = :man_id
+             and user_id = :user_id "]
+
+# 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 "[_ lorsm.No_Course_Name]"
+    } 
+} else {
+    set course_name "[_ lorsm.No_Course_Name]"
+}
+
+if { !$viewed_item_count } {
+	set first_item_id [lindex [lorsm::get_item_list $man_id $user_id] 0]
+}
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.adp	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,16 @@
+<html>
+<head>
+
+<style type="text/css">
+body {	text-align: right;
+	background-color: #A6E8B8}
+</style>
+</head>
+
+@prev_url;noquote@
+@next_url;noquote@
+@first_item_url;noquote@
+<a href="exit?man_id=@man_id@&track_id=@track_id@&return_url=@return_url@" target="_top"><img src="Images/exit.png" border="0" title="exit"></a>
+
+</body>
+</html>
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/bottom.tcl	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,66 @@
+# packages/lorsm/www/delivery-bottom-bar/bottom.tcl
+
+ad_page_contract {
+    
+} {
+	man_id:integer,notnull
+	{item_id:integer ""}
+} -properties {
+} -validate {
+} -errors {
+}
+
+# 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
+}
+
+# return_url
+set return_url [dotlrn_community::get_community_url [dotlrn_community::get_community_id]]
+
+set item_list [lorsm::get_item_list $man_id $user_id]
+
+set last_item_viewed [db_string select_last_item_viewed {    
+	select item_id
+	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
+} -default "no_item"]
+
+set first_item_id [lindex $item_list 0]
+set first_item_url "<a href=\"[export_vars -base "record-view" -url {{item_id $first_item_id} man_id}]\" target=\"content\"><img src=\"Images/home.png\" border=\"0\" title=\"home\" onclick=\"window.location.reload()\"></a>"
+
+set curr_index [expr [lsearch -exact $item_list $last_item_viewed]]
+set prev_item_id [lindex $item_list [expr $curr_index - 1]]
+set next_item_id [lindex $item_list [expr $curr_index + 1]]
+set prev_url "<a href=\"[export_vars -base "record-view" -url {{item_id $prev_item_id} man_id}]\" target=\"content\"><img src=\"Images/prev.png\" border=\"0\" title=\"next\" onclick=\"window.location.reload()\"></a>"
+set next_url "<a href=\"[export_vars -base "record-view" -url {{item_id $next_item_id} man_id}]\" target=\"content\"><img src=\"Images/next.png\" border=\"0\" title=\"next\" onclick=\"window.location.reload()\"></a>"
+
+if { [string eq $last_item_viewed "no_item"] } {
+	# first time accessing the course
+	set next_url "<img src=\"Images/nexthide.png\" border=\"0\">"
+	set prev_url "<img src=\"Images/prevhide.png\" border=\"0\">"
+} elseif { ![expr [llength $item_list] - $curr_index - 1] }  {	
+	# last item
+	set next_url "<img src=\"Images/nexthide.png\" border=\"0\">"
+} elseif { ![expr $curr_index] } {
+	# first item
+	set prev_url "<img src=\"Images/prevhide.png\" border=\"0\">"
+}
+
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/exit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/exit.tcl	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,26 @@
+# packages/lorsm/www/delivery-bottom-bar/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 2005/05/18 07:45:24 josee 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/delivery-bottom-bar/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/index.adp	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,8 @@
+<html>
+<head>
+<title>@course_name@</title>
+
+<frameset rows="90%,*" border=0>
+<frame src="<if @ims_id@ defined>@body_url;noquote@</if><else>body?man_id=@man_id@</else>" name="content">
+<frame src="bottom?man_id=@man_id@" name="bottom">
+</frameset>
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/index.tcl	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,39 @@
+# packages/lorsm/www/delivery-bottom-bar/index.tcl
+
+ad_page_contract {
+    
+    New index file using new tree menu
+    
+    @author Roel Canicula (roelmc@info.com.ph)
+    @creation-date 2004-08-07
+    @arch-tag: 64f3397b-4558-4298-a995-fc63e472f2a1
+    @cvs-id $Id: index.tcl,v 1.1 2005/05/18 07:45:24 josee Exp $
+} {
+    man_id:integer,notnull
+} -properties {
+} -validate {
+} -errors {
+}
+
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+# 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 "[_ lorsm.No_Course_Name]"
+    } 
+} else {
+    set course_name "[_ lorsm.No_Course_Name]"
+}
+
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/record-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/record-view.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/record-view.tcl	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,86 @@
+# packages/lorsm/www/delivery-bottom-bar/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 2005/05/18 07:45:24 josee 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]
+
+lorsm::record_view $item_id $man_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 {item_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/delivery-bottom-bar/Images/exit.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/exit.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/home.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/home.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/leaf.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/leaf.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/minus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/minus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/next.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/next.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/nexthide.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/nexthide.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/plus.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/plus.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/prev.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/prev.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/prevhide.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/Images/prevhide.png,v
diff -u
Binary files differ
Index: openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index-oracle.xql	18 May 2005 07:45:24 -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-bottom-bar/view/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index-postgresql.xql	18 May 2005 07:45:24 -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-bottom-bar/view/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lorsm/www/delivery-bottom-bar/view/index.vuh	18 May 2005 07:45:24 -0000	1.1
@@ -0,0 +1,51 @@
+#################################################
+ad_page_contract {
+   
+    @author Unknown
+    @creation-date Unknown
+    @cvs-id $Id: index.vuh,v 1.1 2005/05/18 07:45:24 josee Exp $
+} {    
+	{item_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 {![empty_string_p $item_id]} {
+    lorsm::set_ims_item_id $item_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 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/delivery-no-index/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-no-index/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/www/delivery-no-index/index.tcl	17 May 2005 21:48:05 -0000	1.3
+++ openacs-4/packages/lorsm/www/delivery-no-index/index.tcl	18 May 2005 07:45:25 -0000	1.4
@@ -103,5 +103,5 @@
 }
 
 if { !$viewed_item_count } {
-	set first_item_id [lindex [lorsm::get_item_list $man_id $user_id] 1]
+	set first_item_id [lindex [lorsm::get_item_list $man_id $user_id] 0]
 }
Index: openacs-4/packages/lorsm/www/delivery-no-index/view/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/www/delivery-no-index/view/index.vuh,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lorsm/www/delivery-no-index/view/index.vuh	17 May 2005 21:48:05 -0000	1.2
+++ openacs-4/packages/lorsm/www/delivery-no-index/view/index.vuh	18 May 2005 07:45:25 -0000	1.3
@@ -20,6 +20,7 @@
 # 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]