@@ -349,14 +349,14 @@ ClassMethod SwitchBranch(targetBranchName As %String) As %Status
349
349
350
350
ClassMethod PreSync () As %String
351
351
{
352
- set uncommittedFilesWithAction = ##class (SourceControl.Git.WebUIDriver ).UncommittedWithAction ().%Get (" user" )
352
+ set uncommittedFilesWithAction = ##class (SourceControl.Git.Utils ).UncommittedWithAction ().%Get (" user" )
353
353
quit ..GenerateCommitMessageFromFiles (uncommittedFilesWithAction )
354
354
}
355
355
356
356
/// Commits all the files as needed by the Sync operation
357
357
ClassMethod SyncCommit (Msg As %String ) As %Status
358
358
{
359
- set uncommittedFilesWithAction = ##class (SourceControl.Git.WebUIDriver ).UncommittedWithAction ().%Get (" user" )
359
+ set uncommittedFilesWithAction = ##class (SourceControl.Git.Utils ).UncommittedWithAction ().%Get (" user" )
360
360
set username = ..GitUserName ()
361
361
set email = ..GitUserEmail ()
362
362
set author = username _" <" _email _" >"
@@ -370,7 +370,7 @@ ClassMethod SyncCommit(Msg As %String) As %Status
370
370
/// Goes through all the added files and stages them
371
371
ClassMethod StageAddedFiles ()
372
372
{
373
- set uncommittedFilesWithAction = ##class (SourceControl.Git.WebUIDriver ).UncommittedWithAction ().%Get (" user" )
373
+ set uncommittedFilesWithAction = ##class (SourceControl.Git.Utils ).UncommittedWithAction ().%Get (" user" )
374
374
set iterator = uncommittedFilesWithAction .%GetIterator ()
375
375
while iterator .%GetNext (,.value ,) {
376
376
set file = value .%Get (" file" )
@@ -2073,6 +2073,41 @@ ClassMethod GetSourceControlInclude() As %String
2073
2073
1 : " " )
2074
2074
}
2075
2075
2076
+ ClassMethod UncommittedWithAction () As %Library .DynamicObject
2077
+ {
2078
+ do ##class (SourceControl.Git.Change ).RefreshUncommitted ()
2079
+ do ##class (SourceControl.Git.Utils ).GitStatus (.files , 1 )
2080
+ set output = " "
2081
+ set key = " "
2082
+
2083
+ set editedByCurrentUser = []
2084
+ set fileToOtherDevelopers = {}
2085
+ for {
2086
+ set key = $order (files (key ), 1 , fileData )
2087
+ quit :key =" "
2088
+
2089
+ set filename = ##class (SourceControl.Git.Utils ).FullExternalName (key )
2090
+ if (($ISVALIDNUM (key )) && (files (key ) '= " " )) {
2091
+ set edit = {}
2092
+ do edit .%Set (" file" , $listget (fileData , 2 ))
2093
+ do edit .%Set (" action" , $listget (fileData , 1 ))
2094
+ do editedByCurrentUser .%Push (edit )
2095
+ } else {
2096
+ set sc =##class (SourceControl.Git.Change ).GetUncommitted (filename , .tAction , .tInternalName , .UncommittedUser , .tSource , .UncommittedLastUpdated )
2097
+ if ($$$ISOK(sc )) && ($data (tAction )&&(UncommittedUser =$username )) {
2098
+ set edit = {}
2099
+ do edit .%Set (" file" , $listget (fileData , 2 ))
2100
+ do edit .%Set (" action" , $listget (fileData , 1 ))
2101
+ do editedByCurrentUser .%Push (edit )
2102
+ }
2103
+ }
2104
+ }
2105
+
2106
+ do fileToOtherDevelopers .%Set (" user" , editedByCurrentUser )
2107
+ do fileToOtherDevelopers .%Set (" other" , ##class (SourceControl.Git.Change ).GetOtherDeveloperChanges ())
2108
+ quit fileToOtherDevelopers
2109
+ }
2110
+
2076
2111
ClassMethod BuildCEInstallationPackage (ByRef destination As %String ) As %Status
2077
2112
{
2078
2113
#define sourcedir $System .Util .InstallDirectory ()_" devuser/studio/templates/gitsourcecontrol/"
0 commit comments