Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / etc / upgrade / 4.0.6 / content
CommitLineData
af59614d
MKG
1use strict;
2use warnings;
3
4our @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);