Subversion Repositories ORC

Rev

Rev 24 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 24 Rev 26
Line 188... Line 188...
188 
 
 188 
 
189 
# Process any filters provided in the form to pass to the database
 189 
# Process any filters provided in the form to pass to the database
190 
my @whereClause = map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;
 190 
my @whereClause = map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;
191 
#warn @whereClause;
 191 
#warn @whereClause;
192 
if ($LVL < 4) {
 192 
if ($LVL < 4) {
193 
  warn keys %{$ORCUSER->{department}};
 193 
#  warn keys %{$ORCUSER->{department}};
194 
  my $string = join " or ", map { 'department like "%'.$_.'%"' } grep { $ORCUSER->{department}->{$_} >= 2 } keys %{$ORCUSER->{department}};
 194 
  my $string = join " or ", map { 'department like "%'.$_.'%"' } grep { $ORCUSER->{department}->{$_} >= 2 } keys %{$ORCUSER->{department}};
195 
  $string = "($string)";
 195 
  $string = "($string)";
196 
  warn $string;
 196 
#  warn $string;
197 
  push @whereClause, $string;
 197 
  push @whereClause, $string;
198 
}
 198 
}