Subversion Repositories VORC

Rev

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

Rev 122 Rev 129
Line 88... Line 88...
88 
    # special case to anonymize assignees...
 88 
    # special case to anonymize assignees...
89 
    my @opts = ("-blank-", $ORCUSER->{derby_name});
 89 
    my @opts = ("-blank-", $ORCUSER->{derby_name});
90 
    push @opts, map { @{$_} } @{ $internalDBH->selectall_arrayref ("select derby_name from official where showme = 1 and derby_name <> ? order by derby_name", undef, $ORCUSER->{derby_name}) };
 90 
    push @opts, map { @{$_} } @{ $internalDBH->selectall_arrayref ("select derby_name from official where showme = 1 and derby_name <> ? order by derby_name", undef, $ORCUSER->{derby_name}) };
91 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } @opts;
 91 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } @opts;
92 
  } else {
 92 
  } else {
93 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER'" : "";
 93 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER' and year(date) = year(now())" : "";
94 
    my $orderby = $colName eq "dayofweek" ? "field(dayofweek, 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday')" : $colName;
 94 
    my $orderby = $colName eq "dayofweek" ? "field(dayofweek, 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday')" : $colName;
95 
	  my $cathan = $internalDBH->prepare("select distinct $colName from $table $dept_where order by $orderby");
 95 
	  my $cathan = $internalDBH->prepare("select distinct $colName from $table $dept_where order by $orderby");
Line 96... Line 96...
96 
 
 96 
 
97 
  	$cathan->execute();
 97 
  	$cathan->execute();