X-Git-Url: http://git.uio.no/git/?a=blobdiff_plain;f=etc%2Fupgrade%2F3.7.19%2Fcontent;h=a694562e8061298a4ee4d5d4e0120196a0c865eb;hb=af59614dbbf895bf0b0ab155fe158b6152edf32b;hp=31ab1c84aa4fe5877cc991c50c7d51d704339e1c;hpb=632513a6db31ba1c9e5151dc69cff85f7925c8bc;p=usit-rt.git

diff --git a/etc/upgrade/3.7.19/content b/etc/upgrade/3.7.19/content
index 31ab1c8..a694562 100644
--- a/etc/upgrade/3.7.19/content
+++ b/etc/upgrade/3.7.19/content
@@ -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;