diff options
Diffstat (limited to 'rt/etc/upgrade/3.7.19/content')
-rw-r--r-- | rt/etc/upgrade/3.7.19/content | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/rt/etc/upgrade/3.7.19/content b/rt/etc/upgrade/3.7.19/content deleted file mode 100644 index ac34ebeb5..000000000 --- a/rt/etc/upgrade/3.7.19/content +++ /dev/null @@ -1,37 +0,0 @@ - -{ use strict; -add_description_to_all_scrips(); - -sub add_description_to_all_scrips { - require RT::Scrips; - my $scrips = RT::Scrips->new( $RT::SystemUser ); - $scrips->Limit( FIELD => 'Description', OPERATOR => 'IS', VALUE => 'NULL' ); - $scrips->Limit( FIELD => 'Description', VALUE => '' ); - while ( my $scrip = $scrips->Next ) { - my $desc = $scrip->Description; - next if defined $desc && length $desc; - - $desc = gen_scrip_description( $scrip ); - - my ($status, $msg) = $scrip->SetDescription( $desc ); - unless ( $status ) { - print STDERR "Couldn't set description of a scrip: $msg"; - } else { - print "Added description to scrip #". $scrip->id ."\n"; - } - } -} - -sub gen_scrip_description { - my $scrip = shift; - my $condition = $scrip->ConditionObj->Name - || $scrip->ConditionObj->Description - || ('On Condition #'. $scrip->Condition); - my $action = $scrip->ActionObj->Name - || $scrip->ActionObj->Description - || ('Run Action #'. $scrip->Action); - return join ' ', $condition, $action; -} -} - -1; |