projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix very long standing bug in storing and transmitting spots. The decimal
[spider.git]
/
perl
/
DXCluster.pm
diff --git
a/perl/DXCluster.pm
b/perl/DXCluster.pm
index f87dfdfcf00550318f1e6566a8245d731a3d8d1b..1b81065477c4c9daf5be1c55a4aa5d9e6b07570d 100644
(file)
--- a/
perl/DXCluster.pm
+++ b/
perl/DXCluster.pm
@@
-27,7
+27,7
@@
use vars qw(%cluster %valid);
call => '0,Callsign',
confmode => '0,Conference Mode,yesno',
here => '0,Here?,yesno',
call => '0,Callsign',
confmode => '0,Conference Mode,yesno',
here => '0,Here?,yesno',
- dxchan => '5,Channel Call',
+ dxchan
call
=> '5,Channel Call',
pcversion => '5,Node Version',
list => '5,User List,DXCluster::dolist',
users => '0,No of Users',
pcversion => '5,Node Version',
list => '5,User List,DXCluster::dolist',
users => '0,No of Users',
@@
-41,7
+41,7
@@
sub alloc
$self->{call} = $call;
$self->{confmode} = $confmode;
$self->{here} = $here;
$self->{call} = $call;
$self->{confmode} = $confmode;
$self->{here} = $here;
- $self->{dxchan} = $dxchan->call;
+ $self->{dxchan
call
} = $dxchan->call;
$cluster{$call} = bless $self, $pkg;
return $self;
$cluster{$call} = bless $self, $pkg;
return $self;
@@
-167,11
+167,11
@@
sub dxchan
my $dxchan = shift;
if ($dxchan) {
my $dxchan = shift;
if ($dxchan) {
- $self->{dxchan} = $dxchan->call;
+ $self->{dxchan
call
} = $dxchan->call;
} else {
} else {
- $dxchan = DXChannel->get($self->{dxchan});
+ $dxchan = DXChannel->get($self->{dxchan
call
});
unless ($dxchan) {
unless ($dxchan) {
- my $dxcall = $self->{dxchan};
+ my $dxcall = $self->{dxchan
call
};
my $call = $self->{call};
dbg('err', "parent dxchan $dxcall has disappeared from $call" );
}
my $call = $self->{call};
dbg('err', "parent dxchan $dxcall has disappeared from $call" );
}