Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	14 Feb 2005 22:46:11 -0000	1.1
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	16 Feb 2005 00:22:12 -0000	1.2
@@ -4,7 +4,7 @@
     @author          Viaro Networks www.viaro.net
     @creation-date   28-01-2005
 } {
-
+    page:optional
 }
 
 set user_id [ad_conn user_id]
@@ -35,15 +35,86 @@
 
 if { [acs_user::site_wide_admin_p] } {
     set query get_course_info_site_wide
+    set paginator_query site_wide_paginator
 } else {
     set query get_course_info
+    set paginator_query paginator
 }
 
+template::list::create \
+    -name course_list \
+    -multirow course_list \
+    -key course_id \
+    -page_groupsize 5 \
+    -page_flush_p t \
+    -page_query_name $query \
+    -bulk_action_method post \
+    -bulk_action_export_vars {
+    }\
+    -row_pretty_plural "[_ dotlrn-catalog.courses]" \
+    -elements {
+	key {
+	    label "[_ dotlrn-catalog.course_key]"
+	    display_template {
+		<a href=course-add-edit?course_id=@course_list.course_id@&return_url=$return_url&mode=1 \
+		    title="[_ dotlrn-catalog.new_ver]">\
+		        <img border=0 src=/resources/Edit16.gif></a>
+		<a href="revision-list?course_key=@course_list.course_key@&return_url=$return_url&course_id=@course_list.course_id@" title="[_ dotlrn-catalog.see_all_rev]">@course_list.course_key@</a>
+	    }
+	}
+	name  {
+	    label "[_ dotlrn-catalog.course_name]"
+	    display_template {
+		<a href="course-info?course_id=@course_list.course_id@&course_name=@course_list.course_name@&course_key=@course_list.course_key@">@course_list.course_name@</a>
+	    }
+	}
+	assessment_id  {
+	    label "[_ dotlrn-catalog.asm]:"
+	    display_template {
+		@course_list.asm_name@
+	    }
+	}
+	dotlrn {
+	    label "[_ dotlrn-catalog.dotlrn]"
+	    display_template {
+		<if @course_list.rel@ eq 0>
+		#dotlrn-catalog.no# (<a href="dotlrn-list?course_id=@course_list.course_id@&course_key=@course_list.course_key@&return_url=$return_url&course_name=@course_list.course_name@" title="\#dotlrn-catalog.associate_this\#"><i>#dotlrn-catalog.associate#</i></a>)
+		</if>
+		<else>
+		#dotlrn-catalog.yes# (<a href="watch-association?course_id=@course_list.course_id@&course_key=@course_list.course_key@&return_url=$return_url&course_name=@course_list.course_name@" title="\#dotlrn-catalog.watch_assoc#"><i>#dotlrn-catalog.watch#</i></a>)
+		</else>
+	    }
+	}
+	category {
+	    label "[_ dotlrn-catalog.category]"
+	    display_template {
+		<div align=center>
+		<if @course_list.category_name@ not eq "">
+		    @course_list.category_name@
+		</if>
+		<else>
+		   #dotlrn-catalog.uncat#
+		</else>
+		</div>
+	    }
+	}
+	permissions {
+	    label "[_ dotlrn-catalog.permission]"
+	    display_template {
+		<a href="grant-user-list?object_id=@course_list.item_id@&creation_user=@course_list.creation_user@&course_key=@course_list.course_key@">\#dotlrn-catalog.manage_per\#</a>
+	    }
+	}
+	delete {
+	    display_template {
+		<a href="course-delete?object_id=@course_list.item_id@&creation_user=@course_list.creation_user@&course_key=@course_list.course_key@" title="\#dotlrn-catalog.delete\#"><img border=0 src=/resources/Delete16.gif></a>
+	    }
+	}
+    }
 
-db_multirow -extend { asm_name rel item_id creation_user } course_list $query {} {
+db_multirow -extend { asm_name rel item_id creation_user category_name } course_list $query {} {
     set asm_name [db_string get_asm_name { } -default "[_ dotlrn-catalog.not_associated]"]
     set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
     set creation_user [dotlrn_catalog::get_creation_user -object_id $item_id]
     set rel [dotlrn_catalog::has_relation -course_id $course_id]
+    set category_name "[category::get_name [category::get_mapped_categories $course_id]]"
 }
-