Subversion Repositories VORC

Rev

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

Rev 58 Rev 62
Line 135... Line 135...
135 
	if ($filter)	{
 135 
	if ($filter)	{
136 
		return $filter =~ /^R-/ ? "$colName = '$filter'" : $filter eq "pass" ? "isnull($colName) = 0" : "isnull($colName) = 1";
 136 
		return $filter =~ /^R-/ ? "$colName = '$filter'" : $filter eq "pass" ? "isnull($colName) = 0" : "isnull($colName) = 1";
137 
	} else {
 137 
	} else {
138 
    my @options = ("", "pass", "no pass");
 138 
    my @options = ("", "pass", "no pass");
139 
    my $dbh = getRCDBH;
 139 
    my $dbh = getRCDBH;
140 
    push @options, map { @{$_} } $dbh->selectall_array ("select MVPid from RCid_ticket_link order by MVPid");
 140 
    push @options, map { @{$_} } @{$dbh->selectall_arrayref ("select MVPid from RCid_ticket_link order by MVPid")};
Line 141... Line 141...
141
141
142 
    @options = map { $FORM{"filter-MVPid"} eq $_ ?
 142 
    @options = map { $FORM{"filter-MVPid"} eq $_ ?
143 
                       ( $h->option ({ selected=>[] }, $_) ) :
 143 
                       ( $h->option ({ selected=>[] }, $_) ) :