Subversion Repositories VORC

Rev

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

Rev 57 Rev 58
Line 115... Line 115...
115 
	my $cathan;
 115 
	my $cathan;
116 
	if (!$DEPT or $DEPT eq "CMP") {
 116 
	if (!$DEPT or $DEPT eq "CMP") {
117 
	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 order by derby_name");
 117 
	  $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 order by derby_name");
118 
  	$cathan->execute();
 118 
  	$cathan->execute();
119 
  } elsif ($DEPT eq "CLA") {
 119 
  } elsif ($DEPT eq "CLA") {
120 
    $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and mvp_pass = true and last_login > CURRENT_DATE - INTERVAL 365 DAY order by derby_name");
 120 
    $cathan = $internalDBH->prepare("select RCid, derby_name from v_official where level > 0 and isnull(MVPid) = false and last_login > CURRENT_DATE - INTERVAL 365 DAY order by derby_name");
121 
    $cathan->execute;
 121 
    $cathan->execute;
122 
	} else {
 122 
	} else {
123 
    $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and (department like ? and department not like ?) and last_login > CURRENT_DATE - INTERVAL 365 DAY order by derby_name");
 123 
    $cathan = $internalDBH->prepare("select RCid, derby_name from official where level > 0 and (department like ? and department not like ?) and last_login > CURRENT_DATE - INTERVAL 365 DAY order by derby_name");
124 
    $cathan->execute("%".$DEPT."%", "%".$DEPT."-0%");
 124 
    $cathan->execute("%".$DEPT."%", "%".$DEPT."-0%");
125 
	}
 125 
	}