Browse Source

don't produce a warning on prefixes longer than 5 characters

develop
Fabian Kurz 5 years ago
parent
commit
035224f393
  1. 3
      yfksubs.pl

3
yfksubs.pl

@ -1261,9 +1261,10 @@ sub callinfo {
# added whitespaces behind it so any previous entries will be
# overwritten.
my @dxcc = &dxcc($call); # dxcc array gets filled
my $sprefix = substr($prefix, 0, 5);
addstr($dxwin, 0,9, $dxcc[0]." " x (25-length($dxcc[0])));
addstr($dxwin, 0,40, $dxcc[7]." " x (5-length($dxcc[7])));
addstr($dxwin, 0,51, $prefix." " x (5-length($prefix)));
addstr($dxwin, 0,51, $sprefix." " x (5-length($sprefix)));
addstr($dxwin, 0,61, $dxcc[2]." " x (2-length($dxcc[2])));
addstr($dxwin, 0,69, $dxcc[1]." " x (2-length($dxcc[1])));
addstr($dxwin, 1,5, $dxcc[4]." " x (7-length($dxcc[4])));

Loading…
Cancel
Save