ZFIN-9340: Fix paths for imports in perl files and fix warnings (ZFIN…

…#1133)

* ZFIN-9340: Fix path for loading ZFINPerlModules.pm

* ZFIN-9340: Fix warnings:

- Unused variable
- my $dbhost declared twice

server_apps/data_transfer/PUBMED/Journal/checkAndUpdateJournals.pl

@@ -6,7 +6,7 @@
 use DBI;
 use Try::Tiny;
 use FindBin;
-use lib "$FindBin::Bin/../../";
+use lib "$FindBin::Bin/../../../";
 use ZFINPerlModules qw(assertEnvironment);
 assertEnvironment('PGHOST', 'DB_NAME', 'ROOT_PATH', 'TARGETROOT');
 

server_apps/data_transfer/PUBMED/Journal/mergeJournals.pl

@@ -5,7 +5,7 @@
 
 use DBI;
 use FindBin;
-use lib "$FindBin::Bin/../../";
+use lib "$FindBin::Bin/../../../";
 use ZFINPerlModules qw(assertEnvironment);
 assertEnvironment('PGHOST', 'DB_NAME', 'ROOT_PATH');
 

server_apps/data_transfer/ResourceCenters/pullFromCZRC.pl

@@ -105,7 +105,7 @@ ($$)
 	if (system("/local/bin/wget http://www.zfish.cn/$filename")) {
 	    &errorExit("Failed to download $filename file from CZRC.","  See $wgetStatusFile for details.");
 	}
-	$labZdbId = "ZDB-LAB-130226-1";
+	# $labZdbId = "ZDB-LAB-130226-1";
     }
     if (-z $filename) {
 	&errorExit("Downloaded file $filename is empty.  Aborting.",
@@ -138,7 +138,7 @@ ($$)
 # Hard code the ZDB ID of ZIRC
 
 my $czrcZdbId = "ZDB-LAB-130226-1";
-my $labZdbId;
+# my $labZdbId;
 system("/bin/rm -f <!--|ROOT_PATH|-->/server_apps/data_transfer/ResourceCenters/loadReport.txt");
 
 open(ZIRCREPORT, ">> <!--|ROOT_PATH|-->/server_apps/data_transfer/ResourceCenters/loadReport.txt") or die "can't open loadReport.txt";
@@ -167,7 +167,6 @@ ($$)
 $dbh->commit();
 $dbh->disconnect();
 
-my $dbhost = "<!--|PGHOST|-->";
 $dbh = DBI->connect ("DBI:Pg:dbname=$dbname;host=$dbhost", $username, $password)
            or die "Cannot connect to PostgreSQL database: $DBI::errstr\n";