Преглед изворни кода

--- Merging r31944 into '.':
U packages/fpmkunit/src/fpmkunit.pp
--- Recording mergeinfo for merge of r31944 into '.':
U .

# revisions: 31944

git-svn-id: branches/fixes_3_0@31973 -

joost пре 10 година
родитељ
комит
06b9bda86d
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      packages/fpmkunit/src/fpmkunit.pp

+ 2 - 1
packages/fpmkunit/src/fpmkunit.pp

@@ -3772,7 +3772,8 @@ begin
       Values[KeyName]:=Name;
       Values[KeyVersion]:=Version;
       // TODO Generate checksum based on PPUs
-      Values[KeyChecksum]:=IntToStr(DateTimeToFileDate(Now));
+      InstalledChecksum:=DateTimeToFileDate(Now);
+      Values[KeyChecksum]:=IntToStr(InstalledChecksum);
       Values[KeyCPU]:=CPUToString(ACPU);
       Values[KeyOS]:=OSToString(AOS);
       //Installer;