Changeset 13119 for trunk/ippScripts/scripts/stack_skycell.pl

Timestamp:

May 1, 2007, 3:38:49 PM (19 years ago)

Author:

Paul Price

Message:

Need to determine tess_id.

File:

• trunk/ippScripts/scripts/stack_skycell.pl (modified) (1 diff)

trunk/ippScripts/scripts/stack_skycell.pl

@@ -83 +83 @@
 my $inputList;                  # List of input files
 my $skycell_id;                 # Skycell identifier
+my $tess_id;                    # Tesselation identifier
 my $camera;                     # Camera
 foreach my $file (@$files) {
     my $uri = $ipprc->convert_filename_absolute( $file->{uri} ); # URI for file
     $inputList .= "$uri ";
+    if (defined $tess_id) {
+        &my_die("Tesselation identifiers don't match", $diff_id, $PS_EXIT_SYS_ERROR) unless
+            $file->{tess_id} eq $tess_id;
+    } else {
+        $tess_id = $file->{tess_id};
+    }
     if (defined $skycell_id) {
         &my_die("Skycell identifiers don't match", $stack_id, $PS_EXIT_SYS_ERROR) unless