X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=60fc1afda1d69c2572710e9252445e4149f75d5f;hb=4f1c00b0c181d994b13bb9b0ff9ea03ee0cf120c;hp=dd31e6f632fffac6003e11bf3b700c8275cfb28b;hpb=d1daa87473f824fcae5751e2576c31265bf53544;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dd31e6f6..60fc1afd 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -412,15 +412,17 @@ sub fields
 
 sub export
 {
-	my $fn = shift;
+	my $name = shift;
 	my $basic_info_only = shift;
+
+	my $fn = "$main::local_data/$name";
 	
 	# save old ones
-	rename "$fn.oooo", "$fn.ooooo" if -e "$fn.oooo";
-	rename "$fn.ooo", "$fn.oooo" if -e "$fn.ooo";
-	rename "$fn.oo", "$fn.ooo" if -e "$fn.oo";
-	rename "$fn.o", "$fn.oo" if -e "$fn.o";
-	rename "$fn", "$fn.o" if -e "$fn";
+	move "$fn.oooo", "$fn.ooooo" if -e "$fn.oooo";
+	move "$fn.ooo", "$fn.oooo" if -e "$fn.ooo";
+	move "$fn.oo", "$fn.ooo" if -e "$fn.oo";
+	move "$fn.o", "$fn.oo" if -e "$fn.o";
+	move "$fn", "$fn.o" if -e "$fn";
 
 	my $count = 0;
 	my $err = 0;