summaryrefslogtreecommitdiff
path: root/rt/etc/upgrade/3.7.19/content
diff options
context:
space:
mode:
authorcvs2git <cvs2git>2010-12-27 00:04:45 +0000
committercvs2git <cvs2git>2010-12-27 00:04:45 +0000
commitc82d349f864e6bd9f96fd1156903bc1f7193a203 (patch)
treee117a87533656110b6acd56fc0ca64289892a9f5 /rt/etc/upgrade/3.7.19/content
parent74e058c8a010ef6feb539248a550d0bb169c1e94 (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/content37
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;