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.9 -r1.10
--- openacs-4/packages/lorsm/lib/user-lorsm.tcl	26 May 2005 18:17:04 -0000	1.9
+++ openacs-4/packages/lorsm/lib/user-lorsm.tcl	31 May 2005 22:55:32 -0000	1.10
@@ -15,47 +15,76 @@
 } -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% }
-            link_url_col course_url
-            link_html {title "[_ lorsm.Access_Course]"}
-        }
-        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"] } {
 
@@ -99,8 +128,9 @@
         ns_log Debug "lorsm - viewed_item_count: $viewed_item_count"
 
         set viewed_percent [expr [expr $viewed_item_count * 1.00] / $total_item_count * 100]
-        ns_log Debug "lorsm - viewed_percent: $viewed_percent"
-	}
+	set item_id [db_string get_item_id { }]
+	set admin_p [permission::permission_p -party_id $user_id -object_id $item_id -privilege "admin"]
+    }
 }