Started on the dx cluster database stuff

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 101340c8e16be12ceac1c627f09a2359fb7b5d06..f5f7e0491f561351c0a146c5c98cdbcf3b1993b6 100644 (file)
--- 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};