Normalise commodity name case (from uploads)

[ypp-sc-tools.web-live.git] / yarrg / update-master-info

diff --git a/yarrg/update-master-info b/yarrg/update-master-info
index f7574555d88069356991fe261f7d675c148f3098..797eb9da52706a1cc44bbb5a3915a955387f20df 100755 (executable)
--- a/yarrg/update-master-info
+++ b/yarrg/update-master-info
@@ -52,6 +52,8 @@
 # are used without permission.  This program is not endorsed or
 # sponsored by Three Rings.
 
+BEGIN { unshift @INC, qw(.) }
+
 use strict (qw(vars));
 use DBI;
 use Commods;
@@ -95,7 +97,7 @@ sub process_some_info ($$$) {
            next if $h =~ m/^nocommods/;
        }
        next if $sfn =~ m/source-info/ && $h =~ m/^ocean\b/;
-       next if $h =~ m/^client|^vessels|^shot\b/;
+       next if $h =~ m/^client|^vessels|^shot\b|^commodclasses/;
 
        print $df $_, "\n" or die $!;
     }