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 {
+ \
+
+ @course_list.course_key@
+ }
+ }
+ name {
+ label "[_ dotlrn-catalog.course_name]"
+ display_template {
+ @course_list.course_name@
+ }
+ }
+ assessment_id {
+ label "[_ dotlrn-catalog.asm]:"
+ display_template {
+ @course_list.asm_name@
+ }
+ }
+ dotlrn {
+ label "[_ dotlrn-catalog.dotlrn]"
+ display_template {
+