- added inranet-hr-procs.tcl

tcl/intranet-hr-procs.tcl

+# /packages/intranet-hr/tcl/intranet-hr-procs.tcl
+#
+# Copyright (C) 2003-2004 Project/Open
+#
+# All rights reserved. Please check
+# http://www.project-open.com/license/ for details.
+
+ad_library {
+    Common procedures to implement employee specific functions:
+
+    @author frank.bergmann@project-open.com
+}
+
+# ----------------------------------------------------------------------
+# Employee Info Component
+# Some simple extension data for employeers
+# ----------------------------------------------------------------------
+
+ad_proc im_employee_info_component { employee_id return_url {view_name ""} } {
+    Show some simple information about a employeer
+} {
+    set current_user_id [ad_get_user_id]
+    if {"" == $view_name} { set view_name "employees_view" }
+    ns_log Notice "im_employee_info_component: employee_id=$employee_id, view_name=$view_name"
+    set department_url "/intranet/intranet-cost/cost_centers/view?cost_center_id="
+    set user_url "/intranet/users/view?user_id="
+
+    set view 0
+    set read 0
+    set write 0
+    set admin 0
+    im_user_permissions $current_user_id $employee_id view read write admin
+
+    set td_class(0) "class=roweven"
+    set td_class(1) "class=rowodd"
+
+    # employee_id gets modified by the SQl ... :-(
+    set org_employee_id $employee_id    
+
+    db_1row employee_info "
+	select	
+		pe.first_names||' '||pe.last_name as user_name,
+		p.email,
+		e.*,
+		rc.*,
+		u.user_id,
+		cc.cost_center_name as department_name,
+		im_name_from_user_id(e.supervisor_id) as supervisor_name
+	from	
+		users u,
+		im_employees e,
+		im_repeating_costs rc,
+		parties p,
+		persons pe,
+		im_cost_centers cc
+	where	
+		pe.person_id = u.user_id
+		and p.party_id = u.user_id
+		and u.user_id = rc.cost_id(+)
+		and u.user_id = :employee_id
+		and u.user_id = e.employee_id(+)
+		and e.department_id = cc.cost_center_id(+)
+	"
+
+    set view_id [db_string get_view "select view_id from im_views where view_name=:view_name" -default 0]
+    ns_log Notice "im_employee_info_component: view_id=$view_id"
+
+    set column_sql "
+	select	c.column_name,
+		c.column_render_tcl,
+		c.visible_for
+	from	im_view_columns c
+	where	c.view_id=:view_id
+	order by sort_order"
+
+   set employee_id $org_employee_id
+   set employee_html "
+	<form method=POST action=/intranet-hr/new>
+	[export_form_vars employee_id return_url]
+	<table cellpadding=1 cellspacing=1 border=0>
+	<tr> 
+	  <td colspan=2 class=rowtitle align=center>Employee Information</td>
+	</tr>\n"
+
+    set ctr 1
+    # if the row makes references to "private Note" and the user isn't
+    # adminstrator, this row don't appear in the browser.
+    db_foreach column_list_sql $column_sql {
+        if {1 || [eval $visible_for]} {
+	    append employee_html "
+                <tr $td_class([expr $ctr % 2])>
+		<td>$column_name &nbsp;</td><td>"
+	    set cmd "append employee_html $column_render_tcl"
+	    eval $cmd
+	    append employee_html "</td></tr>\n"
+	    incr ctr
+        }
+    }
+
+    if {$admin } {
+        append employee_html "
+        <tr $td_class([expr $ctr % 2])>
+        <td></td><td><input type=submit value='Edit'></td></tr>\n"
+    }
+    append employee_html "</table></form>\n"
+
+    return $employee_html
+}