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 (executable)
--- 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);
 }