Index: trunk/ippScripts/scripts/sc_prepare_stack.pl
===================================================================
--- trunk/ippScripts/scripts/sc_prepare_stack.pl	(revision 37833)
+++ trunk/ippScripts/scripts/sc_prepare_stack.pl	(revision 38010)
@@ -23,4 +23,5 @@
 my $remote_hostname = "LANL/Mustang";         # Name of the remote node.
 my $threads_req     = 4;                      # How many threads are we going to use?
+my $have_warps      = 0;                      # Do we have a copy of the warp if we don't find one there?
 
 my $fail_state = "prep_fail";
@@ -156,19 +157,44 @@
 	my $ipp_disk;
 	#  ${remote_root}/tmp/${ipp_disk}
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".fits");
-	($ipp_disk,undef)    = &uri_convert($warp_path_base . ".fits");
-	print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".wt.fits");
-	($ipp_disk,undef)    = &uri_convert($warp_path_base . ".wt.fits");
-	print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".mask.fits");
-	($ipp_disk,undef)    = &uri_convert($warp_path_base . ".mask.fits");
-	print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-        (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".cmf");
-	($ipp_disk,undef)    = &uri_convert($warp_path_base . ".cmf");
-	print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
-	(undef,$remote_file) = &uri_to_outputs($warp_path_base . ".psf");
-	($ipp_disk,undef)    = &uri_convert($warp_path_base . ".psf");
-	print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	if ($have_warps != 0) { # Check to see if we have a copy, because if we do, then we can send it over if it's missing.
+	    (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".fits");
+	    ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".fits");
+	    print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	    (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".wt.fits");
+	    ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".wt.fits");
+	    print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	    (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".mask.fits");
+	    ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".mask.fits");
+	    print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	    (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".cmf");
+	    ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".cmf");
+	    print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	    (undef,$remote_file) = &uri_to_outputs($warp_path_base . ".psf");
+	    ($ipp_disk,undef)    = &uri_convert($warp_path_base . ".psf");
+	    print COMPMAP "$remote_file ${remote_root}/tmp/${ipp_disk}\n";
+
+	}
+	else {
+	    $remote_file = &uri_local_to_remote($warp_path_base . ".fits");
+	    print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+	    $remote_file = &uri_local_to_remote($warp_path_base . ".wt.fits");
+	    print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+	    $remote_file = &uri_local_to_remote($warp_path_base . ".mask.fits");
+	    print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+	    $remote_file = &uri_local_to_remote($warp_path_base . ".cmf");
+	    print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+	    $remote_file = &uri_local_to_remote($warp_path_base . ".psf");
+	    print COMPMAP "$remote_file $remote_file\n";  # No other option, really.
+
+	}
     }