Subversion Repositories ORC

Rev

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

Rev 39 Rev 42
Line 142... Line 142...
142 
			return "($colName = '' or isNull($colName) = 1)";
 142 
			return "($colName = '' or isNull($colName) = 1)";
143 
		}
 143 
		}
144 
		return "$colName = \"$filter\"";
 144 
		return "$colName = \"$filter\"";
145 
	}	else {
 145 
	}	else {
146 
		my $thing = "filter-${colName}";
146 
		my $thing = "filter-${colName}";
147 
    my $categories = join "", map { $FORM{$thing} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or exists $user->{department}->{$_} } sort keys %{$DEPTS};
 147 
    my $categories = join "", map { $FORM{$thing} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or $user->{department}->{VCI} >= 2 or exists $user->{department}->{$_} } sort keys %{$DEPTS};
148 
		my $Options = "<OPTION></OPTION>".$categories;
 148 
		my $Options = "<OPTION></OPTION>".$categories;
Line 149... Line 149...
149 
 
 149 
 
150 
		$Options =~ s/>($FORM{$thing})/ selected>$1/;
 150 
		$Options =~ s/>($FORM{$thing})/ selected>$1/;
151 
		return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
 151 
		return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";