Subversion Repositories VORC

Rev

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

Rev 121 Rev 122
Line 84... Line 84...
84 
	my $table = $DBTABLE;
 84 
	my $table = $DBTABLE;
85 
	my $optionList = "";
 85 
	my $optionList = "";
Line 86... Line 86...
86
86
87 
  if ($colName eq "derby_name" and $LVL < 2) {
 87 
  if ($colName eq "derby_name" and $LVL < 2) {
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 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } ("-blank-", $ORCUSER->{derby_name});
 91 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } @opts;
91 
  } else {
 92 
  } else {
92 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER'" : "";
 93 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER'" : "";
93 
    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;