WebSVN – ORC – Diff – /trunk/perl/tableViewer.pm

 sub fetchDerbyNameWithRCid {
   my $DEPT = shift // "";
 	my $optionList = "";
 	my $cathan;
-	if (!$DEPT) {
+	if (!$DEPT or $DEPT eq "CMP") {
 	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 order by derby_name");
   	$cathan->execute();
 	} else {
     $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and (department like ? and department not like ?) order by derby_name");
 		else
+		{
 			my $thing = "filter-${colName}";
 			return "<INPUT type=text name=$thing value=\"$FORM{$thing}\" size=15 $onChange>";
+		}
+	} elsif ($colFilterTypeHash{$colName} eq 'boolean') {
+		if (defined $filter)
+		{
+			return "$colName = $filter";
+		}
+		else
+		{
+			my $thing = "filter-${colName}";
+			my $Options = "<OPTION></OPTION><OPTION>True</OPTION><OPTION>False</OPTION>";
+			$Options =~ s/>($FORM{$thing})/ selected>$1/;
+			return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
+		}
 	} elsif ($colFilterTypeHash{$colName} eq 'ERROR') {
 		return "<center><strong><font color=red>ERROR!</font>";
 	} elsif ($colFilterTypeHash{$colName} eq 'none') {
 		return;
+	}

Subversion Repositories ORC