From: Rogan Hamby <rhamby@esilibrary.com>
Date: Thu, 17 May 2018 15:14:09 +0000 (-0400)
Subject: some conditions to make sending partial file transfers to treeline a little cleaner
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=d152a4c3f0c1e8c44266a420d0aa56c1799dcd43;p=contrib%2Fequinox.git

some conditions to make sending partial file transfers to treeline a little cleaner
---

diff --git a/above_the_treeline/above_treeline_export.pl b/above_the_treeline/above_treeline_export.pl
index 7397bd6..8c89a26 100755
--- a/above_the_treeline/above_treeline_export.pl
+++ b/above_the_treeline/above_treeline_export.pl
@@ -139,12 +139,13 @@ if ($files =~ 'bib') {
 
 my $ftp; 
 if (defined $ftp_host and defined $ftp_user) {
+if (defined $ftp_host and defined $ftp_user) {
     $ftp = connect_ftp($ftp_host,$ftp_user,$ftp_password,$ftp_port,$ftp_folder);
-    put_file($item_file,$ftp,$sql_date);
-    put_file($circ_file,$ftp,$sql_date);
-    put_file($hold_file,$ftp,$sql_date);
-    put_file($order_file,$ftp,$sql_date);
-    put_file($bib_file,$ftp,$sql_date);
+    if ($files =~ 'item') { put_file($item_file,$ftp,$sql_date); }
+    if ($files =~ 'circ') { put_file($circ_file,$ftp,$sql_date); }
+    if ($files =~ 'hold') { put_file($hold_file,$ftp,$sql_date); }
+    if ($files =~ 'order') { put_file($order_file,$ftp,$sql_date); }
+    if ($files =~ 'bib') { put_file($bib_file,$ftp,$sql_date); }
     log_event($dbh,'files transferred',$sql_date);
 }