Subversion Repositories ORC

Rev

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

Rev 9 Rev 16
Line 104... Line 104...
104 
	my $cathan;
 104 
	my $cathan;
105 
	if (!$DEPT) {
 105 
	if (!$DEPT) {
106 
	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 order by derby_name");
 106 
	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 order by derby_name");
107 
  	$cathan->execute();
 107 
  	$cathan->execute();
108 
	} else {
 108 
	} else {
109 
	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and department like ? order by derby_name");
 109 
    $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and (department like ? and department not like ?) order by derby_name");
110 
  	$cathan->execute("%".$DEPT."%");
 110 
    $cathan->execute("%".$DEPT."%", "%".$DEPT."-0%");
111 
	}
 111 
	}
Line 112... Line 112...
112 
 
 112 
 
113 
	while (my ($id, $cat) = $cathan->fetchrow) {
 113 
	while (my ($id, $cat) = $cathan->fetchrow) {
114 
		$optionList .= "<OPTION value=$id>$cat</OPTION>";
 114 
		$optionList .= "<OPTION value=$id>$cat</OPTION>";