Index: openacs-4/packages/dotlrn/www/admin/department-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/department-new.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/dotlrn/www/admin/department-new.tcl 22 Jan 2002 00:13:09 -0000 1.1 +++ openacs-4/packages/dotlrn/www/admin/department-new.tcl 16 Mar 2002 17:38:08 -0000 1.2 @@ -16,12 +16,6 @@ form create add_department -element create add_department department_key \ - -label "[ad_parameter departments_pretty_name] Key (a short name, no spaces)" \ - -datatype text \ - -widget text \ - -html {size 60} - element create add_department pretty_name \ -label "Name" \ -datatype text \ @@ -50,10 +44,9 @@ if {[form is_valid add_department]} { form get_values add_department \ - department_key pretty_name description external_url referer + pretty_name description external_url referer set department_key [dotlrn_department::new \ - -department_key $department_key \ -pretty_name $pretty_name \ -description $description \ -external_url $external_url]