move new path code to beginning

diff --git a/importxml.pl b/importxml.pl
index 4310c69f8e76473cdbbc88c7dbce6c86914f5521..7793d3e69d18f62b215db0feb8404f7bed897d6d 100755 (executable)
--- a/importxml.pl
+++ b/importxml.pl
@@ -27,13 +27,6 @@
 
 use diagnostics;
 use strict;
-use XML::Parser;
-use Data::Dumper;
-$Data::Dumper::Useqq = 1;
-
-require "CGI.pl";
-require "globals.pl";
-$::lockcount = 0;
 
 # figure out which path this script lives in. Set the current path to
 # this and add it to @INC so this will work when run as part of mail
@@ -43,6 +36,14 @@ $path =~ s#(.*)/[^/]+#$1#;
 chdir $path;
 use lib ($path);
 
+use XML::Parser;
+use Data::Dumper;
+$Data::Dumper::Useqq = 1;
+
+require "CGI.pl";
+require "globals.pl";
+$::lockcount = 0;
+
 GetVersionTable();
 ConnectToDatabase();
 
@@ -563,7 +564,6 @@ for (my $k=1 ; $k <= $bugqty ; $k++) {
   }
 }
 
-$log .= "\n\n
 my $subject = "$bugqty bug(s) successfully moved from $urlbase to " 
                . Param("urlbase") ;
 my @to = ($exporter);