Index: openacs-4/packages/dotlrn/tcl/term-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/term-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn/tcl/term-procs.tcl	8 Mar 2002 00:27:05 -0000	1.3
+++ openacs-4/packages/dotlrn/tcl/term-procs.tcl	14 Mar 2002 23:30:26 -0000	1.4
@@ -7,6 +7,7 @@
 }
 
 namespace eval dotlrn_term {
+
     ad_proc -public new {
         {-term_name:required}
         {-term_year:required}
@@ -22,6 +23,22 @@
         db_dml insert_term {}
     }
 
+    ad_proc -public edit {
+        {-term_id:required}
+        {-term_name:required}
+        {-term_year:required}
+        {-start_date:required}
+        {-end_date:required}
+    } {
+        edit a term
+    } {
+        set start_date "[template::util::date::get_property year $start_date] [template::util::date::get_property month $start_date] [template::util::date::get_property day $start_date]"
+        set end_date "[template::util::date::get_property year $end_date] [template::util::date::get_property month $end_date] [template::util::date::get_property day $end_date]"
+        set date_format "YYYY MM DD"
+
+        db_dml update_term {}
+    }
+
     ad_proc -public get_term_name {
         {-term_id:required}
     } {
@@ -71,4 +88,5 @@
         return [template::util::date::create $year $month $day "" "" "" $date_format]
 
     }
+
 }