Upgrade to 4.0.8 with mod of ExternalAuth + absolute paths to ticket-menu.
[usit-rt.git] / 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>