1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  | Quintiq file version 2.0 
 |  #parent: #root 
 |  StaticMethod GetVCMBranchName () as String 
 |  { 
 |    Description: 'Gets the active git branch name' 
 |    TextBody: 
 |    [* 
 |      // BLG1 Apr-25-2022 (created) 
 |      branchname := 'None'; 
 |      repodir := DomainModel::Domain().ActiveEditingDirectory(); 
 |      if ( VCRepository::IsExistingRepository("git", repodir) ) 
 |      {    
 |        repo := VCRepository::OpenRepository( "git", "TestRepository", repodir); 
 |        repo.UpdateBranches(); 
 |        activebranch := select(repo, Branches, abranch, abranch.IsActive()); 
 |        branchname := guard( activebranch.Name(), branchname ); 
 |      } 
 |       
 |      return branchname; 
 |    *] 
 |    InterfaceProperties { Accessibility: 'Module' } 
 |  } 
 |  
  |