rt/etc/upgrade/3.9.5/backcompat


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

my ($upgrade) = @_;

my %removed;
my @fields = qw/LastUpdated LastUpdatedBy Creator Created/;

RT::ACE->_BuildTableAttributes;
$RT::Logger->debug("Temporarily removing @fields from RT::ACE");
$removed{$_} = delete $RT::Record::_TABLE_ATTR->{"RT::ACE"}{$_}
    for @fields;

$upgrade->();

# Put back the fields we chopped off
$RT::Record::_TABLE_ATTR->{"RT::ACE"}{$_} = $removed{$_}
    for @fields;