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.8 -r1.8.2.1
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl	17 May 2005 17:03:39 -0000	1.8
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl	13 Jun 2005 15:10:43 -0000	1.8.2.1
@@ -15,60 +15,123 @@
 } -errors {
 }
 
+set user_id [ad_conn user_id]
+set community_id [dotlrn_community::get_community_id]
+
+set lors_central_package_id [apm_package_id_from_key "lors-central"]
+set lors_central_url [apm_package_url_from_id $lors_central_package_id]
+
+
+set elements_list {
+    course_name {
+	label "[_ lorsm.Course_Name_1]"
+	display_template {
+	    @d_courses.course_url;noquote@ 
+	    <if @d_courses.admin_p@>
+	    <i>
+            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
+            <a href="${lors_central_url}one-course?item_id=@d_courses.item_id@">[_ lors-central.add_mat]</a>
+            </i>
+	    </if> 
+	}
+	html { width 70% }
+    }
+    subject {
+	label "[_ lorsm.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 "[_ lorsm.Access_Course]"}
+    }
+    last_viewed {
+	label "[_ lorsm.Last_Viewed_On]"
+	html { align center width 10% }
+	display_eval {[lc_time_fmt $last_viewed "%x"]}
+    }
+    viewed_percent {
+	label "[_ lorsm._Viewed]"
+	html { align right }
+	display_eval {[lc_numeric $viewed_percent "%.2f"]}
+    }
+}
+
+
+if { ![string equal $lors_central_package_id 0] && ![empty_string_p $community_id] } {
+    if { [lors_central::check_inst -user_id $user_id -community_id $community_id] } {
+	append elements_list " 
+	grant_permissions {
+	    label \"[_ lors-central.grant_permissions]\"
+	    display_template {
+                <center>
+		<a href=\"${lors_central_url}lc-admin/grant-user-list?man_id=@d_courses.item_id@&creation_user=@d_courses.creation_user@\">[_ lors-central.manage]</a>
+		</center>
+	    }
+	}"
+    }
+}
+
+
 template::list::create \
     -name d_courses \
     -multirow d_courses \
     -html {width 100%} \
     -key man_id \
     -no_data "[_ lorsm.No_Courses]" \
-    -elements {
-        course_name {
-            label "[_ lorsm.Course_Name_1]"
-	    display_template {@d_courses.course_url;noquote@}
-	    html { width 70% }
-        }
-        subject {
-            label "[_ lorsm.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 "[_ lorsm.Access_Course]"}
-        }
-        last_viewed {
-            label "[_ lorsm.Last_Viewed_On]"
-            html { align center width 10% }
-            display_eval {[lc_time_fmt $last_viewed "%x"]}
-        }
-        viewed_percent {
-            label "[_ lorsm._Viewed]"
-            html { align right }
-            display_eval {[lc_numeric $viewed_percent "%.2f"]}
-        }
-    }
+    -elements $elements_list
 
-set user_id [ad_conn user_id]
-set community_id [dotlrn_community::get_community_id]
 set extra_query ""
 if {![empty_string_p $community_id]} {
     set extra_query "and cpmc.community_id = :community_id"
 }
 foreach package $package_id {
-    db_multirow -extend { ims_md_id last_viewed total_item_count viewed_item_count viewed_percent course_url } -append d_courses select_d_courses { } {
+    db_multirow -extend { admin_p item_id ims_md_id last_viewed total_item_count viewed_item_count viewed_percent course_url } -append d_courses select_d_courses { } {
         set ims_md_id $man_id
 	if { [string eq $format_name "default"] } {
-			set course_url "<a href=\"[site_node::get_url_from_object_id -object_id $lorsm_instance_id]${folder_name}/?[export_vars man_id]\" title=\"[_ lorsm.Access_Course]\">$course_name</a>" 
+
+            # micheles
+   	    set context [site_node::get_url_from_object_id -object_id $lorsm_instance_id]
+	    if ([db_0or1row query "
+    		select
+           		cpr.man_id,
+           		cpr.res_id,
+           		case
+              			when upper(scorm_type) = 'SCO' then 'delivery-scorm'
+              			else 'delivery'
+           		end as needscorte
+    			from
+           			ims_cp_resources cpr
+    			where
+				cpr.man_id = :man_id 
+			order by cpr.scorm_type desc limit 1"
+		]) {
+
+		set delivery_method $needscorte
+		ns_log Debug "lorsm - $needscorte"
+
+		set course_url "<a href=\"$context$delivery_method/?[export_vars man_id]\" title=\"[_ lorsm.Access_Course]\">$course_name</a>" 
+		ns_log Debug "lorsm - course_url: $course_url"
+	    } else {
+		set course_url "NO RESOURCES ERROR"
+	    } 
 	} else {
-			set course_url "<a href=\"[site_node::get_url_from_object_id -object_id $lorsm_instance_id]${folder_name}/?[export_vars man_id]\" title=\"[_ lorsm.Access_Course]\" target=_blank>$course_name</a>" 
+	    set course_url "<a href=\"[site_node::get_url_from_object_id -object_id $lorsm_instance_id]${folder_name}/?[export_vars man_id]\" title=\"[_ lorsm.Access_Course]\" target=_blank>$course_name</a>" 
 	}
+
         # DEDS: these are expensive
         # and for demo purposes only
         db_0or1row get_last_viewed { }
         set all_items [db_list get_total_items { }]
         set total_item_count [llength $all_items]
         set viewed_items [db_list get_viewed_items { }]
         set viewed_item_count [llength $viewed_items]
+
+        ns_log Debug "lorsm - viewed_item_count: $viewed_item_count"
+
         set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
+	set item_id [db_string get_item_id { }]
+	set admin_p [permission::permission_p -party_id $user_id -object_id $item_id -privilege "admin"]
     }
 }
 
 
+