Index: openacs-4/packages/dotlrn/www/admin/departments.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/departments.tcl,v diff -u -r1.9.6.2 -r1.9.6.3 --- openacs-4/packages/dotlrn/www/admin/departments.tcl 30 Sep 2004 17:14:09 -0000 1.9.6.2 +++ openacs-4/packages/dotlrn/www/admin/departments.tcl 22 Nov 2004 22:23:08 -0000 1.9.6.3 @@ -21,6 +21,7 @@ @creation-date 2002-01-20 @version $Id$ } -query { + {keyword ""} {orderby "department_name,asc"} page:optional } -properties { @@ -42,7 +43,14 @@ set actions [list "[_ dotlrn.new_department]" "[export_vars -base "department-new" -url { referer }]"] +if { ![empty_string_p $keyword] } { + set keyword_clause [db_map departments_keyword] +} { + set keyword_clause [db_map departments_without_keyword] +} + template::list::create \ + -filters { keyword {} } \ -name departments \ -multirow departments \ -actions $actions \ @@ -75,6 +83,7 @@ } + db_multirow departments select_departments {} ad_return_template