rt/etc/upgrade/3.9.5/backcompat

   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;