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 -N -r1.4 -r1.5
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl	3 Dec 2004 17:52:48 -0000	1.4
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl	24 Feb 2005 08:58:36 -0000	1.5
@@ -1,4 +1,4 @@
-# packages/lorsm/www/test.tcl
+#packages/lorsm/www/test.tcl
 
 ad_page_contract {
     
@@ -17,9 +17,10 @@
 
 #set package_id $list_of_packages_ids
 
-
+	
 template::list::create \
     -name d_courses \
+    -pass_properties delivery_folder \
     -multirow d_courses \
     -html {width 100%} \
     -key man_id \
@@ -29,7 +30,10 @@
             label "[_ lorsm.Course_Name_1]"
             display_col course_name
 	    html { width 70% }
-            link_url_eval {[site_node::get_url_from_object_id -object_id $lorsm_instance_id]delivery/?[export_vars man_id]}
+            
+	    link_url_eval {javascript:void  window.open('[site_node::get_url_from_object_id -object_id $lorsm_instance_id]$delivery_folder/?[export_vars man_id]','lorsm','directories=0,width='+(screen.width-10)+',height='+(screen.height-77)+',status=no,toolbar=no,resizable=yes,location=no,left=0,top=0,menubar=no,scrollbars=yes');}
+
+	    
             link_html {title "[_ lorsm.Access_Course]"}
         }
         subject {
@@ -55,7 +59,7 @@
 
 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 {
+    db_multirow -extend { ims_md_id last_viewed total_item_count viewed_item_count viewed_percent delivery_folder} -append  d_courses select_d_courses {
 	select 
 	   cp.man_id,
            cp.course_name,
@@ -112,5 +116,10 @@
         "]
         set viewed_item_count [llength $viewed_items]
         set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
-    }
+    
+	if { [ db_0or1row get_folder "
+        select folder_name as delivery_folder from lors_available_presentation_formats as a, ims_cp_manifests as c where c.presentation_id=a.presentation_id and c.man_id=:man_id;
+	"] } { } else { set delivery_folder "delivery"}
+
 }
+}