]> git.uio.no Git - usit-rt.git/blobdiff - etc/upgrade/3.7.19/content
Putting 4.2.0 on top of 4.0.17
[usit-rt.git] / etc / upgrade / 3.7.19 / content
index 31ab1c84aa4fe5877cc991c50c7d51d704339e1c..a694562e8061298a4ee4d5d4e0120196a0c865eb 100644 (file)
@@ -1,26 +1,28 @@
+use strict;
+use warnings;
 
-{ use strict;
-add_description_to_all_scrips();
+our @Final = (
+    sub {
+        require RT::Scrips;
+        my $scrips = RT::Scrips->new( RT->SystemUser );
+        $scrips->{'with_disabled_column'} = 0;
+        $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;
 
-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 );
 
-        $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";
+            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;
@@ -32,6 +34,5 @@ sub gen_scrip_description {
         || ('Run Action #'. $scrip->Action);
     return join ' ', $condition, $action;
 }
-}
 
 1;