im_display_salary salary salary_periodWhat it does:
Formats salary for nice displayDefined in: /web/philip/tcl/intranet-defs.tcl
Source code:
set display_pref [im_salary_period_display] switch $salary_period { month { if {$display_pref == "month"} { return "[format %6.2f $salary] per month" } elseif {$display_pref == "year"} { return "\$[format %6.2f [expr $salary * 12]] per year" } else { return "\$[format %6.2f $salary] per $salary_period" } } year { if {$display_pref == "month"} { return "[format %6.2f [expr $salary/12]] per month" } elseif {$display_pref == "year"} { return "\$[format %6.2f $salary] per year" } else { return "\$[format %6.2f $salary] per $salary_period" } } default { return "\$[format %6.2f $salary] per $salary_period" } }