-
-
<&|/l&>Skip Menu |
-% if ($session{'CurrentUser'}->Name) {
- <&|/l, "
".$session{'CurrentUser'}->Name."" &>Logged in as [_1]
-% if ($session{'CurrentUser'}->HasRight( Right => 'ModifySelf', Object => $RT::System )) {
- |
<&|/l&>Preferences
-% }
-% } else {
- <&|/l&>Not logged in.
-% }
- <& /Elements/Callback, %ARGS &>
-% unless (!$session{'CurrentUser'}->Name
-% or ($RT::WebExternalAuth and !$RT::WebFallbackToInternalAuth)) {
- |
<&|/l&>Logout
-% }
-
-% }
+%# if ($session{'CurrentUser'}->HasRight( Right => 'ModifySelf', Object => $RT::System )) {
+%# |
<&|/l&>Preferences
+%# }
<%INIT>
$r->headers_out->{'Pragma'} = 'no-cache';
$r->headers_out->{'Cache-control'} = 'no-cache';
+require RT::URI::freeside;
+
my $id = $m->request_comp->path;
$id =~ s|^/||g;
$id =~ s|/|-|g;
@@ -116,6 +70,45 @@ $id =~ s|\.html$||g;
$id =~ s|index$||g
if $id ne 'index';
$id =~ s|-$||g;
+
+my $head = '';
+
+if ($Refresh && $Refresh > 0) {
+ $head .= '
';
+}
+
+$head .= <
+
+
+END
+
+if ( $RSSAutoDiscovery ) {
+ $head .= qq(
);
+}
+
+$head .= <
+
+
+';
+
+$head .= $m->scomp( '/Elements/Callback', _CallbackName => 'Head', %ARGS );
+
+my $etc = '';
+$etc .= qq[ id="comp-$id"] if $id;
+
<%ARGS>