X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=etc%2Fupgrade%2F3.9.5%2Fbackcompat;h=ca0b289c9078f669b8b64685f3f3aa984480507c;hb=af59614dbbf895bf0b0ab155fe158b6152edf32b;hp=611ab51861cc9d99cea4fbaab0654b308e9765b4;hpb=632513a6db31ba1c9e5151dc69cff85f7925c8bc;p=usit-rt.git

diff --git a/etc/upgrade/3.9.5/backcompat b/etc/upgrade/3.9.5/backcompat
index 611ab51..ca0b289 100644
--- a/etc/upgrade/3.9.5/backcompat
+++ b/etc/upgrade/3.9.5/backcompat
@@ -1 +1,15 @@
-RT::ACE		LastUpdated LastUpdatedBy Creator Created
+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;