Index: openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl	31 Jul 2002 23:53:37 -0000	1.4
+++ openacs-4/packages/recruiting/tcl/dotlrn-recruiting-procs.tcl	1 Aug 2002 00:45:49 -0000	1.5
@@ -243,6 +243,27 @@
         
         return [array get recruiting_candidate]
     }
+    
+    ad_proc -public update_candidate {
+        {-candidate_id:required}
+        {-first_name:required}
+        {-last_name:required}
+        {-address1:required}
+        {-address2:required}
+        {-city:required}
+        {-state:required}
+        {-zip:required}
+        {-zip_plus_four:required}
+        {-country:required}
+        {-email:required}
+        {-status:required}
+        {-package_id:required}
+    } {
+        update a candidate
+    } {
+        db_dml update_candidate {}
+    }
+
 }
 
 namespace eval recruiting_interview {