<% Response.Buffer=true %>
<!--#include file="../admin_includes/checkLogin.asp"-->
<!--#include file="../global_includes/global.asp"-->
<!--#include file="../admin_includes/querystringValues.asp"-->

<!--#include file="../admin_classes/page.asp"-->

<%
'-- Fixed values
dim page_id
dim page_title
dim statusAction
dim statusComment
dim confirmMessage
dim actionOverride

dim emailToAddress
dim emailFromAddress
dim emailSubject
dim emailMessage

dim pageObj

page_id = request("page_id")
page_title = request("page_title")
statusAction = request("statusAction")
statusComment = request("statusComment")
actionOverride = request("actionOverride")

emailFromAddress = "admin@" & websiteDomainName
emailSubject = "Page submitted for approval"


select case statusAction
	case "submitForApproval"
		strSQL = "UPDATE page_info set page_status = '2' where page_id = " & page_id & " and language_ID = " & session("languageID")
		confirmMessage = "Page%20submitted%20for%20approval"
		call notifyAllEditors()
	
	case "publish"
		
		if actionOverride = "Reject page" then
			strSQL = "UPDATE page_info set page_status = '1' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20rejected"		
		else
			strSQL = "UPDATE page_info set page_status = '3' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20published"
		end if
		
	case "createnewdraftversion"
	
		if actionOverride = "Archive page" then
			
			strSQL = "UPDATE page_info set page_status = '6' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20archived"		
		else
			
			set pageObj = new cPage
			call pageObj.getPage(page_id,session("securityLevel"),session("languageID"),"draft")
			call pageObj.getPageContent()
			call pageObj.createNewPageVersion(page_id, pageObj.p_content_objects, getCurrentDateTime())

			strSQL = "UPDATE page_info set page_status = '4' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "New%20draft%20version%20created"
		end if
		
	case "submitNewForApproval"
		
		if actionOverride = "Discard this draft" then
		
			set pageObj = new cPage
			call pageObj.getPage(page_id,session("securityLevel"),session("languageID"),"draft")
			call pageObj.deletePageVersion(page_id, pageObj.p_version_id, getCurrentDateTime())
	
			strSQL = "UPDATE page_info set page_status = '3' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Draft%20discarded"
		
		else
			strSQL = "UPDATE page_info set page_status = '5' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20submitted%20for%20approval"
			call notifyAllEditors()
		end if
		
	case "publishNew"
		if actionOverride = "Reject page" then
			strSQL = "UPDATE page_info set page_status = '4' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20rejected"		
		
		elseif actionOverride = "Discard this draft" then
		
			set pageObj = new cPage
			call pageObj.getPage(page_id,session("securityLevel"),session("languageID"),"draft")
			call pageObj.deletePageVersion(page_id, pageObj.p_version_id, getCurrentDateTime())
	
			strSQL = "UPDATE page_info set page_status = '3' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Draft%20discarded"
		
		else
			
			set pageObj = new cPage
			call pageObj.getPage(page_id,session("securityLevel"),session("languageID"),"live")			
			call pageObj.deletePageVersion(page_id, pageObj.p_version_id, getCurrentDateTime())
			
			strSQL = "UPDATE page_info set page_status = '3' where page_id = " & page_id & " and language_ID = " & session("languageID")
			confirmMessage = "Page%20published"
		end if
		
	case "restoretodraft"
		strSQL = "UPDATE page_info set page_status = '1' where page_id = " & page_id & " and language_ID = " & session("languageID")
		confirmMessage = "Page%20status%20restored%20to%20draft"	
		
end select

'response.write strSQL
'response.end

RunSQL strSQL
Response.Redirect("ia.asp?mode=editPage&page_id=" & page_id & "&editType=status&confirmMsg=" & confirmMessage)









function notifyAllEditors()
	
	dim nSQL
	dim nRS

	emailMessage = session("name") & " has submitted the page entitled '" & page_title & "' for approval." & VbCrLf & VbCrLf
	if len(statusComment) > 0 then
		emailMessage = emailMessage & "The following comments were entered with this submission: '" & statusComment & "'." & VbCrLf & VbCrLf
	end if
	emailMessage = emailMessage & "Please log into the CMS and then follow this link to approve the page: " & websiteURL & "admin/ia.asp?mode=editPage&page_id=" & page_id & "&editType=status" & VbCrLf & VbCrLf

	nSQL = "Select * from epcms_users where security_level > 2"
	set nRS = LoadRSFromDB(nSQL)
	if not nRS.EOF then
		do while not nRS.EOF
			emailToAddress = nRS("email_address")
			'call sendEmail(emailFromAddress,emailToAddress,emailSubject,emailMessage)

		nRS.movenext
		loop
	end if
	set nRS = nothing
end function
%>