Merge pull request #57 from intersystems/onbeforetimestamp

Implement OnBeforeTimestamp in extension

Author: isc-svelury

cls/SourceControl/Git/Extension.cls

@@ -183,16 +183,22 @@ Method OnMenuItem(MenuName As %String, InternalName As %String, SelectedText As
 
 /// This is called before the actual load of data to give the chance
 /// to load the item from an external format.
-Method OnBeforeLoad(InternalName As %String) As %Status
+Method OnBeforeLoad(InternalName As %String, verbose As %Boolean) As %Status
 {
 	set context = ##class(SourceControl.Git.PackageManagerContext).ForInternalName(InternalName)
 	set InternalName = ##class(Utils).NormalizeInternalName(InternalName)
 	if ##class(Utils).IsInSourceControl(InternalName) {
-		quit ##class(Utils).ImportItem(InternalName)
+		quit ##class(Utils).ImportItem(InternalName,,0)
 	}
 	quit $$$OK
 }
 
+/// Called before Studio checks for the timestamp of an item.
+Method OnBeforeTimestamp(InternalName As %String)
+{
+	quit ..OnBeforeLoad(InternalName,0)
+}
+
 /// 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.

cls/SourceControl/Git/Utils.cls

@@ -804,10 +804,8 @@ ClassMethod FixProjectCspReferences(projectName As %String) As %Status
 
 /// imports file if version in system is newer then version on disk.
 /// if <var>force</var> = 1 then imports in any case.
-ClassMethod ImportItem(InternalName As %String, force As %Boolean = 0) As %Status
+ClassMethod ImportItem(InternalName As %String, force As %Boolean = 0, verbose As %Boolean = 1) As %Status
 {
-    //WRITE "Before Load Of: ", InternalName, " ", ..IsInSourceControl(InternalName), !
-    //q:'..IsInSourceControl(InternalName) $$$OK
     #dim filename As %String = ..FullExternalName(InternalName)
     #dim fileTSH = ##class(%File).GetFileDateModified(filename)
     #dim sc As %Status = $$$OK
@@ -824,7 +822,7 @@ ClassMethod ImportItem(InternalName As %String, force As %Boolean = 0) As %Statu
 	        write "ERROR importing" ,InternalName,!
 	        do $system.Status.DisplayError(sc)
         }
-    } else {
+    } elseif verbose {
 	    write InternalName, " is the same as on-disk version or newer, skipping import",!
     }
     Quit sc