Versioning

DEVONthink Feedback
8

It’s also easy to use a script to lock the current document (old version) and to create a duplicate (new version):


tell application "DEVONthink Pro"
	set theSelection to the selection
	repeat with theRecord in theSelection
		if (exists parent 1) of theRecord then
			set theDuplicate to duplicate record theRecord to (parent 1 of theRecord)
		else
			set theDuplicate to duplicate record theRecord
		end if
		set name of theDuplicate to (name of theRecord)
		set locking of theRecord to true
	end repeat
end tell

An enhanced version of such a script could move the archived documents to a subgroup too.