return $dbh;
}
-sub getUnits() {
+sub getShares {
my @ret;
my $dbh = get_dbh();
push @ret, { 'id' => '', 'share' => '-'}; # dummy any
while ( my $row = $sth->fetchrow_hashref() ) {
+ if ( my $hide = $Conf{SearchHideShare} ) {
+ next if $row->{share} =~ m/$hide/;
+ }
push @ret, $row;
}
return @ret;