<%@ language=VBScript %>
<!--#include file="../../GlobalResources/Scripts/GlobalData.asp"-->
<!--#include file="../../GlobalResources/Scripts/GlobalFuncLib.asp"-->
<%
  ' ///////////////////////////////////////////////////////
  ' //  Dimac CMS
  ' //  Copyright 2004-2008 Dimac Development AB, Sweden
  ' //	www.Dimac.net
  ' // 
  ' //  NOTE:
  ' //    You are not allowed to remove this
  ' //    Copyright information without written
  ' //    permission from Dimac Development.
  ' ///////////////////////////////////////////////////////

	If NOT CBool(Session("ValidAdminUser")) Then
   	  Response.Redirect("../LIO/loggin.asp")
	End IF  
	
	vInField = Request.Form("InField").Item
	vLangID = Request.Form("langId").Item
	vLangStatus = Request.Form("doc_status").Item
	vMaster = -1
	
	vStartPath = "SiteResources/data/MediaArchive/"
	vSubFolder = Request.ServerVariables("SCRIPT_NAME")
	vSubFolder = Mid(vSubFolder,1, InStr(LCase(vSubFolder),"/cmsadmin/site/doceditcontentsave.asp"))
	vSiteRoot = GetSettingValue("WebSiteRoot", "..\..\SiteResources\Data\")
	
	' -------------------------------------------------------	
		
	Set Conn = Server.CreateObject("ADODB.Connection")
	Set Rs = Server.CreateObject("ADODB.Recordset")

	Conn.Open GetConStr ("..\..\SiteResources\Data\")
	
	SQL = "SELECT * FROM Languages ORDER BY MasterLanguage DESC, ID"
	Rs.Open SQL, Conn
	If Not Rs.EOF And Not Rs.BOF Then
		vMaster = Rs("ID").Value
	End If
	Rs.Close

	' ----------------------------------------------------------------
  	' // Update Language Info
	
	
	' ----------------------------------------------------------------
  	' // Update Document header	
	SQL =       "UPDATE Documents SET "
	If vMaster = -1 Or CStr(vMaster) = CStr(vLangID) Then
		SQL = SQL & "		DocName		= '" & FF(Request.Form("doc_name").Item)  & "',"
	End If
	SQL = SQL & "		PublishDate	= '" & FormatDate(Request.Form("publish").Item) & " " & FormatTime(Request.Form("publishTime").Item)  & "',"
	SQL = SQL & "		ModifiedDate 	    =  '" & FormatDate(Now) & " " & FormatTime(Now)  & "',"
	SQL = SQL & "		ModifiedBy 	    =  '" & Session("User_ID")  & "',"
	SQL = SQL & "		ExpiresDate	= '" & FormatDate(Request.Form("expires").Item) & " " & FormatTime(Request.Form("expiresTime").Item) & "' " 
	SQL = SQL & "WHERE DocumentID = " & Session("DocID")

	If Len( vInField ) < 1 Then ' If Not OPE
		Conn.Execute(SQL)
		
		SQL = "SELECT DocName FROM DocumentLanguages WHERE (DocId = " & Session("DocID") & ") AND (LangId = " & vLangID & ")"
		Rs.Open SQL, Conn, 1, 3
		If Rs.RecordCount = 0 Then
			SQL =	"INSERT INTO DocumentLanguages " & _
					"	(DocID, LangID, DocName, LangStatus) " &_
					"VALUES (" & _
						Session("DocID") & ", " & _
						vLangID & ", '" & _
						FF(Request.Form("doc_name").Item)& "', " & _
						vLangStatus & ")"
		Else
			SQL =	"UPDATE DocumentLanguages SET " &_
					"	DocName='" & FF(Request.Form("doc_name").Item)& "', " & _
					"	LangStatus=" &vLangStatus& _
					" WHERE (DocId = " & Session("DocID") & ") AND (LangId = " & vLangID & ")"
		End If
		Rs.Close
		
		Conn.Execute(SQL)
		
	End If
	
	' ----------------------------------------------------------------
	' // Update Document field
	For Each Field In Request.Form("fields")
	
		SQL = "SELECT FieldID, FieldValue FROM DocumentFIELDS WHERE (DocID=" & Session("DocID")  & ") AND (Name='" & Field & "') AND (LangId=" & vLangID & ")"
		set Rs = Conn.Execute(SQL)  
		
		'response.Write vStartPath & " | " & vSubFolder
		strCurrValue = FF(Request.Form(Field).Item)
		If InStr( strCurrValue, vSubFolder&vStartPath ) > 0 Then
			
			strSep=""
			strTransformed = ""
			For Each strURL In Split( strCurrValue, "src=""" )
				If InStr( LCase( strURL ), LCase( vSiteRoot ) ) > 0 Then
					strURL = Mid( strURL, Len(vSiteRoot) + Len("/") )
				End If
				strTransformed = strTransformed & strSep & strURL
				strSep = "src="""
			Next
			strCurrValue = strTransformed
			
			strCurrValue = Replace( strCurrValue, vSubFolder&vStartPath, vStartPath )
		End If
		
		If Not Rs.EOF Then
		
			If Trim(Rs("FieldValue").value) <> Trim(Request.Form(Field).Item) Then
				SQL =       "UPDATE DocumentFields SET "   
				SQL = SQL & "		FieldValue = '" & strCurrValue & "' "
				SQL = SQL & "WHERE FieldID =" & Rs("FieldID").value
				
				Conn.Execute(SQL)
			End if
			
		Else
			SQL =       "INSERT INTO DocumentFields ("
			SQL = SQL & "   DocID,"
			SQL = SQL & "   Name,"
			SQL = SQL & "	LangId,"			
			SQL = SQL & "   FieldValue)"
			SQL = SQL & "VALUES ("
			SQL = SQL &     Session("DocID") & ",'"
			SQL = SQL &     Field  & "',"
			SQL = SQL &		vLangID & ",'"
			SQL = SQL &     strCurrValue & "')"
			
			Conn.Execute(SQL)
		End If
		
	'	rs.Close
	'	Set rs = Nothing
	Next
	
	If Len( vInField ) < 1 Then ' If Not OPE
		If Session("xView") = "Site" Then
			Response.Redirect("SiteView/start.asp")
		Else
			Response.Redirect("DocEditContent.asp?lang=" & vLangID)
		End IF
	Else
		strOnLoad=" onload=""window.close();"""
	End If 	

' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>	
	
<html>
<head>
	<title></title>
	<link rel="stylesheet" type="text/css" href="../System/CSS/WorkArea.css">
	<META HTTP-EQUIV=PRAGMA CONTENT="NO-CACHE">
</head>
<body <%=strOnLoad%>>
</body>

</html>