remove hardwired path

This commit is contained in:
Eva Hasler 2012-09-11 17:29:15 +01:00
parent 3f5dcf4d06
commit e6c73ec611

View File

@ -1794,7 +1794,7 @@ sub create_ini {
}
if (defined($_SCORE_OPTIONS) && $_SCORE_OPTIONS =~ /\-+Domain([a-z]+) (\S+)/i) {
my ($method,$file) = ($1,$2);
my $count = `cut -d\\ -f 2 model/domains.44 | sort | uniq | wc -l`;
my $count = `cut -d\\ -f 2 $file | sort | uniq | wc -l`;
$basic_weight_count += $count if $method eq "Indicator" || $method eq "Ratio";
$basic_weight_count += 2**$count-1 if $method eq "Subset";
}