[usit-rt.git] / etc / upgrade / 3.9.5 / backcompat

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;
Commit	Line	Data
3ffc5f4f MKG	1	my ($upgrade) = @_;
	2
	3	my %removed;
	4	my @fields = qw/LastUpdated LastUpdatedBy Creator Created/;
	5
	6	RT::ACE->_BuildTableAttributes;
	7	$RT::Logger->debug("Temporarily removing @fields from RT::ACE");
	8	$removed{$_} = delete $RT::Record::_TABLE_ATTR->{"RT::ACE"}{$_}
	9	for @fields;
	10
	11	$upgrade->();
	12
	13	# Put back the fields we chopped off
	14	$RT::Record::_TABLE_ATTR->{"RT::ACE"}{$_} = $removed{$_}
	15	for @fields;