Index: /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_stack_mdc.pl
===================================================================
--- /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_stack_mdc.pl	(revision 37344)
+++ /tags/ipp-pv3-20140717/ippScripts/scripts/sc_mk_stack_mdc.pl	(revision 37345)
@@ -33,4 +33,7 @@
     my $file = "";
     my $error = 0;
+
+#   print "PB: $path_base\n";
+
     #header
     $mdc_content .= "INPUT${counter}  METADATA\n";
@@ -55,7 +58,7 @@
     $mdc_content .=  "   BKGMODEL        STR     ${path_base}.mdl.fits\n";
     $mdc_content .=  "END\n\n";
-
+#    print "MDC: $mdc_content\n";
     # If we had no errors, print it and move on.
-    if ($error != 0) {
+    if ($error == 0) {
 	print $mdc_content;
     }
@@ -65,13 +68,16 @@
 
 sub do_checks {
-    my $file = shift(@ARGV);
-    if (! ((-e $file)&&(-s $file))) { # This file does not exist or is zero size.
-	$file = "${remote_root}/tmp/$component_map{$file}";
-	if (! ((-e $file)&&(-s $file))) { # The other expected file did not exist.
-	    $file = '';
-	    die "Missing file!";
+    my ($cfile,$error) = @_;
+#    print  ">$cfile<\n";
+    if (! ((-e $cfile)&&(-s $cfile))) { # This cfile does not exist or is zero size.
+	my $disk = $component_map{$cfile};
+	$cfile = "${remote_root}/tmp/${disk}";
+	if (! ((-e $cfile)&&(-s $cfile))) { # The other expected cfile did not exist.
+	    $cfile = '';
+	    $error++;
+	    die "Missing cfile!";
 	}
     }
-    return($file);
+    return($cfile);
 }