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.8 -r1.9
--- openacs-4/packages/dotlrn/www/admin/term-edit.tcl	18 Feb 2004 21:25:36 -0000	1.8
+++ openacs-4/packages/dotlrn/www/admin/term-edit.tcl	18 Mar 2004 00:18:10 -0000	1.9
@@ -26,11 +26,15 @@
 
 } -query {
     term_id:integer,notnull
-    term_pretty_name:notnull
 } -properties {
     context_bar:onevalue
 }
 
+if {![db_0or1row select_term_info {}]} {
+    ad_return_complaint 1 "<li>[_ dotlrn.Invalid] term_key $term_id</li>"
+    ad_script_abort
+}
+
 set referer "term?[export_vars {term_id}]"
 set context_bar [list [list terms [_ dotlrn.Terms]] [list $referer "$term_name $term_year"] [_ dotlrn.Edit]]