Merge branch 'master' of https://github.com/jgoodman/Freeside

[freeside.git] / rt / etc / upgrade / shrink_transactions_table.pl

diff --git a/rt/etc/upgrade/shrink_transactions_table.pl b/rt/etc/upgrade/shrink_transactions_table.pl
index b4f2e19..66bdcf5 100644 (file)
--- a/rt/etc/upgrade/shrink_transactions_table.pl
+++ b/rt/etc/upgrade/shrink_transactions_table.pl
@@ -1,9 +1,9 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # BEGIN BPS TAGGED BLOCK {{{
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -56,7 +56,7 @@ RT->Config->Set('LogToScreen' => 'debug');
 RT::Init();
 
 use RT::Transactions;
-my $txns = RT::Transactions->new( $RT::SystemUser );
+my $txns = RT::Transactions->new( RT->SystemUser );
 $txns->Limit(
     FIELD => 'ObjectType',
     OPERATOR => '=',
@@ -106,7 +106,7 @@ while ( my $rec = FetchNext( $txns ) ) {
     $RT::Handle->Commit;
 }
 
-use constant PAGE_SIZE => 1000;
+use constant PAGE_SIZE => 10000;
 sub FetchNext {
     my ($objs, $init) = @_;
     if ( $init ) {