[Rt-commit] r9580 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Nov  6 07:06:37 2007
New Revision: 9580

Added:
   rt/branches/3.7-EXPERIMENTAL/etc/upgrade/3.7.19/
   rt/branches/3.7-EXPERIMENTAL/etc/upgrade/3.7.19/content
Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)

Log:
 r9332 at cubic-pc (orig r9331):  ruz | 2007-10-17 00:47:45 +0400
 * add code that set defined description for all scrips,
   it's in 'etc/upgrade/3.7.19/content', required for
   scrips ordering to work correctly


Added: rt/branches/3.7-EXPERIMENTAL/etc/upgrade/3.7.19/content
==============================================================================
--- (empty file)
+++ rt/branches/3.7-EXPERIMENTAL/etc/upgrade/3.7.19/content	Tue Nov  6 07:06:37 2007
@@ -0,0 +1,37 @@
+
+{ 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;