diff materials/parsealloys.pl @ 319:32c434c34238 misc

Fix.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 30 Dec 2015 14:36:31 +0200
parents a4dff42fc40e
children 0a62974ff1f3
line wrap: on
line diff
--- a/materials/parsealloys.pl	Wed Dec 30 14:14:36 2015 +0200
+++ b/materials/parsealloys.pl	Wed Dec 30 14:36:31 2015 +0200
@@ -211,7 +211,7 @@
   foreach my $type (sort { $a cmp $b } keys %{$Materials::matByType})
   {
     my $subtotal = 0;
-    print "\n".$$Materials::revTransTable{99}{$type}." alloys\n".
+    print "\n".$$Materials::revTransTable{16}{$type}." alloys\n".
     "=========================================================\n";
 
     foreach my $min1 (@{$$Materials::matByType{$type}})