Reverse the order of a ticket history (newest comments at top)

This is what I have so far. I guess I am
losing the reference to
$Transaction. Can anybody offer help?

Thanks,
Ron

code—

% @ah = ("lastrans"); % while (my $Transaction = $Transactions->Next) { % my ($Ticket, $Transaction, $ShowHeaders, $Collapsed, $RowNum); % $ah[$i] = ({ % Ticket => $Ticket, % Transaction => $Transaction, % ShowHeaders => $ShowHeaders, % Collapsed => $Collapsed, % RowNum => $RowNum,}); % $i++; % }

% $length = @ah;
% while ($length > 0) {
% my %hash1 = %{pop(@ah)};
% $lTicket = $hash1{‘Ticket’};
% $Transaction = $hash1{‘Transaction’};
% $lTransaction = $hash1{‘Transaction’};
% $lShowHeaders = $hash1{‘ShowHeaders’};
% $lCollapsed = $hash1{‘Collapsed’};
% $lRowNum = $hash1{‘RowNum’};
<& ShowTransaction, Ticket => $lTicket, Transaction =>
$lTransaction, ShowHeaders => $lShowHeaders, Collapsed => $lCollapsed,
RowNum => $lRowNum &>
% $i–;
% }
% $line = $ah[0];
<%$line%>

------/code

error: Error during compilation of
/opt/rt2/local/WebRT/html/Ticket/Elements/ShowHistory:
Global symbol “$Transaction” requires explicit package name at
/opt/rt2/local/WebRT/html/Ticket/Elements/ShowHistory line 38.
context:

34: % $length = @ah;
35: % while ($length > 0) {
36: % my %hash1 = %{pop(@ah)};
37: % $lTicket = $hash1{‘Ticket’};
38: % $Transaction = $hash1{‘Transaction’};
39: % $lTransaction = $hash1{‘Transaction’};
40: % $lShowHeaders = $hash1{‘ShowHeaders’};
41: % $lCollapsed = $hash1{‘Collapsed’};
42: % $lRowNum = $hash1{‘RowNum’};

code stack: /usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Interp.pm:600
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Interp.pm:328
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Request.pm:849
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Request.pm:947
/opt/rt2/WebRT/html/Ticket/Display.html:13
/opt/rt2/WebRT/html/autohandler:58

/************************************************************

Instead, why not look at OrderBy in DBIx::SearchBuilder’s docs.
it’s one line and a hell of a lot faster than manually reversing.On Wed, May 28, 2003 at 03:46:54PM -0700, Ron Alexander wrote:

This is what I have so far. I guess I am
losing the reference to
$Transaction. Can anybody offer help?

Thanks,
Ron

code—

% @ah = ("lastrans"); % while (my $Transaction = $Transactions->Next) { % my ($Ticket, $Transaction, $ShowHeaders, $Collapsed, $RowNum); % $ah[$i] = ({ % Ticket => $Ticket, % Transaction => $Transaction, % ShowHeaders => $ShowHeaders, % Collapsed => $Collapsed, % RowNum => $RowNum,}); % $i++; % }

% $length = @ah;
% while ($length > 0) {
% my %hash1 = %{pop(@ah)};
% $lTicket = $hash1{‘Ticket’};
% $Transaction = $hash1{‘Transaction’};
% $lTransaction = $hash1{‘Transaction’};
% $lShowHeaders = $hash1{‘ShowHeaders’};
% $lCollapsed = $hash1{‘Collapsed’};
% $lRowNum = $hash1{‘RowNum’};
<& ShowTransaction, Ticket => $lTicket, Transaction =>
$lTransaction, ShowHeaders => $lShowHeaders, Collapsed => $lCollapsed,
RowNum => $lRowNum &>
% $i–;
% }
% $line = $ah[0];
<%$line%>

------/code

error: Error during compilation of
/opt/rt2/local/WebRT/html/Ticket/Elements/ShowHistory:
Global symbol “$Transaction” requires explicit package name at
/opt/rt2/local/WebRT/html/Ticket/Elements/ShowHistory line 38.
context:

34: % $length = @ah;
35: % while ($length > 0) {
36: % my %hash1 = %{pop(@ah)};
37: % $lTicket = $hash1{‘Ticket’};
38: % $Transaction = $hash1{‘Transaction’};
39: % $lTransaction = $hash1{‘Transaction’};
40: % $lShowHeaders = $hash1{‘ShowHeaders’};
41: % $lCollapsed = $hash1{‘Collapsed’};
42: % $lRowNum = $hash1{‘RowNum’};

code stack: /usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Interp.pm:600
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Interp.pm:328
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Request.pm:849
/usr/lib/perl5/site_perl/5.6.1/HTML/Mason/Request.pm:947
/opt/rt2/WebRT/html/Ticket/Display.html:13
/opt/rt2/WebRT/html/autohandler:58


/************************************************************


rt-users mailing list
rt-users@lists.fsck.com
http://lists.fsck.com/mailman/listinfo/rt-users

Have you read the FAQ? The RT FAQ Manager lives at http://fsck.com/rtfm

http://www.bestpractical.com/rt – Trouble Ticketing. Free.

Instead, why not look at OrderBy in DBIx::SearchBuilder’s docs.
it’s one line and a hell of a lot faster than manually reversing.

I have this working, but it is in lib/RT/Transactions.pm. Shouldn’t I be
doing this in local/lib/RT/Transactions.pm? I tried and it didn’t work.
Is there a better place than in the actual file? Thanks!

Ron

/************************************************************

Instead, why not look at OrderBy in DBIx::SearchBuilder’s docs.
it’s one line and a hell of a lot faster than manually reversing.

I have this working, but it is in lib/RT/Transactions.pm. Shouldn’t I be
doing this in local/lib/RT/Transactions.pm? I tried and it didn’t work.
Is there a better place than in the actual file? Thanks!

in RT3, you want to do it in lib/RT/Transactions_Local.pm

Ron


/************************************************************


rt-users mailing list
rt-users@lists.fsck.com
http://lists.fsck.com/mailman/listinfo/rt-users

Have you read the FAQ? The RT FAQ Manager lives at http://fsck.com/rtfm

http://www.bestpractical.com/rt – Trouble Ticketing. Free.

in RT3, you want to do it in lib/RT/Transactions_Local.pm

Hi Jesse/Ron

I’m interested in reversing the order too. What would I have to put
into lib/RT/Transactions_Local.pm ? I noticed the file doesn’t exist
but it’s used for local modifications. Neat :slight_smile:

Best regards,
Gonzalo