MEMDB is not spelled MEMBD!
authornorisov <norisov>
Wed, 23 Oct 1996 18:55:13 +0000 (18:55 +0000)
committernorisov <norisov>
Wed, 23 Oct 1996 18:55:13 +0000 (18:55 +0000)
member.pl

index f80d694..bd5e8e5 100644 (file)
--- a/member.pl
+++ b/member.pl
@@ -177,7 +177,7 @@ sub donewmember
        &AddNTerms($recs[7], $useTERM, $numterms);
     $filled = join(';',@recs);
 
-    eval { dbmtie($MEMBD,\%MEM) } || do
+    eval { dbmtie($MEMDB,\%MEM) } || do
     {
         print "\n${beep}Unable to open members database: $!\n";
         return;
@@ -221,7 +221,7 @@ sub dowopasswd
         print "\n${beep}No number entered - aborting.\n\n";
         return;
     }
-    eval { dbmtie($MEMBD,\%MEM) } || do
+    eval { dbmtie($MEMDB,\%MEM) } || do
     {
         print "\n${beep}Unable to open members database: $!\n";
         return;