Index: openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl	7 Aug 2002 23:39:19 -0000	1.2
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl	14 Aug 2002 20:28:28 -0000	1.3
@@ -20,6 +20,11 @@
 
 array set candidate_info [recruiting_candidate::get -candidate_id $candidate_id]
 
+set candidate_name [person::name -person_id $candidate_id]
+set url "[ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]$package_url"
+set interviewer_name [person::name -person_id $search_user_id]
+set sender_name [person::name -person_id $user_id]
+
 form create msg
 element create msg subject \
         -label "Subject:" \
@@ -33,15 +38,8 @@
         -datatype text \
         -widget textarea \
         -html {rows 10 cols 60 wrap soft} \
-        -value "
+        -value [recruiting_email::get_body -package_id $package_id]
 
-Dear [person::name -person_id $search_user_id],
-
-Please interview [person::name -person_id $candidate_id] at your earliest convenience.  When you have completed the interview, please go to [ad_parameter -package_id [ad_acs_kernel_id] SystemURL ""]$package_url and rate the candidate.
-
-Thank you,
-[person::name -person_id $user_id]"
-
 element create msg candidate_id \
         -widget hidden \
         -value $candidate_id
@@ -59,7 +57,7 @@
 
     catch {ns_sendmail $interviewer_email $sender_email "$subject" "$body"} message_send_errors
     
-    recruiting_interview::new \
+    recruiting::interview::new \
         -interviewer_id $search_user_id \
         -candidate_id $candidate_id \
         -package_id $package_id
@@ -73,3 +71,4 @@
 ad_return_template
 
 
+