Upgrade 4.0.17 clean.
[usit-rt.git] / etc / upgrade / 3.9.7 / content
1 my $move_attributes = sub {
2     my ($table, $type, $column) = @_;
3     my $query = "UPDATE $table SET $column = (SELECT Content FROM Attributes WHERE"
4         ." Name = ? AND ObjectType = ? AND $table.id = Attributes.ObjectId)";
5
6     my $res = $RT::Handle->SimpleQuery( $query, $column, $type );
7     unless ( $res ) {
8         $RT::Logger->error("Failed to move $column on $type from Attributes into $table table");
9         return;
10     }
11
12     $query = 'DELETE FROM Attributes WHERE Name = ? AND ObjectType = ?';
13     $res = $RT::Handle->SimpleQuery( $query, $column, $type );
14     unless ( $res ) {
15         $RT::Logger->error("Failed to delete $column on $type from Attributes");
16         return;
17     }
18     return 1;
19 };
20
21 @Initial = (
22     sub {
23         return $move_attributes->( 'Users', 'RT::User', 'AuthToken');
24     },
25     sub {
26         return $move_attributes->( 'CustomFields', 'RT::CustomField', 'RenderType');
27     },
28     sub {
29         my $cfs = RT::CustomFields->new($RT::SystemUser);
30         $cfs->UnLimit;
31         $cfs->FindAllRows;
32         while ( my $cf = $cfs->Next ) {
33             # Explicitly remove 'ORDER BY id asc' to emulate the
34             # previous functionality, where Pg might return the the
35             # rows in arbitrary order
36             $cf->Attributes->OrderByCols();
37
38             my $attr = $cf->FirstAttribute('BasedOn');
39             next unless $attr;
40             $cf->SetBasedOn($attr->Content);
41         }
42         $query = 'DELETE FROM Attributes WHERE Name = ? AND ObjectType = ?';
43         $res = $RT::Handle->SimpleQuery( $query, 'BasedOn', 'RT::CustomField' );
44         unless ( $res ) {
45             $RT::Logger->error("Failed to delete BasedOn CustomFields from Attributes");
46             return;
47         }
48         return 1;
49     },
50     sub {
51         $move_attributes->( 'CustomFields', 'RT::CustomField', 'ValuesClass')
52             or return;
53
54         my $query = "UPDATE CustomFields SET ValuesClass = NULL WHERE ValuesClass = ?";
55         my $res = $RT::Handle->SimpleQuery( $query, 'RT::CustomFieldValues' );
56         unless ( $res ) {
57             $RT::Logger->error("Failed to replace default with NULLs");
58             return;
59         }
60         return 1;
61     },
62     sub {
63         my $attr = RT->System->FirstAttribute('BrandedSubjectTag');
64         return 1 unless $attr;
65
66         my $map = $attr->Content || {};
67         while ( my ($qid, $tag) = each %$map ) {
68             my $queue = RT::Queue->new( RT->SystemUser );
69             $queue->Load( $qid );
70             unless ( $queue->id ) {
71                 $RT::Logger->warning("Couldn't load queue #$qid. Skipping...");
72                 next;
73             }
74
75             my ($status, $msg) = $queue->SetSubjectTag($tag);
76             unless ( $status ) {
77                 $RT::Logger->error("Couldn't set subject tag for queue #$qid: $msg");
78                 next;
79             }
80         }
81     },
82 );