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.3 -r1.4 --- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl 16 Feb 2005 15:28:32 -0000 1.3 +++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl 16 Feb 2005 22:21:30 -0000 1.4 @@ -5,6 +5,7 @@ @creation-date 28-01-2005 } { page:optional + keyword:optional } set user_id [ad_conn user_id] @@ -34,11 +35,21 @@ set asm_package_id [apm_package_id_from_key assessment] if { [acs_user::site_wide_admin_p] } { - set query get_course_info_site_wide - set paginator_query site_wide_paginator + if { [info exist keyword] } { + set query get_course_info_site_wide_keyword + set paginator_query site_wide_paginator_keyword + } else { + set query get_course_info_site_wide + set paginator_query site_wide_paginator + } } else { - set query get_course_info - set paginator_query paginator + if { [info exist keyword] } { + set query get_course_info_keyword + set paginator_query site_wide_paginator_keyword + } else { + set query get_course_info + set paginator_query paginator + } } template::list::create \ @@ -56,16 +67,20 @@ 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 { @@ -117,4 +132,4 @@ 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]]" -} +} \ No newline at end of file