[Rt-commit] r14006 - in rt/3.8/branches/3.8.0-releng/etc/upgrade: 3.7.82

[jesse at bestpractical.com]

Author: jesse
Date: Fri Jul 11 11:21:36 2008
New Revision: 14006

Added:
   rt/3.8/branches/3.8.0-releng/etc/upgrade/3.8.0/
   rt/3.8/branches/3.8.0-releng/etc/upgrade/3.8.0/content
Modified:
   rt/3.8/branches/3.8.0-releng/etc/upgrade/3.7.82/content

Log:
 r39571 at 68-246-144-190 (orig r13975):  ruz | 2008-07-10 17:52:30 -0400
 * fix mess with 'My Bookmarks' and 'Bookmarked Tickets'


Modified: rt/3.8/branches/3.8.0-releng/etc/upgrade/3.7.82/content
==============================================================================
--- rt/3.8/branches/3.8.0-releng/etc/upgrade/3.7.82/content	(original)
+++ rt/3.8/branches/3.8.0-releng/etc/upgrade/3.7.82/content	Fri Jul 11 11:21:36 2008
@@ -1,6 +1,6 @@
 @Attributes = (
-    { Name => 'Search - My Bookmarks',
-      Description => 'My Bookmarks', #loc
+    { Name => 'Search - Bookmarked Tickets',
+      Description => 'Bookmarked Tickets', #loc
       Content     =>
       { Format => q{'<a href="__WebPath__/Ticket/Display.html?id=__id__">__id__</a>/TITLE:#',}
                 . q{'<a href="__WebPath__/Ticket/Display.html?id=__id__">__Subject__</a>/TITLE:Subject',}

Added: rt/3.8/branches/3.8.0-releng/etc/upgrade/3.8.0/content
==============================================================================
--- (empty file)
+++ rt/3.8/branches/3.8.0-releng/etc/upgrade/3.8.0/content	Fri Jul 11 11:21:36 2008
@@ -0,0 +1,22 @@
+ at Final = (
+    # by incident we've changed 'My Bookmarks' to 'Bookmarked Tickets' when
+    # 3.7.82 upgrade script still was creating 'My Bookmarks', try to fix it
+    sub {
+        $RT::Logger->debug("Going to rename 'My Bookmarks' to 'Bookmarked Tickets'");
+        my $sys = RT::System->new($RT::SystemUser);
+
+        my $attrs = RT::Attributes->new( $RT::SystemUser );
+        $attrs->LimitToObject( $sys );
+        my ($attr) = $attrs->Named( 'Search - My Bookmarks' );
+        unless ($attr) {
+            $RT::Logger->debug("You have no global search 'My Bookmarks'. Skipped.");
+            return 1;
+        }
+        my ($status, $msg) = $attr->SetName( 'Search - Bookmarked Tickets' );
+        $RT::Logger->error($msg) and return undef unless $status;
+
+        $RT::Logger->debug("Renamed.");
+        return 1;
+    },
+);
+