Subversion Repositories VORC

Rev

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

Rev 33 Rev 46
Line 55... Line 55...
55
55
56 
	foreach $t (sort @{ $listref })			# Unt now we print the tickets!
 56 
	foreach $t (sort @{ $listref })			# Unt now we print the tickets!
57 
	{
 57 
	{
58 
		$col = 0;
 58 
		$col = 0;
59 
		$row++;
 59 
		$row++;
- 
 
 60 
		foreach $f (@displayFields)	{
- 
 
 61 
			if ($f eq "derby_name") {
- 
 
 62 
				if ($user->{department}->{"OFF"} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
60 
		foreach $f (@displayFields)
 63 
    			$t->{derby_name} = "FILLED";
61 
			{
 - 
 
62 
				$t->{$f} =~ s/<br>/\n/ig; $worksheet->write($row, $col++, "$t->{$f}");
 64 
  			}
- 
 
 65 
			}
- 
 
 66 
			$t->{$f} =~ s/<br>/\n/ig; $worksheet->write($row, $col++, "$t->{$f}");
63 
			}
 67 
		}
Line 64... Line 68...
64 
	}
 68 
	}
65
69
66 
	$workbook->close();
 70 
	$workbook->close();
Line 78... Line 82...
78 
    # special case to anonymize assignees...
 82 
    # special case to anonymize assignees...
79 
#    my @opts = ("-blank-", $ORCUSER->{derby_name});
 83 
#    my @opts = ("-blank-", $ORCUSER->{derby_name});
80 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } ("-blank-", $ORCUSER->{derby_name});
 84 
    $optionList = join "", map { $selection eq $_ ? "<OPTION selected>$_</OPTION>" : "<OPTION>$_</OPTION>" } ("-blank-", $ORCUSER->{derby_name});
81 
  } else {
 85 
  } else {
82 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER'" : "";
 86 
    my $dept_where = $table eq "v_shift" ? "where dept != 'PER'" : "";
- 
 
 87 
    my $orderby = $colName eq "dayofweek" ? "field(dayofweek, 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday')" : $colName;
83 
	  my $cathan = $internalDBH->prepare("select distinct $colName from $table $dept_where order by $colName");
 88 
	  my $cathan = $internalDBH->prepare("select distinct $colName from $table $dept_where order by $orderby");
Line 84... Line 89...
84 
 
 89 
 
85 
  	$cathan->execute();
 90 
  	$cathan->execute();
86 
  	while (my ($cat) = $cathan->fetchrow) {
 91 
  	while (my ($cat) = $cathan->fetchrow) {
87 
  	  if ($cat eq "") { $cat = "-blank-"; }
 92 
  	  if ($cat eq "") { $cat = "-blank-"; }