Index: openacs-4/packages/recruiting/www/admin/new-candidate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-candidate.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/recruiting/www/admin/new-candidate.tcl	2 Aug 2002 18:53:56 -0000	1.4
+++ openacs-4/packages/recruiting/www/admin/new-candidate.tcl	7 Aug 2002 23:39:19 -0000	1.5
@@ -108,7 +108,12 @@
             home_phone cell_phone \
             email status    
     
+    set person_id [person::new \
+            -first_names $first_name \
+            -last_name $last_name]
+
     recruiting_candidate::new \
+            -candidate_id $person_id \
             -first_name $first_name \
             -last_name $last_name \
             -address1 $address1 \
@@ -123,7 +128,7 @@
             -email $email \
             -status $status
     
-    ad_returnredirect list-candidates
+    ns_returnredirect list-candidates
     ad_script_abort
 }