%# BEGIN BPS TAGGED BLOCK {{{ %# %# COPYRIGHT: %# %# This software is Copyright (c) 1996-2026 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) %# %# %# LICENSE: %# %# This work is made available to you under the terms of Version 2 of %# the GNU General Public License. A copy of that license should have %# been provided with this software, but in any event can be snarfed %# from www.gnu.org. %# %# This work is distributed in the hope that it will be useful, but %# WITHOUT ANY WARRANTY; without even the implied warranty of %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU %# General Public License for more details. %# %# You should have received a copy of the GNU General Public License %# along with this program; if not, write to the Free Software %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA %# 02110-1301 or visit their web page on the internet at %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. %# %# %# CONTRIBUTION SUBMISSION POLICY: %# %# (The following paragraph is not intended to limit the rights granted %# to you to modify and distribute this software under the terms of %# the GNU General Public License and is only of importance to you if %# you choose to contribute your changes and enhancements to the %# community by submitting them to Best Practical Solutions, LLC.) %# %# By intentionally submitting any modifications, corrections or %# derivatives to this work, or any other work intended for use with %# Request Tracker, to Best Practical Solutions, LLC, you confirm that %# you are the copyright holder for those contributions and you grant %# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, %# royalty-free, perpetual, license to use, copy, create derivative %# works based on those contributions, and sublicense and distribute %# those contributions and any derivatives thereof. %# %# END BPS TAGGED BLOCK }}} <%INIT> my $title = loc('System Configuration'); unless ($session{'CurrentUser'}->HasRight( Object=> $RT::System, Right => 'SuperUser')) { Abort(loc('This feature is only available to system administrators')); } my $Transactions = RT::Transactions->new($session{CurrentUser}); $Transactions->Limit(FIELD => 'ObjectType', VALUE => 'RT::Configuration'); $Transactions->OrderBy(FIELD => 'Created', ORDER => 'DESC'); $Transactions->RowsPerPage($PerPage); my $TotalFound = $Transactions->CountAll(); my $Pages; $Page = 1 unless $Page =~ /\A\d+\z/ && $Page > 1; if ( $TotalFound && $TotalFound > $PerPage ) { $Pages = int( $TotalFound / $PerPage ) + ( $TotalFound % $PerPage ? 1 : 0 ); $Page = $Pages if $Page > $Pages; } else { $Page = 1; } $Transactions->GotoPage($Page - 1); <& /Admin/Elements/Header, Title => $title &> <& /Elements/Tabs &>
<& /Admin/Elements/ConfigHelp &> <&|/Widgets/TitleBox, title => loc('History') &>
% my $i = 1; % while (my $tx = $Transactions->Next()) { <& /Elements/ShowTransaction, Transaction => $tx, ShowHeaders => 1, ShowDisplayModes => 0, ShowActions => 1, DisplayPath => 'ConfigHistory.html', HasTxnCFs => 0, RowNum => $i &> % $i++; % } % if ( $TotalFound > $PerPage ) { <& /Elements/CollectionListPaging, BaseURL => '?', Rows => $PerPage, TotalFound => $TotalFound, CurrentPage => $Page, Pages => $Pages, URLParams => { map { $_ => $ARGS{$_} } qw/PerPage Page/ }, &> % }
<%ARGS> $PerPage => 50 $Page => 1