Subversion Repositories PEEPS

Rev

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

Rev 15 Rev 48
Line 59... Line 59...
59 
 
 59 
 
60 
if ($ORCUSER->{SYSADMIN} or scalar @leagues) {
 60 
if ($ORCUSER->{SYSADMIN} or scalar @leagues) {
61 
  *filter_derby_name = sub {
 61 
  *filter_derby_name = sub {
62 
    my $colName = shift;
 62 
    my $colName = shift;
63 
    my $filter = shift;
 63 
    my $filter = shift;
Line 64... Line 64...
64 
    my $dbh = getDBConnection ();
 64 
    my $dbh = getRCDBH ();
65
65
66 
    if (defined $filter)  {
 66 
    if (defined $filter)  {
67 
      if ($filter eq "<-blank->") {
 67 
      if ($filter eq "<-blank->") {