[Rt-commit] rt branch, 4.4/ticket-history-infinite-scroll, created. rt-4.2.11-239-g1456980

Dustin Graves dustin at bestpractical.com
Mon Oct 19 10:58:37 EDT 2015


The branch, 4.4/ticket-history-infinite-scroll has been created
        at  1456980b48e1e361cdca3cfab61dfc002994dd8a (commit)

- Log -----------------------------------------------------------------
commit 1456980b48e1e361cdca3cfab61dfc002994dd8a
Author: Dustin Graves <dustin at bestpractical.com>
Date:   Thu Oct 1 17:25:09 2015 +0000

    add infinite scrolling option to ticket display transaction history
    
    Fixes: T#154449

diff --git a/lib/RT/Config.pm b/lib/RT/Config.pm
index bd321ee..f736939 100644
--- a/lib/RT/Config.pm
+++ b/lib/RT/Config.pm
@@ -390,11 +390,12 @@ our %META;
         Widget          => '/Widgets/Form/Select',
         WidgetArguments => {
             Description => 'Show history',                #loc
-            Values      => [qw(delay click always)],
+            Values      => [qw(delay click always scroll)],
             ValuesLabel => {
                 delay   => "after the rest of the page loads",  #loc
                 click   => "after clicking a link",             #loc
                 always  => "immediately",                       #loc
+                scroll  => "as you scroll",                     #loc
             },
         },
     },
diff --git a/share/html/Elements/ShowHistory b/share/html/Elements/ShowHistory
index d585453..799f186 100644
--- a/share/html/Elements/ShowHistory
+++ b/share/html/Elements/ShowHistory
@@ -45,138 +45,29 @@
 %# those contributions and any derivatives thereof.
 %#
 %# END BPS TAGGED BLOCK }}}
