fix various issues

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dd31e6f632fffac6003e11bf3b700c8275cfb28b..60fc1afda1d69c2572710e9252445e4149f75d5f 100644 (file)
--- 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;