Changeset 9097 for trunk/ippScripts/scripts/detrend_norm_calc.pl

Timestamp:

Oct 2, 2006, 12:16:03 PM (20 years ago)

Author:

Paul Price

Message:

Changing 'exp id' to 'exp tag' throughout, following corresponding change in database.

File:

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

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -61 +61 @@
 my %matrix; # Matrix of statistics as a function of exposures and classes
 foreach my $file (@$files) {
-    my $expId = $file->{'exp_id'}; # Exposure ID
+    my $expTag = $file->{'exp_tag'}; # Exposure ID
     my $classId = $file->{'class_id'}; # Class ID
     my $stat = $file->{STATISTIC()}; # Statistic of interest
 
     # Create matrix elements
-    $matrix{$expId} = {} if not defined $matrix{$expId};
-    $matrix{$expId}->{$classId} = $stat;
+    $matrix{$expTag} = {} if not defined $matrix{$expId};
+    $matrix{$expTag}->{$classId} = $stat;
 }
 
 # Generate the input for ppNormCalc
 my $normData;                   # Normalisation data
-foreach my $expId (keys %matrix) {
-    $normData .= "$expId\tMETADATA\n";
-    foreach my $classId (keys %{$matrix{$expId}}) {
-        $normData .= "\t" . $classId . "\tF32\t" . $matrix{$expId}->{$classId} . "\n";
+foreach my $expTag (keys %matrix) {
+    $normData .= "$expTag\tMETADATA\n";
+    foreach my $classId (keys %{$matrix{$expTag}}) {
+        $normData .= "\t" . $classId . "\tF32\t" . $matrix{$expTag}->{$classId} . "\n";
     }
     $normData .= "END\n\n";