Index: openacs-4/packages/dotlrn/www/admin/term-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/term-edit.tcl,v diff -u -r1.6.2.1 -r1.6.2.2 --- openacs-4/packages/dotlrn/www/admin/term-edit.tcl 20 Nov 2003 17:48:51 -0000 1.6.2.1 +++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl 20 Nov 2003 20:07:14 -0000 1.6.2.2 @@ -30,8 +30,13 @@ context_bar:onevalue } +if {![db_0or1row select_term_info {}]} { + ad_return_complaint 1 "
  • [_ dotlrn.Invalid] term_key $term_id
  • " + ad_script_abort +} + set referer "term?[export_vars {term_id}]" -set context_bar [list [list terms [_ dotlrn.Terms]] [list $referer "one term"] [_ dotlrn.Edit]] +set context_bar [list [list terms [_ dotlrn.Terms]] [list $referer "$term_name $term_year"] [_ dotlrn.Edit]] ad_form -name edit_term -export term_pretty_name -select_query_name select_term_info -form {