$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$/) {
} 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";
}