rt/share/html/Elements/LoginRedirectWarning

   1 <%args>
   2 $next => undef
   3 </%args>
   4 <%init>
   5 return unless $next;
   6
   7 my $destination = RT::Interface::Web::FetchNextPage($next);
   8 return unless ref $destination and $destination->{'HasSideEffects'};
   9
  10 my $consequence = RT::Interface::Web::PotentialPageAction($destination->{'url'}) || loc("perform actions");
  11    $consequence = $m->interp->apply_escapes($consequence => "h");
  12 </%init>
  13 <div class="redirect-warning">
  14   <p>
  15     <&|/l&>After logging in you'll be sent to your original destination:</&>
  16     <tt title="<% $destination->{'url'} %>"><% $destination->{'url'} %></tt>
  17     <&|/l_unsafe, "<strong>$consequence</strong>" &>which may [_1] on your behalf.</&>
  18   </p>
  19   <p><&|/l&>If this is not what you expect, leave this page now without logging in.</&></p>
  20 </div>