diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /rt/etc/upgrade/3.7.19/content | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
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 ac34ebe..0000000 --- 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; |