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
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview-2.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,22 @@
+ad_page_contract {
+ recruiting admin interface
+ access admin function such as: criteria specification
+ and interviewee status types
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-30
+ @version $Id: assign-candidate-interview-2.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+} {
+ candidate_id:notnull
+ search_user_id:notnull
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+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]
Index: openacs-4/packages/recruiting/www/admin/assign-candidate-interview.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/assign-candidate-interview.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,10 @@
+<master src="recruiting-admin-master">
+
+<property name="context_bar">@context_bar@</property>
+
+<if @searching_p@ eq 1>
+ <formtemplate id="assign_interview"></formtemplate>
+</if>
+<else>
+ <%= [table::outputTable search_results] %>
+</else>
Index: openacs-4/packages/recruiting/www/admin/assign-candidate-interview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/assign-candidate-interview.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,43 @@
+ad_page_contract {
+ recruiting admin interface
+ access admin function such as: criteria specification
+ and interviewee status types
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-30
+ @version $Id: assign-candidate-interview.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+} {
+ candidate_id:notnull
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+set searching_p 1
+
+form create assign_interview
+element create assign_interview search_text \
+ -label "Assign interview to" \
+ -datatype text \
+ -widget text \
+ -html {size 40}
+
+element create assign_interview candidate_id \
+ -widget hidden \
+ -value $candidate_id
+
+if {[form is_valid assign_interview]} {
+ set searching_p 0
+ form get_values assign_interview \
+ search_text
+
+ table::setTitle search_results "Choose an interviewer"
+
+ db_foreach select_users {} {
+ table::addSortableRow search_results [list "<a href=assign-candidate-interview-2?[export_vars "candidate_id search_user_id"]>$last_name, $first_names ($email)</a>"]
+ }
+}
+
+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
Index: openacs-4/packages/recruiting/www/admin/assign-candidate-interview.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/assign-candidate-interview.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/assign-candidate-interview.xql 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+ <fullquery name="select_users">
+ <querytext>
+ select user_id as search_user_id,
+ first_names,
+ last_name,
+ email
+ from registered_users
+ where lower(last_name) like lower('%' || :search_text || '%')
+ or lower(first_names) like lower('%' || :search_text || '%')
+ or lower(email) like lower('%' || :search_text || '%')
+ and user_id in (select user_id
+ from dotlrn_users)
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/recruiting/www/admin/edit-criteria.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/edit-criteria.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/edit-criteria.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,6 @@
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
+
+<formtemplate id="edit_criteria"></formtemplate>
+
+
Index: openacs-4/packages/recruiting/www/admin/edit-criteria.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/edit-criteria.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/edit-criteria.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,53 @@
+ad_page_contract {
+ recruiting admin interface
+ new criteria page
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-30
+ @version $Id: edit-criteria.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+} {
+ {criteria_id:notnull}
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+array set info [recruiting_criteria::get -criteria_id $criteria_id]
+
+form create edit_criteria
+element create edit_criteria criteria_name \
+ -label "Criteria Name:" \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ -value $info(criteria_name)
+
+element create edit_criteria description \
+ -label "Description:" \
+ -datatype text \
+ -widget textarea \
+ -html {rows 5 cols 60 wrap soft} \
+ -value $info(description)
+
+element create edit_criteria criteria_id \
+ -widget hidden \
+ -value $criteria_id
+
+if {[form is_valid edit_criteria]} {
+ form get_values edit_criteria \
+ criteria_name description
+
+ recruiting_criteria::update_criteria_type \
+ -criteria_id $criteria_id \
+ -criteria_name $criteria_name \
+ -description $description \
+ -package_id $package_id \
+ -enabled_p "t"
+
+ ad_returnredirect list-criteria
+ ad_script_abort
+}
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-criteria" "Criteria Types"] "Edit Criteria"]
+
+ad_return_template
Index: openacs-4/packages/recruiting/www/admin/edit-status-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/edit-status-type.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/edit-status-type.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,5 @@
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
+
+<formtemplate id="edit_status_type"></formtemplate>
+
Index: openacs-4/packages/recruiting/www/admin/edit-status-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/edit-status-type.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/edit-status-type.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,54 @@
+ad_page_contract {
+ recruiting admin interface
+ access admin function such as: criteria specification
+ and interviewee status types
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-30
+ @version $Id: edit-status-type.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+} {
+ status_type_id:notnull
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+array set info [recruiting_status_type::get -status_type_id $status_type_id]
+
+form create edit_status_type
+element create edit_status_type short_desc \
+ -label "Status type:" \
+ -datatype text \
+ -widget text \
+ -html {size 60} \
+ -value $info(short_desc)
+
+element create edit_status_type long_desc \
+ -label "Description:" \
+ -datatype text \
+ -widget textarea \
+ -html {rows 5 cols 60 wrap soft} \
+ -value $info(long_desc)
+
+element create edit_status_type status_type_id \
+ -widget hidden \
+ -value $info(status_type_id)
+
+if {[form is_valid edit_status_type]} {
+ form get_values edit_status_type \
+ short_desc long_desc
+
+ recruiting_status_type::update_status_type \
+ -status_type_id $status_type_id \
+ -short_desc $short_desc \
+ -long_desc $long_desc \
+ -package_id $package_id \
+ -enabled_p "t"
+
+ ad_returnredirect list-status-types
+ ad_script_abort
+}
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-status-types" "Status Types"] "Edit Status Type"]
+
+ad_return_template
Index: openacs-4/packages/recruiting/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/index.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/recruiting/www/admin/index.adp 30 Jul 2002 22:38:34 -0000 1.2
+++ openacs-4/packages/recruiting/www/admin/index.adp 31 Jul 2002 23:54:00 -0000 1.3
@@ -1,11 +1,8 @@
-<master>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
-<b>Candidates:</b><br>
-<a href=list-candidates>View candidates</a><br>
-<a href=new-candidate>Add a new candidate</a><br>
-
-<p>
-
-<b>Setup:</b><br>
-<a href=list-status-types.tcl>Modify candidate status types</a><br>
-<a href=list-criteria>Modify interview criteria</a>
+<table width=100%><tr><td valign=top>
+<%= [table::outputTable summary] %>
+</td><td valign=top>
+<%= [table::outputTable options] %>
+</td></tr></table>
Index: openacs-4/packages/recruiting/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/index.tcl 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/index.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -10,3 +10,13 @@
set package_id [ad_conn package_id]
set user_id [ad_verify_and_get_user_id]
+
+table::setTitle options "Recruiting Administration Options"
+table::addUnsortedRow options [list "<a href=list-candidates>Candidate Administration</a>"]
+table::addUnsortedRow options [list "<a href=list-status-types.tcl>Candidate status types</a>"]
+table::addUnsortedRow options [list "<a href=list-criteria>Interview criteria Administration</a>"]
+
+table::setTitle summary "Summary Information"
+table::addUnsortedRow summary [list "Summary Info will go here"]
+
+set context_bar [list [list "../" "Recruiting"] "Admin"]
Index: openacs-4/packages/recruiting/www/admin/list-candidates.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-candidates.adp 30 Jul 2002 22:38:34 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-candidates.adp 31 Jul 2002 23:54:00 -0000 1.2
@@ -1,15 +1,11 @@
-<master>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
-<b>Candidates:</b><br>
-
-<table>
-<if @list_candidates:rowcount@ gt 0>
- <multiple name="list_candidates">
- <tr><td>@list_candidates.last_name@, @list_candidates.first_name@ from @list_candidates.city@, @list_candidates.state@ (<a href="mailto:@list_candidates.email@">send email</a>)</td><td></td></tr>
- </multiple>
-</if>
-<else>
- <tr><td>No candidates (<a href=new-candidate>add one</a>)</td></tr>
-</else>
+<table width=100%>
+<tr><td>
+<%= [table::outputTable candidates] %>
+</td><td valign=top>
+<%= [table::outputTable options] %>
+</td><tr>
</table>
Index: openacs-4/packages/recruiting/www/admin/list-candidates.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-candidates.tcl 30 Jul 2002 22:38:34 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-candidates.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -11,6 +11,17 @@
set package_id [ad_conn package_id]
set user_id [ad_verify_and_get_user_id]
-db_multirow list_candidates get_candidates {}
+table::setTitle candidates "Recruiting Candidates"
+table::setColumnHeadings candidates [list "Name" "Location" "Status"]
+db_foreach get_candidates {} {
+ table::addSortableRow candidates [list "$first_name $last_name" "$city, $state" "$status" "(<a href=\"mailto:$email\">email</a>) (<a href=\"view-one-candidate?[export_vars candidate_id]\">details</a>)"]
+} if_no_rows {
+ table::addSortableRow candidates [list "No Candidates"]
+}
+table::setTitle options "Options"
+table::addUnsortedRow options [list "<a href=new-candidate>Add a new candidate</a>"]
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] "Candidates"]
+
ad_return_template
Index: openacs-4/packages/recruiting/www/admin/list-candidates.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-candidates.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-candidates.xql 30 Jul 2002 22:38:34 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-candidates.xql 31 Jul 2002 23:54:00 -0000 1.2
@@ -3,7 +3,8 @@
<fullquery name="get_candidates">
<querytext>
- select c.first_name,
+ select c.candidate_id,
+ c.first_name,
c.last_name,
c.city,
c.state,
Index: openacs-4/packages/recruiting/www/admin/list-criteria.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-criteria.adp 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-criteria.adp 31 Jul 2002 23:54:00 -0000 1.2
@@ -1,28 +1,11 @@
-<master>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
-<a href="new-criteria">Add New Criteria</a>
-
+<table width=100%><tr><td valign=top>
+<%= [table::outputTable enabled] %>
<p>
-
-<b>Interview criteria:</b>
-<table>
-<if @enabled_criteria_types:rowcount@ gt 0>
- <multiple name="enabled_criteria_types">
- <tr><td>@enabled_criteria_types.criteria_name@</td><td>(<a href="@enabled_criteria_types.disable_url@">disable</a>)</tr>
- </multiple>
-</if>
-<else>
- <tr><td>none defined (<a href=new-criteria>add one</a>)</td></tr>
-</else>
+<%= [table::outputTable disabled] %>
+</td><td valign=top>
+<%= [table::outputTable options] %>
+</td></tr>
</table>
-
-<p>
-
-<if @disabled_criteria_types:rowcount@ gt 0>
- <b>Disabled criteria:</b>
- <table>
- <multiple name="disabled_criteria_types">
- <tr><td><font color=grey>@disabled_criteria_types.criteria_name@</td><td>(<a href="@disabled_criteria_types.enable_url@">enable</a>)</tr>
- </multiple>
- </table>
-</if>
Index: openacs-4/packages/recruiting/www/admin/list-criteria.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-criteria.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-criteria.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -11,11 +11,20 @@
set package_id [ad_conn package_id]
set user_id [ad_verify_and_get_user_id]
-db_multirow enabled_criteria_types get_enabled_criteria_types "" {
- set disable_url "disable-criteria?[export_vars criteria_id]"
+table::setTitle enabled "Candidate Criteria"
+db_foreach get_enabled_criteria_types {} {
+ table::addUnsortedRow enabled [list "$criteria_name" "(<a href=\"edit-criteria?[export_vars criteria_id]\">edit</a>) (<a href=\"disable-criteria?[export_vars criteria_id]\">disable</a>)"]
}
-db_multirow disabled_criteria_types get_disabled_criteria_types "" {
- set enable_url "enable-criteria?[export_vars criteria_id]"
+table::setTitle disabled "Disabled Criteria"
+db_foreach get_disabled_criteria_types {} {
+ table::addUnsortedRow disabled [list "$criteria_name" "(<a href=\"enable-criteria?[export_vars criteria_id]\">enable</a>)"]
+
}
+table::setTitle options "Options"
+table::addUnsortedRow options [list "<a href=\"new-criteria\">Add New Criteria</a>"]
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] "Criteria Types"]
+
+ad_return_template
Index: openacs-4/packages/recruiting/www/admin/list-status-types.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-status-types.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/recruiting/www/admin/list-status-types.adp 30 Jul 2002 22:38:34 -0000 1.2
+++ openacs-4/packages/recruiting/www/admin/list-status-types.adp 31 Jul 2002 23:54:00 -0000 1.3
@@ -1,32 +1,11 @@
-<master>
-
+<master src="recruiting-admin-master">
<property name="context_bar">@context_bar@</property>
-<a href="new-status-type">Add new status type</a>
-
+<table width=100%><tr><td valign=top>
+<%= [table::outputTable enabled] %>
<p>
-
-<b>Candidate status types:</b><br>
-
-<table>
-<if @enabled_status_types:rowcount@ gt 0>
- <multiple name="enabled_status_types">
- <tr><td>@enabled_status_types.short_desc@</td><td>(<a href="@enabled_status_types.disable_url@">disable</a>)</td></tr>
- </multiple>
-</if>
-<else>
- <tr><td>none defined (<a href=new-status-type>add one</a>)</td></tr>
-</else>
+<%= [table::outputTable disabled] %>
+</td><td valign=top>
+<%= [table::outputTable options] %>
+</td></tr>
</table>
-
-
-<p>
-
-<if @disabled_status_types:rowcount@ gt 0>
- <b>Disabled status types:</b>
- <table>
- <multiple name="disabled_status_types">
- <tr><td><font color=grey>@disabled_status_types.short_desc@</td><td>(<a href="@disabled_status_types.enable_url@">enable</a>)</tr>
- </multiple>
- </table>
-</if>
Index: openacs-4/packages/recruiting/www/admin/list-status-types.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/list-status-types.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/list-status-types.tcl 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/list-status-types.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -11,14 +11,23 @@
set package_id [ad_conn package_id]
set user_id [ad_verify_and_get_user_id]
-db_multirow enabled_status_types get_enabled_status_types {} {
- set disable_url "disable-status-type?[export_vars status_type_id]"
+table::setTitle enabled "Candidate Status Types"
+db_foreach get_enabled_status_types {} {
+ table::addSortableRow enabled [list "$short_desc" "(<a href=\"edit-status-type?[export_vars status_type_id]\">edit</a>) (<a href=\"disable-status-type?[export_vars status_type_id]\">disable</a>)"]
+} if_no_rows {
+ table::addSortableRow enabled [list "There are no status types. (<a href=new-status-type>create one</a>)"]
}
-db_multirow disabled_status_types get_disabled_status_types {} {
- set enable_url "enable-status-type?[export_vars status_type_id]"
+table::setTitle disabled "Disabled Candidate Status Types"
+db_foreach get_disabled_status_types {} {
+ table::addSortableRow disabled [list "$short_desc" "(<a href=\"enable-status-type?[export_vars status_type_id]\">enable</a>)"]
+} if_no_rows {
+ table::addSortableRow disabled [list "There are no disabled status types"]
}
+table::setTitle options "Options"
+table::addUnsortedRow options [list "<a href=\"new-status-type\">Add new status type</a>"]
+
set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] "Status Types"]
ad_return_template
Index: openacs-4/packages/recruiting/www/admin/new-candidate.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-candidate.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-candidate.adp 30 Jul 2002 22:38:34 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-candidate.adp 31 Jul 2002 23:54:00 -0000 1.2
@@ -1,8 +1,17 @@
-<master>
+<SCRIPT LANGUAGE="JavaScript">
+function openPage(theImage, theWidth, theHeight) {
+ OpenWindow=window.open(theImage, "newwin", config='toolbar=no, menubar=no, scrollbars=yes, resizable=no, location=no, directories=no, status=no, width='+theWidth+', height='+theHeight);
+}
+</SCRIPT>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
+
<if @status_type_count@ ne 0>
<formtemplate id="new_candidate"></formtemplate>
</if>
<else>
There are no candidate status types defined. You must <a href=new-status-type>define a status type</a> before creating candidates.
</else>
+
+
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.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-candidate.tcl 30 Jul 2002 22:38:34 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-candidate.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -81,10 +81,10 @@
-html {size 30}
element create new_candidate status \
- -label "Status:" \
+ -label "Status (<a href=\"javascript:openPage('status-help',400,300)\">help</a>):" \
-datatype integer \
-widget select \
- -options [db_list_of_lists get_status_types "select short_desc,status_type_id from recruiting_status_types where enabled_p='t' order by short_desc"] \
+ -options [db_list_of_lists get_status_types "select short_desc,status_type_id from recruiting_status_types where enabled_p='t' order by short_desc"]
if {[form is_valid new_candidate]} {
form get_values new_candidate \
@@ -109,4 +109,6 @@
ad_script_abort
}
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "New Candidate"]
+
ad_return_template
Index: openacs-4/packages/recruiting/www/admin/new-criteria.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-criteria.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-criteria.adp 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-criteria.adp 31 Jul 2002 23:54:00 -0000 1.2
@@ -1,3 +1,6 @@
-<master>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
<formtemplate id="new_criteria"></formtemplate>
+
+
Index: openacs-4/packages/recruiting/www/admin/new-criteria.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-criteria.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-criteria.tcl 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-criteria.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -37,4 +37,6 @@
ad_script_abort
}
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-criteria" "Criteria Types"] "New Criteria"]
+
ad_return_template
Index: openacs-4/packages/recruiting/www/admin/new-status-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-status-type.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-status-type.adp 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-status-type.adp 31 Jul 2002 23:54:00 -0000 1.2
@@ -1,3 +1,6 @@
-<master>
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
<formtemplate id="new_status_type"></formtemplate>
+
+
Index: openacs-4/packages/recruiting/www/admin/new-status-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/new-status-type.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/recruiting/www/admin/new-status-type.tcl 30 Jul 2002 21:33:38 -0000 1.1
+++ openacs-4/packages/recruiting/www/admin/new-status-type.tcl 31 Jul 2002 23:54:00 -0000 1.2
@@ -37,4 +37,6 @@
ad_script_abort
}
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-status-types" "Status Types"] "New Status Type"]
+
ad_return_template
Index: openacs-4/packages/recruiting/www/admin/recruiting-admin-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/recruiting-admin-master.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/recruiting-admin-master.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,28 @@
+<%
+
+ #
+ # Copyright (C) 2001, 2002 OpenForce, Inc.
+ #
+ # This file is part of dotLRN.
+ #
+ # dotLRN is free software; you can redistribute it and/or modify it under the
+ # terms of the GNU General Public License as published by the Free Software
+ # Foundation; either version 2 of the License, or (at your option) any later
+ # version.
+ #
+ # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY
+ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+ # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+ # details.
+ #
+
+%>
+
+<master>
+
+<if @context_bar@ not nil>
+ <%= [eval dotlrn::admin_navbar $context_bar] %>
+</if>
+<hr>
+<slave>
+
Index: openacs-4/packages/recruiting/www/admin/status-help.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/status-help.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/status-help.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1 @@
+<%= [table::outputTable types] %>
Index: openacs-4/packages/recruiting/www/admin/status-help.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/status-help.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/status-help.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,18 @@
+ad_page_contract {
+ recruiting admin interface
+ list status type definitions
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-31
+ @version $Id: status-help.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+table::setColumnHeadings types [list "Choose this..." "When"]
+db_foreach get_status_types {} {
+ table::addSortableRow types [list "<b>$short_desc</b>" "$long_desc"]
+}
+
+ad_return_template
Index: openacs-4/packages/recruiting/www/admin/status-help.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/status-help.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/status-help.xql 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+<queryset>
+
+ <fullquery name="get_status_types">
+ <querytext>
+ select short_desc,
+ long_desc
+ from recruiting_status_types
+ where enabled_p = 't'
+ order by short_desc
+ </querytext>
+ </fullquery>
+
+</queryset>
Index: openacs-4/packages/recruiting/www/admin/view-one-candidate.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-one-candidate.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/view-one-candidate.adp 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,13 @@
+<master src="recruiting-admin-master">
+<property name="context_bar">@context_bar@</property>
+
+<table width=100%>
+<tr><td>
+<%= [table::outputTable candidate] %>
+<p>
+<%= [table::outputTable interviews] %>
+</td><td valign=top>
+<%= [table::outputTable options] %>
+</td></tr>
+</table>
+
Index: openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/view-one-candidate.tcl 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,54 @@
+ad_page_contract {
+ recruiting admin interface
+ access admin function such as: criteria specification
+ and interviewee status types
+
+ @author chak (chak@openforce.net)
+ @creation-date 2002-07-30
+ @version $Id: view-one-candidate.tcl,v 1.1 2002/07/31 23:54:00 chak Exp $
+} {
+ candidate_id:notnull
+}
+
+set package_id [ad_conn package_id]
+set user_id [ad_verify_and_get_user_id]
+
+array set info [recruiting_candidate::get \
+ -candidate_id $candidate_id]
+
+
+set address "$info(address1)<br>"
+if {![empty_string_p "$info(address2)"]} {
+ append address "$info(address2)"
+}
+append address "$info(city), $info(state) $info(zip)"
+if {![empty_string_p "$info(zip_plus_four)"]} {
+ append address "-$zip_plus_four"
+}
+append address " $info(country)"
+
+table::setTitle candidate "Recruiting Candidate Detail"
+table::addUnsortedRow candidate [list "Name:" "$info(last_name), $info(first_name)"]
+table::addUnsortedRow candidate [list "Address:" "$address"]
+table::addUnsortedRow candidate [list "Status:" "$info(status) (<a href=change-candidate-status?candidate_id=$info(candidate_id)>change status</a>)"]
+
+set possible_ratings [db_string get_num_criteria {}]
+
+table::setTitle interviews "Interviews for this candidate"
+table::setColumnHeadings interviews [list "Interviewer" "Ratings"]
+table::setExportVars interviews [export_vars candidate_id]
+
+db_foreach get_interviews {} {
+ table::addUnsortedRow interviews [list "$last_name, $first_names" "$num_ratings out of $possible_ratings"]
+} if_no_rows {
+ table::addUnsortedRow interviews [list "No Interviews assigned. (<a href=assign-candidate-interview?[export_vars candidate_id]>assign one</a>)"]
+}
+
+table::setTitle options "Options"
+table::addUnsortedRow options [list "<a href=modify-candidate-info?[export_vars candidate_id]>Edit Information</a>"]
+table::addUnsortedRow options [list "<a href=change-candidate-status?[export_vars candidate_id]>Change Status</a>"]
+table::addUnsortedRow options [list "<a href=assign-candidate-interview?[export_vars candidate_id]>Assign Interview</a>"]
+
+set context_bar [list [list "../" "Recruiting"] [list "index" "Admin"] [list "list-candidates" "Candidates"] "One Candidate"]
+
+ad_return_template
Index: openacs-4/packages/recruiting/www/admin/view-one-candidate.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/recruiting/www/admin/view-one-candidate.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/recruiting/www/admin/view-one-candidate.xql 31 Jul 2002 23:54:00 -0000 1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+<queryset>
+ <fullquery name="get_interviews">
+ <querytext>
+ select i.interview_id,
+ p.person_id,
+ p.first_names,
+ p.last_name,
+ (select count(*)
+ from recruiting_ratings r
+ where r.interview_id = i.interview_id) as num_ratings
+ from persons p,
+ recruiting_interviews i
+ where i.interviewer_id = p.person_id
+ and i.candidate_id = :candidate_id
+ order by last_name
+ </querytext>
+ </fullquery>
+
+ <fullquery name="get_num_criteria">
+ <querytext>
+ select count(*)
+ from recruiting_criteria
+ where enabled_p = 't'
+ </querytext>
+ </fullquery>
+
+</queryset>