From 3d29b1a4d4aab997da2deff10470068601744530 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 13 Nov 1998 19:31:21 +0000
Subject: [PATCH] tweeked the band handling a touch to see bands with more than
 one part

---
 cmd/show/bands.pl | 12 +++++++++---
 data/bands.pl     |  3 ++-
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/cmd/show/bands.pl b/cmd/show/bands.pl
index 158238f3..5e71ec0f 100644
--- 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 c394f390..7ce539d1 100644
--- 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],
-- 
2.43.0