Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

ARRL FD - reduce high number of home/portable club stations (W7SST) #287

Merged
merged 2 commits into from
Mar 12, 2024
Merged

ARRL FD - reduce high number of home/portable club stations (W7SST) #287

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
54396eb
ARRL FD - reduce high number of home/portable club stations (W7SST)
w7sst Mar 11, 2024
f645825
move variables outside of inner loop.
w7sst Mar 12, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 18 additions & 3 deletions ArrlFd.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -59,6 +59,8 @@ function TArrlFieldDay.LoadCallHistory(const AUserCallsign : string) : boolean;
var
slst, tl: TStringList;
i: integer;
S : String;
HomeStn, PortableStn : Boolean;
rec: TFdCallRec;
begin
// reload call history if empty
Expand Down Expand Up @@ -95,9 +97,22 @@ function TArrlFieldDay.LoadCallHistory(const AUserCallsign : string) : boolean;
if rec.Call='' then continue;
if rec.StnClass='' then continue;
if rec.Section='' then continue;
//if IsNum(rec.Number) = False then continue;
//if length(rec.Name) > 10 then continue;
//if length(rec.Name) > 12 then continue;

// In 2020, Covid resulted in FD rule changes allowing home stations
// to be used and contribute to the operator's club score. This
// resulted in an above average number of home stations since these
// stations were connected to the clubs score.
//
// Skip home (D/E) and portable (B) stations with a club name by
// assuming they are associated with a club. This is not 100%
// accurate since many clubs operated as a portable station without
// a corresponding club call operating under Class A (Club).
// Note - this algorithm will be revised after v1.84 release.
S := rec.StnClass.Substring(rec.StnClass.Length-1);
HomeStn := S.Equals('D') or S.Equals('E');
PortableStn := S.Equals('B');
if (HomeStn or PortableStn) and not rec.UserText.IsEmpty then
continue;

FdCallList.Add(rec);
rec := nil;
Expand Down