Subversion Repositories VORC

Rev

Rev 229 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 229 Rev 230
Line 93... Line 93...
93 
    if ($filter eq "-blank-") {
 93 
    if ($filter eq "-blank-") {
94 
      return "($colName = '' or isNull($colName) = 1)";
 94 
      return "($colName = '' or isNull($colName) = 1)";
95 
    }
 95 
    }
96 
    return "$colName = \"$filter\"";
 96 
    return "$colName = \"$filter\"";
97 
  } else {
 97 
  } else {
98 
    my $tmpFormValue = param ("filter-${colName}"); $tmpFormValue //= url_param ("filter-${colName}");
 98 
    my $tmpFormValue = getFilterValue ($colName);
99 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or exists $ORCUSER->{department}->{$_} } grep { !/^PER$/ } sort keys %{$DEPTS};
 99 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or exists $ORCUSER->{department}->{$_} } grep { !/^PER$/ } sort keys %{$DEPTS};
100 
    my $Options = "<OPTION></OPTION>".$categories;
 100 
    my $Options = "<OPTION></OPTION>".$categories;
Line 101... Line 101...
101
101