%# BEGIN BPS TAGGED BLOCK {{{
%#
%# COPYRIGHT:
-%#
-%# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC
+%#
+%# This software is Copyright (c) 1996-2008 Best Practical Solutions, LLC
%# <jesse@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%# along with this program; if not, write to the Free Software
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
%# 02110-1301 or visit their web page on the internet at
-%# http://www.gnu.org/copyleft/gpl.html.
+%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
%#
%#
%# CONTRIBUTION SUBMISSION POLICY:
$row->{$attr} = "";
} else {
my $method = '$Ticket->'.$attr.'()';
+ $method =~ s/->ISO\(\)$/->ISO( Timezone => 'user' )/;
$row->{$attr} = eval $method;
if ($@) {die "Failed to find $attr - ". $@};
}
my $cfs = $Ticket->QueueObj->TicketCustomFields();
while (my $cf = $cfs->Next) {
+ $known_cfs{$cf->Id} = $cf->Name;
my @content;
my $values = $Ticket->CustomFieldValues($cf->Id);
while (my $value = $values->Next) {
push @content, $value->Content;
}
$row->{'CustomField-'.$cf->Id} = join(', ',@content);
- if ($row->{'CustomField-'.$cf->Id}) {
- $known_cfs{$cf->Id} = $cf->Name;
- }
}
push @rows, $row;
}