'HideFormScript

Option Public
Option Explicit

Sub Initialize
	Dim Session As New notesSession
	Dim CurrDB As notesdatabase
	Dim formDoc As notesdocument
	Dim formUnid
	Dim TempItem As NotesItem
	Dim FlagsVal
	Set CurrDB = Session.Currentdatabase
	Forall EachForm In CurrDB.Forms
		Select Case EachForm.name
		Case "Memo","Reply","Reply With History"
			formUNID = Strrightback( Strleft( EachForm.notesURL, "?"), "/")
			Set formDoc = CurrDB.GetDocumentByUNID( FormUnid )
			FlagsVal = formDoc.GetItemValue("$Flags")
			If formDoc.HasItem( "$$BackupFormScript") Then
				Set TempItem  = formDoc.GetFirstItem("$$BackupFormScript")			
				Call formDoc.CopyItem( tempitem ,"$$FormScript")
				FlagsVal = FlagsVal(0)  & "P"				
			Else
				Set TempItem  = formDoc.GetFirstItem("$$FormScript")			
				Call formDoc.CopyItem( tempitem ,"$$BackupFormScript")
				FlagsVal = Replace( FlagsVal(0), "P","")
			End If
			Call TempItem.Remove()
			Call formDoc.ReplaceItemValue( "$Flags",FlagsVal)
			Call formDoc.Sign()
			Call formDoc.Save(False,False)
		End Select
	End Forall
End Sub