-<div class="history <% lc $record_type %>" id="<% $histid %>">
-<%perl>
-if ( $ShowDisplayModes or $ShowTitle ) {
-    my $title = $ShowTitle
-                    ? loc('History')
-                    : ' ';
+<& /Elements/ShowHistoryHeader,
+    Object            => $Object,
+    ShowHeaders       => $ShowHeaders,
+    ShowTitle         => $ShowTitle,
+    ShowDisplayModes  => $ShowDisplayModes,
+    &>
+
+% $m->callback( %ARGS, Object => $Object, CallbackName => 'BeforeTransactions' );
+
+<& /Elements/ShowHistoryPage,
+    Object            => $Object,
+    Transactions      => $Object->SortedTransactions,
+    ShowHeaders       => $ARGS{'ShowHeaders'},
+    Attachments       => $Attachments,
+    AttachmentContent => $AttachmentContent,
+    PathPrefix        => ''
+    &>
 
-    my $titleright = '';
-    if ( $ShowDisplayModes ) {
-        if ( RT->Config->Get( 'QuoteFolding', $session{CurrentUser} ) ) {
-            my $open_all  = $m->interp->apply_escapes( loc("Show all quoted text"), 'j' );
-            my $open_html = $m->interp->apply_escapes( loc("Show all quoted text"), 'h' );
-            my $close_all = $m->interp->apply_escapes( loc("Hide all quoted text"), 'j' );
-            $titleright .=    '<a href="#" data-direction="open" '
-                            . qq{onclick="return toggle_all_folds(this, $open_all, $close_all);"}
-                            . ">$open_html</a> — ";
-        }
-
-        if ($ShowHeaders) {
-            $titleright .= qq{<a href="?ForceShowHistory=1;id=} .
-                           $Object->id.qq{#$histid">} .
-                           loc("Show brief headers") .
-                           qq{</a>};
-        } else {
-            $titleright .= qq{<a href="?ForceShowHistory=1;ShowHeaders=1;id=} .
-                           $Object->id.qq{#$histid">} .
-                           loc("Show full headers") .
-                           qq{</a>};
-        }
-    }
-</%perl>
-<& /Widgets/TitleBoxStart, title => $title, titleright_raw => $titleright &>
-% }
-
-<div class="history-container">
-<%perl>
-$m->callback( %ARGS, Object => $Object, CallbackName => 'BeforeTransactions' );
-my $i = 1;
-while ( my $Transaction = $Transactions->Next ) {
-    my $skip = 0;
-
-    # Skip display of SetWatcher transactions for ticket Owner groups.  Owner
-    # was a single member role group and denormalized into a column well before
-    # the generic role group handling and transactions came about.  For
-    # tickets, we rely on rendering ownership changes using the Set-Owner
-    # transaction.  For all other record types, or even potential ticket single
-    # role groups which aren't Owner, we use SetWatcher to render history and
-    # skip the Set transactions.  This complication is necessary to avoid
-    # creating backdated transactions on upgrade which normalize to one type or
-    # another.
-    # 
-    # These conditions assumes ticket Owner is a single-member denormalized
-    # role group, which is safe since that is unlikely to ever change in the
-    # future.
-    if ($Object->isa("RT::Ticket") and ($Transaction->Field || '') eq "Owner") {
-        $skip = 1 if $Transaction->Type eq "SetWatcher";
-    } else {
-        $skip = 1 if $Transaction->Type eq "Set"
-                 and $Transaction->Field
-                 and $Object->DOES("RT::Record::Role::Roles")
-                 and $Object->HasRole( $Transaction->Field )
-                 and $Object->RoleGroup( $Transaction->Field )->SingleMemberRoleGroupColumn;
-    }
-
-    $m->callback(
-        %ARGS,
-        Transaction   => $Transaction,
-        skip          => \$skip,
-        CallbackName  => 'SkipTransaction',
-    );
-    next if $skip;
-
-    # ARGS is first because we're clobbering the "Attachments" parameter
-    $m->comp( 'ShowTransaction',
-        %ARGS,
-        Object            => $Object,
-        Transaction       => $Transaction,
-        ShowHeaders       => $ShowHeaders,
-        RowNum            => $i,
-        Attachments       => $trans_attachments->{$Transaction->id} || {},
-        AttachmentContent => $trans_content,
-        HasTxnCFs         => $HasTxnCFs,
-    );
-
-    # manually flush the content buffer after each txn,
-    # so the user sees some update
-    $m->flush_buffer;
-
-    $i++;
-}
-
-</%perl>
 </div>
 % if ($ShowDisplayModes or $ShowTitle) {
 <& /Widgets/TitleBoxEnd &>
 % }
 </div>
-<%INIT>
-my $trans_content = {};
-my $trans_attachments = {};
-
-for my $content (@{$AttachmentContent->ItemsArrayRef()}) {
-    $trans_content->{$content->TransactionId}->{$content->Id} = $content;
-}
-
-for my $attachment (@{$Attachments->ItemsArrayRef()}) {
-    my $tmp = $trans_attachments->{ $attachment->TransactionId } ||= {};
-    push @{ $tmp->{ $attachment->Parent || 0 } ||= [] }, $attachment;
-}
-
-{
-    my %tmp = (
-        DisplayPath     => 'Display.html',
-        AttachmentPath  => 'Attachment',
-        UpdatePath      => 'Update.html',
-        ForwardPath     => 'Forward.html',
-        EmailRecordPath => 'ShowEmailRecord.html',
-        EncryptionPath  => 'Crypt.html',
-    );
-
-    my $prefix = $ARGS{PathPrefix}||'';
-    while ( my ($arg, $path) = each %tmp ) {
-        next if defined $ARGS{ $arg };
-        $ARGS{ $arg } = $prefix.$path;
-    }
-}
-
-my $record_type = $Object->RecordType;
-my $histid      = "\L$record_type\E-" . $Object->id . "-history";
-
-my $HasTxnCFs = ($Object->can("TransactionCustomFields") and $Object->TransactionCustomFields->Count);
-</%INIT>
 <%ARGS>
 $Object
 $Transactions      => $Object->SortedTransactions
diff --git a/share/html/Elements/ShowHistory b/share/html/Elements/ShowHistoryHeader
similarity index 52%
copy from share/html/Elements/ShowHistory
copy to share/html/Elements/ShowHistoryHeader
index d585453..6ad4805 100644
--- a/share/html/Elements/ShowHistory
+++ b/share/html/Elements/ShowHistoryHeader
@@ -45,6 +45,16 @@
 %# those contributions and any derivatives thereof.
 %#
 %# END BPS TAGGED BLOCK }}}
+<%ARGS>
+$Object
+$ShowHeaders       => 0
+$ShowTitle         => 1
+$ShowDisplayModes  => 1
+</%ARGS>
+<%INIT>
+my $record_type = $Object->RecordType;
+my $histid      = "\L$record_type\E-" . $Object->id . "-history";
+</%INIT>
 <div class="history <% lc $record_type %>" id="<% $histid %>">
 <%perl>
 if ( $ShowDisplayModes or $ShowTitle ) {
@@ -80,112 +90,3 @@ if ( $ShowDisplayModes or $ShowTitle ) {
 % }
 
 <div class="history-container">
-<%perl>
-$m->callback( %ARGS, Object => $Object, CallbackName => 'BeforeTransactions' );
-my $i = 1;
-while ( my $Transaction = $Transactions->Next ) {
-    my $skip = 0;
-
-    # Skip display of SetWatcher transactions for ticket Owner groups.  Owner
-    # was a single member role group and denormalized into a column well before
-    # the generic role group handling and transactions came about.  For
-    # tickets, we rely on rendering ownership changes using the Set-Owner
-    # transaction.  For all other record types, or even potential ticket single
-    # role groups which aren't Owner, we use SetWatcher to render history and
-    # skip the Set transactions.  This complication is necessary to avoid
-    # creating backdated transactions on upgrade which normalize to one type or
-    # another.
-    # 
-    # These conditions assumes ticket Owner is a single-member denormalized
-    # role group, which is safe since that is unlikely to ever change in the
-    # future.
-    if ($Object->isa("RT::Ticket") and ($Transaction->Field || '') eq "Owner") {
-        $skip = 1 if $Transaction->Type eq "SetWatcher";
-    } else {
-        $skip = 1 if $Transaction->Type eq "Set"
-                 and $Transaction->Field
-                 and $Object->DOES("RT::Record::Role::Roles")
-                 and $Object->HasRole( $Transaction->Field )
-                 and $Object->RoleGroup( $Transaction->Field )->SingleMemberRoleGroupColumn;
-    }
-
-    $m->callback(
-        %ARGS,
-        Transaction   => $Transaction,
-        skip          => \$skip,
-        CallbackName  => 'SkipTransaction',
-    );
-    next if $skip;
-
-    # ARGS is first because we're clobbering the "Attachments" parameter
-    $m->comp( 'ShowTransaction',
-        %ARGS,
-        Object            => $Object,
-        Transaction       => $Transaction,
-        ShowHeaders       => $ShowHeaders,
-        RowNum            => $i,
-        Attachments       => $trans_attachments->{$Transaction->id} || {},
-        AttachmentContent => $trans_content,
-        HasTxnCFs         => $HasTxnCFs,
-    );
-
-    # manually flush the content buffer after each txn,
-    # so the user sees some update
-    $m->flush_buffer;
-
-    $i++;
-}
-
-</%perl>
-</div>
-% if ($ShowDisplayModes or $ShowTitle) {
-<& /Widgets/TitleBoxEnd &>
-% }
-</div>
-<%INIT>
-my $trans_content = {};
-my $trans_attachments = {};
-
-for my $content (@{$AttachmentContent->ItemsArrayRef()}) {
-    $trans_content->{$content->TransactionId}->{$content->Id} = $content;
-}
-
-for my $attachment (@{$Attachments->ItemsArrayRef()}) {
-    my $tmp = $trans_attachments->{ $attachment->TransactionId } ||= {};
-    push @{ $tmp->{ $attachment->Parent || 0 } ||= [] }, $attachment;
-}
-
-{
-    my %tmp = (
-        DisplayPath     => 'Display.html',
-        AttachmentPath  => 'Attachment',
-        UpdatePath      => 'Update.html',
-        ForwardPath     => 'Forward.html',
-        EmailRecordPath => 'ShowEmailRecord.html',
-        EncryptionPath  => 'Crypt.html',
-    );
-
-    my $prefix = $ARGS{PathPrefix}||'';
-    while ( my ($arg, $path) = each %tmp ) {
-        next if defined $ARGS{ $arg };
-        $ARGS{ $arg } = $prefix.$path;
-    }
-}
-
-my $record_type = $Object->RecordType;
-my $histid      = "\L$record_type\E-" . $Object->id . "-history";
-
-my $HasTxnCFs = ($Object->can("TransactionCustomFields") and $Object->TransactionCustomFields->Count);
-</%INIT>
-<%ARGS>
-$Object
-$Transactions      => $Object->SortedTransactions
-$Attachments       => $Object->Attachments( WithHeaders => 1 )
-$AttachmentContent => $Object->TextAttachments
-
-$ShowHeaders       => 0
-$ShowTitle         => 1
-$ShowDisplayModes  => 1
-
-$PathPrefix        => ''
-</%ARGS>
diff --git a/share/html/Elements/ShowHistory b/share/html/Elements/ShowHistoryPage
similarity index 74%
copy from share/html/Elements/ShowHistory
copy to share/html/Elements/ShowHistoryPage
index d585453..884553c 100644
--- a/share/html/Elements/ShowHistory
+++ b/share/html/Elements/ShowHistoryPage
@@ -45,43 +45,49 @@
 %# those contributions and any derivatives thereof.
 %#
 %# END BPS TAGGED BLOCK }}}
-<div class="history <% lc $record_type %>" id="<% $histid %>">
-<%perl>
-if ( $ShowDisplayModes or $ShowTitle ) {
-    my $title = $ShowTitle
-                    ? loc('History')
-                    : ' ';
+<%ARGS>
+$Object
+$Transactions      => $Object->SortedTransactions
+$Attachments       => $Object->Attachments( WithHeaders => 1 )
+$AttachmentContent => $Object->TextAttachments
+
+$ShowHeaders       => 0
+
+$PathPrefix        => ''
+</%ARGS>
+<%INIT>
+my $trans_content = {};
+my $trans_attachments = {};
+
+for my $content (@{$AttachmentContent->ItemsArrayRef()}) {
+    $trans_content->{$content->TransactionId}->{$content->Id} = $content;
+}
+
+for my $attachment (@{$Attachments->ItemsArrayRef()}) {
+    my $tmp = $trans_attachments->{ $attachment->TransactionId } ||= {};
+    push @{ $tmp->{ $attachment->Parent || 0 } ||= [] }, $attachment;
+}
 
-    my $titleright = '';
-    if ( $ShowDisplayModes ) {
-        if ( RT->Config->Get( 'QuoteFolding', $session{CurrentUser} ) ) {
-            my $open_all  = $m->interp->apply_escapes( loc("Show all quoted text"), 'j' );
-            my $open_html = $m->interp->apply_escapes( loc("Show all quoted text"), 'h' );
-            my $close_all = $m->interp->apply_escapes( loc("Hide all quoted text"), 'j' );
-            $titleright .=    '<a href="#" data-direction="open" '
-                            . qq{onclick="return toggle_all_folds(this, $open_all, $close_all);"}
-                            . ">$open_html</a> — ";
-        }
+{
+    my %tmp = (
+        DisplayPath     => 'Display.html',
+        AttachmentPath  => 'Attachment',
+        UpdatePath      => 'Update.html',
+        ForwardPath     => 'Forward.html',
+        EmailRecordPath => 'ShowEmailRecord.html',
+        EncryptionPath  => 'Crypt.html',
+    );
 
-        if ($ShowHeaders) {
-            $titleright .= qq{<a href="?ForceShowHistory=1;id=} .
-                           $Object->id.qq{#$histid">} .
-                           loc("Show brief headers") .
-                           qq{</a>};
-        } else {
-            $titleright .= qq{<a href="?ForceShowHistory=1;ShowHeaders=1;id=} .
-                           $Object->id.qq{#$histid">} .
-                           loc("Show full headers") .
-                           qq{</a>};
-        }
+    my $prefix = $ARGS{PathPrefix}||'';
+    while ( my ($arg, $path) = each %tmp ) {
+        next if defined $ARGS{ $arg };
+        $ARGS{ $arg } = $prefix.$path;
     }
-</%perl>
-<& /Widgets/TitleBoxStart, title => $title, titleright_raw => $titleright &>
-% }
+}
 
-<div class="history-container">
+my $HasTxnCFs = ($Object->can("TransactionCustomFields") and $Object->TransactionCustomFields->Count);
+</%INIT>
 <%perl>
-$m->callback( %ARGS, Object => $Object, CallbackName => 'BeforeTransactions' );
 my $i = 1;
 while ( my $Transaction = $Transactions->Next ) {
     my $skip = 0;
@@ -135,57 +141,5 @@ while ( my $Transaction = $Transactions->Next ) {
 
     $i++;
 }
-
 </%perl>
-</div>
-% if ($ShowDisplayModes or $ShowTitle) {
-<& /Widgets/TitleBoxEnd &>
-% }
-</div>
-<%INIT>
-my $trans_content = {};
-my $trans_attachments = {};
-
-for my $content (@{$AttachmentContent->ItemsArrayRef()}) {
-    $trans_content->{$content->TransactionId}->{$content->Id} = $content;
-}
-
-for my $attachment (@{$Attachments->ItemsArrayRef()}) {
-    my $tmp = $trans_attachments->{ $attachment->TransactionId } ||= {};
-    push @{ $tmp->{ $attachment->Parent || 0 } ||= [] }, $attachment;
-}
-
-{
-    my %tmp = (
-        DisplayPath     => 'Display.html',
-        AttachmentPath  => 'Attachment',
-        UpdatePath      => 'Update.html',
-        ForwardPath     => 'Forward.html',
-        EmailRecordPath => 'ShowEmailRecord.html',
-        EncryptionPath  => 'Crypt.html',
-    );
 
-    my $prefix = $ARGS{PathPrefix}||'';
-    while ( my ($arg, $path) = each %tmp ) {
-        next if defined $ARGS{ $arg };
-        $ARGS{ $arg } = $prefix.$path;
-    }
-}
-
-my $record_type = $Object->RecordType;
-my $histid      = "\L$record_type\E-" . $Object->id . "-history";
-
-my $HasTxnCFs = ($Object->can("TransactionCustomFields") and $Object->TransactionCustomFields->Count);
-</%INIT>
-<%ARGS>
-$Object
-$Transactions      => $Object->SortedTransactions
-$Attachments       => $Object->Attachments( WithHeaders => 1 )
-$AttachmentContent => $Object->TextAttachments
-
-$ShowHeaders       => 0
-$ShowTitle         => 1
-$ShowDisplayModes  => 1
-
-$PathPrefix        => ''
-</%ARGS>
diff --git a/share/html/Elements/ShowTransaction b/share/html/Elements/ShowTransaction
index 1018ec6..85d7016 100644
--- a/share/html/Elements/ShowTransaction
+++ b/share/html/Elements/ShowTransaction
@@ -45,7 +45,7 @@
 %# those contributions and any derivatives thereof.
 %#
 %# END BPS TAGGED BLOCK }}}
-<div class="<% join ' ', @classes %>">
+<div class="<% join ' ', @classes %>" data-transaction-id="<% $Transaction->id %>">
   <div class="metadata">
     <span class="type">
       <a name="txn-<% $Transaction->id %>" \
diff --git a/share/html/Helpers/TicketHistoryPage b/share/html/Helpers/TicketHistoryPage
new file mode 100644
index 0000000..d449966
--- /dev/null
+++ b/share/html/Helpers/TicketHistoryPage
@@ -0,0 +1,91 @@
+%# BEGIN BPS TAGGED BLOCK {{{
+%#
+%# COPYRIGHT:
+%#
+%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
+%#                                          <sales at bestpractical.com>
+%#
+%# (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 }}}
+<%ARGS>
+$id
+$oldestTransactionsFirst
+$lastTransactionId => undef
+$focusTransactionId => undef
+</%ARGS>
+<%INIT>
+my $TicketObj = RT::Ticket->new($session{'CurrentUser'});
+$TicketObj->Load($id);
+
+my %extra_args;
+$m->callback( CallbackName => 'ExtraShowHistoryArguments', Ticket => $TicketObj, ExtraArgs => \%extra_args );
+
+my $transactions  = $TicketObj->Transactions;
+my $order = $oldestTransactionsFirst ? 'ASC' : 'DESC';
+if ($lastTransactionId) {
+    $transactions->Limit(
+        FIELD    => 'id',
+        OPERATOR => $oldestTransactionsFirst ? '>' : '<',
+        VALUE    => $lastTransactionId
+    );
+}
+$transactions->OrderByCols(
+    { FIELD => 'Created',   ORDER => $order },
+    { FIELD => 'id',        ORDER => $order },
+);
+if ($focusTransactionId) { # make sure we load enough if we need to focus a transaction
+    $transactions->Limit(
+        FIELD    => 'id',
+        OPERATOR => $oldestTransactionsFirst ? '<=' : '>=',
+        VALUE    => $focusTransactionId
+    );
+} else { # otherwise, just load the standard page of 10 transactions
+    $transactions->RowsPerPage(10);
+    $transactions->FirstPage();
+}
+</%INIT>
+<& /Elements/ShowHistoryPage,
+    Object => $TicketObj,
+    ShowHeaders => $ARGS{'ShowHeaders'},
+    Transactions => $transactions,
+    %extra_args,
+    &>
+% $m->abort();
diff --git a/share/html/Ticket/Display.html b/share/html/Ticket/Display.html
index 6f57083..bb9df46 100644
--- a/share/html/Ticket/Display.html
+++ b/share/html/Ticket/Display.html
@@ -67,7 +67,11 @@
 % $m->callback( Ticket => $TicketObj, %ARGS, Transactions => $transactions, Attachments => $attachments, CallbackName => 'BeforeShowHistory' );
 
 % my $ShowHistory = RT->Config->Get("ShowHistory", $session{'CurrentUser'});
-% if ($ShowHistory eq "delay") {
+% if ($ShowHistory eq "scroll") {
+    <& /Ticket/Elements/ScrollShowHistory,
+        Ticket => $TicketObj
+    &>
+% } elsif ($ShowHistory eq "delay") {
     <& /Ticket/Elements/DelayShowHistory,
         Ticket => $TicketObj,
         ShowHeaders => $ARGS{'ShowHeaders'},
diff --git a/share/html/Ticket/Elements/ScrollShowHistory b/share/html/Ticket/Elements/ScrollShowHistory
new file mode 100644
index 0000000..c7923e3
--- /dev/null
+++ b/share/html/Ticket/Elements/ScrollShowHistory
@@ -0,0 +1,174 @@
+%# BEGIN BPS TAGGED BLOCK {{{
+%#
+%# COPYRIGHT:
+%#
+%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
+%#                                          <sales at bestpractical.com>
+%#
+%# (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 }}}
+<%ARGS>
+$Ticket
+</%ARGS>
+
+<%INIT>
+my %params = %ARGS;
+delete $params{Ticket};
+
+my $url = RT->Config->Get('WebPath') . "/Helpers/TicketHistoryPage?" .
+        $m->comp('/Elements/QueryString', %params, id => $Ticket->id );
+
+my %extra_args;
+$m->callback( CallbackName => 'ExtraShowHistoryArguments', Ticket => $Ticket, ExtraArgs => \%extra_args );
+
+my $ShowDisplayModes = 1 || $extra_args{'ShowDisplayModes'};
+my $ShowTitle =        1 || $extra_args{'ShowTitle'};
+my $ShowHeaders =      0 || $extra_args{'ShowHeaders'};
+
+my $oldestTransactionsFirst = RT->Config->Get("OldestTransactionsFirst", $session{CurrentUser});
+</%INIT>
+
+<& /Elements/ShowHistoryHeader,
+    Object            => $Ticket,
+    ShowHeaders       => $ShowHeaders,
+    ShowTitle         => $ShowTitle,
+    ShowDisplayModes  => $ShowDisplayModes,
+    &>
+
+</div>
+% if ($ShowDisplayModes or $ShowTitle) {
+    <& /Widgets/TitleBoxEnd &>
+% }
+</div>
+
+<script type="text/javascript">
+jQuery(function(){
+    var isLoading = false, // prevent multiple simultaneous load events
+        disableLoading = false, // prevent repeated fruitless attempts
+        loadDistanceFromBottom = 750, // to load before bottom of page is reached
+        lastTransactionId = null,
+        hash = window.location.hash,
+        hashTransactionId = null;
+
+    var oldestTransactionsFirst = <% $oldestTransactionsFirst || 0 %>;
+
+    var removeLoadingMessage = function() {
+        jQuery('.loading-message').remove();
+    };
+
+    var removeLoadLink = function() {
+        jQuery('.error-load-history').remove();
+    };
+
+    var showLoadingMessage = function() {
+        removeLoadingMessage();
+        var loadingMessage = jQuery('<span class="loading-message"><&|/l&>Loading...</&></span>');
+        jQuery(".history-container").append(loadingMessage);
+    };
+
+    var loadingError = function(reason) {
+        removeLoadingMessage();
+        disableLoading = true;
+        removeLoadLink();
+        var loadLink = jQuery('<div class="error-load-history"><&|/l&>Could not load ticket history. Reason: </&>' + reason + '<br/><a href="#"><&|/l&>Try again</&></a></div>');
+        jQuery(".history-container").append(loadLink);
+    };
+
+    var loadHistoryPage = function() {
+        if (isLoading || disableLoading) return;
+
+        isLoading = true;
+        showLoadingMessage();
+
+        var queryString = '&oldestTransactionsFirst=' + oldestTransactionsFirst;
+        if (lastTransactionId) queryString += '&lastTransactionId=' + lastTransactionId;
+
+        // check for link to specific transaction and make sure we load enough to focus it
+        if (hash && !lastTransactionId) {
+            var matches = hash.match(/^#txn-(\d+)$/);
+            if (matches) {
+                hashTransactionId = matches[1];
+                queryString += '&focusTransactionId=' + hashTransactionId;
+            }
+        }
+
+        jQuery.ajax({
+            url: "<% $url %>" + queryString,
+            success: function(html) {
+                var transactions = jQuery(html).filter('div.transaction');
+                if(html && transactions.length) {
+                    lastTransactionId = transactions.last().data('transactionId');
+                    jQuery(".history-container").append(html);
+
+                    if (hashTransactionId) { // focus transaction if we are following a link to it
+                        hashTransactionId = null;
+                        location.href = hash;
+                    }
+                } else {
+                    disableLoading = true;
+                }
+
+                isLoading = false;
+                removeLoadingMessage();
+            },
+            error: function(xhr, reason) {
+                isLoading = false;
+                loadingError(reason);
+            }
+        });
+    };
+
+    jQuery(window).scroll(function() {
+        if(jQuery(window).scrollTop() >= jQuery(document).height() - jQuery(window).height() - loadDistanceFromBottom) {
+            loadHistoryPage();
+        }
+    });
+
+    jQuery('.history-container').on('click', '.error-load-history a', function(e) {
+        e.preventDefault();
+        removeLoadLink();
+        disableLoading = false;
+        loadHistoryPage();
+    });
+
+    loadHistoryPage();
+});
+</script>
diff --git a/share/static/css/base/misc.css b/share/static/css/base/misc.css
index d42e01e..b59d3c6 100644
--- a/share/static/css/base/misc.css
+++ b/share/static/css/base/misc.css
@@ -89,3 +89,17 @@ textarea.messagebox, #cke_Content, #cke_UpdateContent {
 .dashboard-subscription tr.frequency .value input {
     margin-bottom: 0.75em;
 }
+
+/* infinite history error message */
+
+.error-load-history {
+    background-color: #b32;
+    padding: 10px;
+    border-radius: 5px;
+    color: white;
+}
+
+.error-load-history a {
+    text-decoration: underline !important;
+    color: white !important;
+}

-----------------------------------------------------------------------


More information about the rt-commit mailing list