X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2FCommods.pm;h=bce9a8e13b2cb33afd05feb7ada3d2410aa5ea02;hp=91781126d319a32c5f0a5d15f3ec499c82af1fbb;hb=fc8ad971bcaad7dfc125dcc65e3ee2a3e11bbe9c;hpb=9089113ed14d3a01ebe805ee15bd08705a59f172

diff --git a/yarrg/Commods.pm b/yarrg/Commods.pm
index 9178112..bce9a8e 100644
--- a/yarrg/Commods.pm
+++ b/yarrg/Commods.pm
@@ -207,6 +207,7 @@ sub parse_info1 ($$$) {
 	    $commods{$ucname}{Srcs} .= $ss;
 	    my $c= $commods{$ucname};
 	    $c->{Volume}= 1000;
+	    $c->{Flags}= '';
 	    my ($ordval, $ordclassval);
 	    foreach my $prop (defined $props ? split /\s+/, $props : ()) {
 		if ($prop =~ m/^([1-9]\d*)(k?)g$/) {
@@ -220,6 +221,8 @@ sub parse_info1 ($$$) {
 		} elsif ($prop =~ m/^\@(\d+\+?)$/) {
 		    $ordval= $1;
 		    $ordval =~ s/^(\d+)\+$/ $1 + $lnoix * 10 /e;
+		} elsif ($prop =~ m/^\!([a-z]+)$/) {
+		    $c->{Flags} .= $1;
 		} else {
 		    die "unknown property $prop for $ucname";
 		}