Changeset 31606 for branches/czw_branch/20110406/pstamp/scripts/detectability_respond.pl

Timestamp:

Jun 6, 2011, 1:56:22 PM (15 years ago)

Author:

watersc1

Message:

merge from trunk before working on new stacking code

Location:

branches/czw_branch/20110406

Files:

• . (modified) (1 prop)
• pstamp/scripts/detectability_respond.pl (modified) (2 diffs)

branches/czw_branch/20110406/pstamp/scripts/detectability_respond.pl

@@ -718 +718 @@
     foreach my $fpa_id (sort {$query{$a}{ROWNUM}[0] <=> $query{$b}{ROWNUM}[0] } (keys %query)) {
         if ($fpa_id eq 'Not_Set') {
-            foreach my $index (@{ $query{$a}{ROWNUM} }) {
+            foreach my $index (@{ $query{$fpa_id}{ROWNUM} }) {
                 push @{ $query{$fpa_id}{PROC_ERROR} }, 23;
                 push @{ $query{$fpa_id}{NPIX} }, -1;
@@ -732 +732 @@
         }
         
-        print "BADPLACE: $fpa_id\n";
+        print "BADPLACE: $fpa_id $query{$fpa_id}\n";
+        foreach my $k (keys %{ $query{$fpa_id} }) {
+            print "$k $query{$fpa_id}{$k}\n";
+        }
+        unless (defined($query{$fpa_id}{ROWNUM})) {
+            $
         push @{$colData{'ROWNUM'}}, @{ $query{$fpa_id}{ROWNUM} };
         push @{$colData{'ERROR_CODE'}}, @{ $query{$fpa_id}{PROC_ERROR} };