|
|
 |
|
Whistleblower Protection: Hotline Information Email |
All CO Employees -
Pursuant to state law, we are required to distribute by e-mail to employees
of the Chancellor's Office the attached Bureau of State Audits
explanation of
the California Whistleblower Protection Act, which includes their Whistleblower
Hotline, and also information about a separate hotline administered by the State Attorney General.
However, as authorized by the Act, the CSU has promulgated its own whistleblower
reporting procedures that can be found at EO-929
(.pdf) and EO-822 (.pdf).
The person who has been designated as the appropriate administrator to receive
protected disclosures from employees of the Chancellor's Office, and to answer
questions about these policies is: Bruce Gibson, Senior Director, Human
Resource Services, 2nd Floor, Chancellor's Office, who can be reached at
(562) 951-4070.
Bruce J. Gibson
Senior Director
HR Services
May 15, 2006
|
|
Last Updated:
<%
'Dim strFileName
'Dim dtmLastModified
'Dim dtmLastModifiedDate
'Dim dtmLastModifiedTime
Dim strFileName, strFileNameCalendar, objFile, objFileSystemObject
Dim dtmLastModified, dtmLastModifiedDate, dtmLastModifiedTime
Dim sLastModifiedMonth
strFileName = Request.ServerVariables("SCRIPT_NAME")
strFileName = Replace(strFileName, "/", "\")
strFileName = Server.MapPath(strFileName)
Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystemObject.GetFile(strFileName)
dtmLastModified = objFile.DateLastModified
Set objFile = Nothing
Set objFileSystemObject = Nothing
dtmLastModifiedDate = FormatDateTime(dtmLastModified, 1)
dtmLastModifiedTime = FormatDateTime(dtmLastModified, 3)
Select Case Month(dtmLastModified)
Case 1
sLastModifiedMonth = "January"
Case 2
sLastModifiedMonth = "February"
Case 3
sLastModifiedMonth = "March"
Case 4
sLastModifiedMonth = "April"
Case 5
sLastModifiedMonth = "May"
Case 6
sLastModifiedMonth = "June"
Case 7
sLastModifiedMonth = "July"
Case 8
sLastModifiedMonth = "August"
Case 9
sLastModifiedMonth = "September"
Case 10
sLastModifiedMonth = "October"
Case 11
sLastModifiedMonth = "November"
Case 12
sLastModifiedMonth = "December"
End Select
Response.Write sLastModifiedMonth & " " & Day(dtmLastModified) & ", " & Year(dtmLastModified)
%>
|
