X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCluster.pm;h=2dad1cb61ffb42c87b74149827ca45e93a05cdd6;hb=07ea293f3919d2da76220b5fbc55b734008ed44c;hp=2b412cd3844ff64cd5b06b80f3e68b59ef08b2ca;hpb=b2e4d1c7378cfd98bd8cdf9304c2bd6e5d4b802c;p=spider.git

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index 2b412cd3..2dad1cb6 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -53,14 +53,21 @@ sub delcluster;
 }
 
 %valid = (
-  mynode => 'Parent Node',
-  call => 'Callsign',
-  confmode => 'Conference Mode',
-  here => 'Here?',
-  dxprot => 'Channel ref',
-  version => 'Node Version',
+  mynode => '0,Parent Node',
+  call => '0,Callsign',
+  confmode => '5,Conference Mode,yesno',
+  here => '5,Here?,yesno',
+  dxprot => '5,Channel ref',
+  version => '5,Node Version',
 );
 
+# return a prompt for a field
+sub field_prompt
+{ 
+  my ($self, $ele) = @_;
+  return $valid{$ele};
+}
+
 sub AUTOLOAD
 {
   my $self = shift;