removed calls to $dbm->del_dup from DXUser.pm

diff --git a/Changes b/Changes
index f20c0910fc44cdad6683f601db00772606f79baf..f10d76fe5a40550e7fb7e1acad769a8ab899de15 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 18Aug00=======================================================================
-1. added a couple of changes for perl 5.6
+1. added a couple of changes for perl 5.6.0
+2. removed del_dup from DXUser for earlier versions of DB '1.85' (ie real ones
+not 2.x versions in 1.85 compatibility mode).
 15Aug00=======================================================================
 1. added 1.25 of the admin manual html
 14Aug00=======================================================================

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index ff45336f30b6732d765004e1de513c3f6b8ff76f..0785d16b2c1b1a6c1945ef41cc67a074b0a5dbbb 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -209,9 +209,10 @@ sub put
        confess "Trying to put nothing!" unless $self && ref $self;
        my $call = $self->{call};
        # delete all instances of this 
-       for ($dbm->get_dup($call)) {
-               $dbm->del_dup($call, $_);
-       }
+#      for ($dbm->get_dup($call)) {
+#              $dbm->del_dup($call, $_);
+#      }
+       $dbm->del($call);
        delete $self->{annok} if $self->{annok};
        delete $self->{dxok} if $self->{dxok};
        $dbm->put($call, $self->encode);
@@ -255,9 +256,10 @@ sub del
        my $self = shift;
        my $call = $self->{call};
        # delete all instances of this 
-       for ($dbm->get_dup($call)) {
-               $dbm->del_dup($call, $_);
-       }
+#      for ($dbm->get_dup($call)) {
+#              $dbm->del_dup($call, $_);
+#      }
+       $dbm->del($call);
 }
 
 #