fix agent type selection for the simple case, RT#30942, RT#28804

[freeside.git] / rt / etc / upgrade / 3.8-branded-queues-extension

diff --git a/rt/etc/upgrade/3.8-branded-queues-extension b/rt/etc/upgrade/3.8-branded-queues-extension
index e594fc7..5f6e38a 100755 (executable)
--- a/rt/etc/upgrade/3.8-branded-queues-extension
+++ b/rt/etc/upgrade/3.8-branded-queues-extension
@@ -1,9 +1,9 @@
-#!/Users/falcone/perl5/perlbrew/bin/perl
+#!/usr/bin/perl
 # BEGIN BPS TAGGED BLOCK {{{
 #
 # COPYRIGHT:
 #
-# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
 #                                          <sales@bestpractical.com>
 #
 # (Except where explicitly superseded by other copyright notices)
@@ -49,8 +49,8 @@
 use strict;
 use warnings;
 
-use lib "local/lib";
-use lib "lib";
+use lib "/opt/rt3/local/lib";
+use lib "/opt/rt3/lib";
 
 
 use RT;
@@ -59,7 +59,7 @@ RT::Init();
 
 use RT::Queues;
 
-my $queues = RT::Queues->new( $RT::SystemUser );
+my $queues = RT::Queues->new( RT->SystemUser );
 $queues->UnLimit();
 while ( my $queue = $queues->Next ) {
     print "Processing queue ". ($queue->Name || $queue->id) ."...\n";