%sySite,svn,%occErrors %Studio.SourceControl.Base Product name, e.g. VSS, ClearCase, CVS, etc.. SVN 2.18 %Boolean set this to true if something goes wrong with svn connection %Boolean 0 keep user name for description purposes %String 1 password from login, use for svn.exe --password option when specified by the user %String modified version %String %String GUID of recently used instance of a Command object %String 1 indicated whether this is a new project so it needs checkout instead of update when opening (and when allowed for auto-checkout/update) %Boolean svn.Helper %String 1 ]]> */ ]]> %Status Command:%String,Param:%String="" %Status %Status %String Settings menu to create " set tTxt(3)=" project settings in Cache! " set tTxt(4)=" Once finished, please close and re-open Studio. " set tLen=0 for i=1:1:4 if $l(tTxt(i))>tLen set tLen=$l(tTxt(i)) set tLen=tLen+2 write ! for i=1:1:tLen+2 write "*" for i=1:1:3 write !,"*" s tSpace=tLen-$l(tTxt(i))\2-1 s tTxt(i)=$j(" ",tSpace)_tTxt(i) s tSpace=tLen-$l(tTxt(i)) w tTxt(i)_$j(" ",tSpace),"*" write !,"*" for i=1:1:tLen write "-" write "*" for i=4 write !,"*" s tSpace=tLen-$l(tTxt(i))\2-1 s tTxt(i)=$j(" ",tSpace)_tTxt(i) s tSpace=tLen-$l(tTxt(i)) w tTxt(i)_$j(" ",tSpace),"*" write ! for i=1:1:tLen+2 write "*" set Active=0 } Quit Active ]]> also, setup environment]]> Name:%String,Password:%String %Status >> Can't execute command! <<<" throw ##class(%Exception.StatusException).CreateFromStatus($$$ERROR($$$CANNOTEXECUTECOMMAND)) use tCmd read tMsgOut close tCmd set x=$s($$$ISWINDOWS:$p(tMsgOut,"=",2),1:tMsgOut) set ..svnHelper.Temp=$tr(x,$c(13,10),"")_$$$FolderDelimiter // Cache aparently doesn't like Windows TEMP directory abbreviation with ~ characters // so we need to introduce our own 'good looking' temp folder if $$$ISWINDOWS { if '##class(%File).DirectoryExists("c:\temp\") do ..svnHelper.MakeDir("c:\temp\") set ..svnHelper.Temp="c:\temp\" } } catch (ex) { if ex.%IsA("%Exception.StatusException") { // } else { d BACK^%ETN if ..Debug write !,"[[ Error in 'Login()' :,",$ze write !,"*** SVN: Can't login!" set tSC=$$$ERROR($$$GeneralError) } } quit tSC ]]> expression %Boolean This is called after the item has been saved to the database. It may be passed a reference to the object representing the item just saved. It can be use to export this documement to an external form for example. InternalName:%String,Object:%RegisteredObject=$$$NULLOREF %Status add into repository do ..svnHelper.SVNExport(InternalName) If ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object_" AddEnd" }Catch (Exception){ w !," *** Kutac : error OnAfterSave" w !," "_Exception.DisplayString() } Quit $$$OK ]]> expression %String %Boolean 1 Arg:%Boolean %Status 1 ExternalName:%String %String Called after an item is deleted. InternalName:%String %Status Called after the compile of the item is done. InternalName:%String %Status InternalName:%String %Status InternalName:%String,Location:%String="",Object:%RegisteredObject=$$$NULLOREF %Status InternalName:%String %Status InternalName:%String,Object:%RegisteredObject=$$$NULLOREF %Status