X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fticket%2Fsearch_by_txn.t;h=6f970aadc05f70fce5c67c1a70e6df0b6bc478b5;hb=def729d3a87b31aa3748527e9bf4e4a3558a8f30;hp=1be6916efabe0abbd2fa06816fe496936056b48a;hpb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;p=freeside.git

diff --git a/rt/t/ticket/search_by_txn.t b/rt/t/ticket/search_by_txn.t
index 1be6916ef..6f970aadc 100644
--- a/rt/t/ticket/search_by_txn.t
+++ b/rt/t/ticket/search_by_txn.t
@@ -1,4 +1,3 @@
-#!/usr/bin/perl
 
 use warnings;
 use strict;
@@ -11,13 +10,13 @@ use RT::Test tests => 10;
 my $SUBJECT = "Search test - ".$$;
 
 use_ok('RT::Tickets');
-my $tix = RT::Tickets->new($RT::SystemUser);
+my $tix = RT::Tickets->new(RT->SystemUser);
 can_ok($tix, 'FromSQL');
 $tix->FromSQL('Updated = "2005-08-05" AND Subject = "$SUBJECT"');
 
 ok(! $tix->Count, "Searching for tickets updated on a random date finds nothing" . $tix->Count);
 
-my $ticket = RT::Ticket->new($RT::SystemUser);
+my $ticket = RT::Ticket->new(RT->SystemUser);
 $ticket->Create(Queue => 'General', Subject => $SUBJECT);
 ok ($ticket->id, "We created a ticket");
 my ($id, $txnid, $txnobj) =  $ticket->Comment( Content => 'A comment that happend on 2004-01-01');