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.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl	31 Jul 2002 23:54:00 -0000	1.1
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl	7 Aug 2002 23:39:19 -0000	1.2
@@ -12,11 +12,64 @@
 }
 
 set package_id [ad_conn package_id]
+
+set node_id [ad_conn node_id]
+set package_url [site_node::get_url -node_id $node_id]
+
 set user_id [ad_verify_and_get_user_id]
 
-recruiting_interview::new \
+array set candidate_info [recruiting_candidate::get -candidate_id $candidate_id]
+
+form create msg
+element create msg subject \
+        -label "Subject:" \
+        -datatype text \
+        -widget text \
+        -html {size 50} \
+        -value "New recruiting interview assignment for you"
+
+element create msg body \
+        -label "Email:" \
+        -datatype text \
+        -widget textarea \
+        -html {rows 10 cols 60 wrap soft} \
+        -value "
+
+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
+
+element create msg search_user_id\
+        -widget  hidden \
+        -value $search_user_id
+
+if {[form is_valid msg]} {
+    form get_values msg \
+            subject body
+
+    set sender_email [db_string get_sender_email {}]
+    set interviewer_email [db_string get_interviewer_email {}]
+
+    catch {ns_sendmail $interviewer_email $sender_email "$subject" "$body"} message_send_errors
+    
+    recruiting_interview::new \
         -interviewer_id $search_user_id \
         -candidate_id $candidate_id \
         -package_id $package_id
 
-ns_returnredirect view-one-candidate?[export_vars candidate_id]
+    ns_returnredirect view-one-candidate?[export_vars candidate_id]
+    ad_script_abort
+}
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] [list "view-one-candidate?[export_vars candidate_id]" "One Candidate"] "Assign Interview"]
+
+ad_return_template
+
+