rt/etc/upgrade/4.0.19/content


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

use strict;
use warnings;

our @Initial = (
    sub {
        use RT::CustomFields;
        my $cfs = RT::CustomFields->new(RT->SystemUser);
        $cfs->{'find_disabled_rows'} = 1;
        $cfs->Limit( FIELD => 'LookupType', VALUE => 'RT::FM::Class-RT::FM::Article' );
        while ( my $cf = $cfs->Next ) {
            my ($ret, $msg) = $cf->__Set( Field => 'LookupType', Value => 'RT::Class-RT::Article' );
            RT->Logger->warning("Update Custom Field LookupType for CF.".$cf->Id." $msg");
        }
        return 1;
    },

    sub {
        use RT::ObjectCustomFieldValues;
        my $ocfvs = RT::ObjectCustomFieldValues->new(RT->System);
        $ocfvs->{'find_expired_rows'} = 1;
        $ocfvs->Limit( FIELD => 'ObjectType', VALUE => 'RT::FM::Article' );
        while ( my $ocfv = $ocfvs->Next ) {
            my ($ret, $msg) = $ocfv->__Set( Field => 'ObjectType', Value => 'RT::Article' );
            RT->Logger->warning("Updated CF ".$ocfv->__Value('CustomField')." Value for Article ".$ocfv->__Value('ObjectId'));
        }
        return 1;
    },
);