| 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-"; }
|