eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix

This commit is contained in:
mysticbbs 2013-03-08 09:01:57 -05:00
parent 728837c4c8
commit 40f83d1727
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/mutil_importmsgbase.pas
View File

@ -34,7 +34,7 @@ Begin
BaseName := JustFileName(Info.Name); BaseName := JustFileName(Info.Name);
BaseExt := strUpper(JustFileExt(Info.Name)); BaseExt := strUpper(JustFileExt(Info.Name));
If ((BaseExt = 'JHR') or (BaseExt = 'SQD')) And Not IsDupeMBase(BaseName) Then Begin If ((BaseExt = 'JHR') or (BaseExt = 'SQD')) And (BaseName <> '') And Not IsDupeMBase(BaseName) Then Begin
ProcessStatus (BaseName, False); ProcessStatus (BaseName, False);
FillChar (MBase, SizeOf(MBase), #0); FillChar (MBase, SizeOf(MBase), #0);