[usit-rt.git] / etc / upgrade / 4.0.6 / content

use strict;
use warnings;

our @Initial = (
    sub {
        my $txns = RT::Transactions->new( RT->SystemUser );
        $txns->Limit(
            FIELD => "ObjectType",
            VALUE => "RT::User",
        );
        $txns->Limit(
            FIELD => "Field",
            VALUE => "Password",
        );
        while (my $txn = $txns->Next) {
            $txn->__Set( Field => $_, Value => '********' )
                for qw/OldValue NewValue/;
        }
    },
);
Commit	Line	Data
af59614d MKG	1	use strict;
	2	use warnings;
	3
	4	our @Initial = (
01e3b242	5	sub {
af59614d	6	my $txns = RT::Transactions->new( RT->SystemUser );
01e3b242 MKG	7	$txns->Limit(
	8	FIELD => "ObjectType",
	9	VALUE => "RT::User",
	10	);
	11	$txns->Limit(
	12	FIELD => "Field",
	13	VALUE => "Password",
	14	);
	15	while (my $txn = $txns->Next) {
	16	$txn->__Set( Field => $_, Value => '********' )
	17	for qw/OldValue NewValue/;
	18	}
	19	},
	20	);