-my %cf_id_to_name;
-my %cf_name_to_pos;
-{
- my $cfs = RT::SQL::PossibleCustomFields(
- Query => $Query, CurrentUser => $session{'CurrentUser'},
- );
- while ( my $cf = $cfs->Next ) {
- my $name = $cf->Name;
- $cf_id_to_name{ $cf->id } = $name;
- next if $cf_name_to_pos{ $name };
-
- $cf_name_to_pos{ $name } =
- (sort { $b <=> $a } values %cf_name_to_pos)[0] + 1;
- }
-}
-
-my @attrs = qw(
- id QueueObj->Name Subject Status
- TimeEstimated TimeWorked TimeLeft
- Priority FinalPriority
- OwnerObj->Name
- Requestors->MemberEmailAddressesAsString
- Cc->MemberEmailAddressesAsString
- AdminCc->MemberEmailAddressesAsString
- DueObj->ISO ToldObj->ISO CreatedObj->ISO
- ResolvedObj->ISO LastUpdatedObj->ISO
-);
-
-$r->content_type('application/vnd.ms-excel');
-{
- my @header;
- foreach my $attr (@attrs) {
- my $label = $attr;
- $label =~ s'Obj-.(?:AsString|Name|ISO)''g;
- $label =~ s'-\>MemberEmailAddressesAsString''g;
- push @header, $label;
- }
-
- $_ += @header - 1 foreach values %cf_name_to_pos;
-
- foreach my $name ( sort { $cf_name_to_pos{$a} <=> $cf_name_to_pos{$a} } keys %cf_name_to_pos ) {
- push @header, "CF-". $name;
- }
- $m->out(join("\t", @header));
- $m->out("\n");
- $m->flush_buffer;
-}
-