tweeked the band handling a touch to see bands with more than one part

diff --git a/cmd/show/bands.pl b/cmd/show/bands.pl
index 158238f3d13c3dbd01b6f5433a8873ab5d1ee94c..5e71ec0f999b345371ad717940f2c68cf07e452b 100644 (file)
--- a/cmd/show/bands.pl
+++ b/cmd/show/bands.pl
@@ -9,15 +9,21 @@ my @f = split /\s+/, $line;
 my @bands;
 my $band;
 my @out;
+my $i;
 
 if (!$line) {
   @bands = sort { Bands::get($a)->band->[0] <=> Bands::get($b)->band->[0] } Bands::get_keys();
   push @out, "Bands Available:-";
   foreach $band (@bands) {
     my $ref = Bands::get($band)->band;
-    my $from = $ref->[0];
-    my $to = $ref->[1];
-    push @out, sprintf "%10s: %d -> %d", $band, $from, $to;
+    my $s = sprintf "%10s: ", $band;
+    for ($i = 0; $i < $#{$ref}; $i += 2) {
+      my $from = $ref->[$i];
+      my $to = $ref->[$i+1];
+      $s .= ", " if $i;
+      $s .= "$from -> $to";
+    }
+    push @out, $s;
   } 
   push @out, "Regions Available:-";
   @bands = Bands::get_region_keys();

diff --git a/data/bands.pl b/data/bands.pl
index c394f390a544479ef2afa4d7d98bd2095dae4002..7ce539d1d282e392e698eb60393af59c123b300b 100644 (file)
--- a/data/bands.pl
+++ b/data/bands.pl
@@ -12,6 +12,7 @@
 # It is up to YOU to make sure that it makes sense!
 # 
 
+
 %bands = (
   '160m' => bless( { band => [ 1800, 2000 ], 
                      cw => [ 1800, 1830 ], 
@@ -130,7 +131,7 @@
                      ssb => [47087000, 47089000],
                   }, 'Bands'),
 
-   'band1' => bless ( { band => [47000, 68000],
+   'band1' => bless ( { band => [47000, 49999, 52000, 68000],
                       }, 'Bands'),
                      
    'band2' => bless ( { band => [87500, 108000],