Subversion Repositories VORC

Rev

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

Rev 222 Rev 230
Line 66... Line 66...
66 
    if ($filter eq "-blank-") {
 66 
    if ($filter eq "-blank-") {
67 
      return "($colName = '' or isNull($colName) = 1)";
 67 
      return "($colName = '' or isNull($colName) = 1)";
68 
    }
 68 
    }
69 
    return "$colName = \"$filter\"";
 69 
    return "$colName = \"$filter\"";
70 
  } else {
 70 
  } else {
71 
    my $tmpFormValue = param ("filter-${colName}");
 71 
    my $tmpFormValue = getFilterValue ($colName);
72 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or $ORCUSER->{department}->{$_} >= 3 } sort keys %{$DEPTS};
 72 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or $ORCUSER->{department}->{$_} >= 3 } sort keys %{$DEPTS};
73 
    my $Options = "<OPTION></OPTION>".$categories;
 73 
    my $Options = "<OPTION></OPTION>".$categories;
Line 74... Line 74...
74
74
75 
    $Options =~ s/>($tmpFormValue)/ selected>$1/;
 75 
    $Options =~ s/>($tmpFormValue)/ selected>$1/;