X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXUser.pm;h=f5f7e0491f561351c0a146c5c98cdbcf3b1993b6;hp=101340c8e16be12ceac1c627f09a2359fb7b5d06;hb=6b6a8002929017b6d4217f68fa492a2d728ee1fe;hpb=03d1d04e113f38a365f035612552a5e748b324ae

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 101340c8..f5f7e049 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -131,7 +131,7 @@ sub close
 # return a list of valid elements 
 # 
 
-sub elements
+sub fields
 {
   return keys(%valid);
 }
@@ -140,7 +140,7 @@ sub elements
 # return a prompt for a field
 #
 
-sub prompt
+sub field_prompt
 { 
   my ($self, $ele) = @_;
   return $valid{$ele};