($self->{dxcc}, $self->{itu}, $self->{cq}, $self->{state}, $self->{city}) =
Prefix::cty_data($call);
- $self->{flags} = here(1);
+ $self->{flags} = 1;
return $self;
}
return @{$self->{$_[0]}} == 0;
}
-sub is_aranea
-{
- my $self = shift;
- $self->{aranea} = shift if @_;
- return $self->{aranea};
-}
-
#
# flag field constructors/enquirers
#
sub here
{
my $self = shift;
- my $r = shift;
- return $self ? 2 : 0 unless ref $self;
- return ($self->{flags} & 2) ? 1 : 0 unless defined $r;
- $self->{flags} = (($self->{flags} & ~1) | ($r ? 1 : 0));
- return $r ? 1 : 0;
+ $self->{flags} = shift if @_;
+ return $self->{flags};
}
+# conferencing in the ak1a sense is not supported
sub conf
{
my $self = shift;
- my $r = shift;
- return $self ? 2 : 0 unless ref $self;
- return ($self->{flags} & 1) ? 1 : 0 unless defined $r;
- $self->{flags} = (($self->{flags} & ~2) | ($r ? 2 : 0));
- return $r ? 2 : 0;
+ return 0;
}
sub parents