From: minima <minima>
Date: Fri, 18 Aug 2000 14:19:01 +0000 (+0000)
Subject: removed calls to $dbm->del_dup from DXUser.pm
X-Git-Tag: R_1_44~32
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a26d8269de811ac52450fcb411ebac7cab1d382;p=spider.git

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

diff --git a/Changes b/Changes
index f20c0910..f10d76fe 100644
--- 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 ff45336f..0785d16b 100644
--- 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);
 }
 
 #