% if ($Error) { <& /Elements/TitleBoxStart, title => 'Error' &> <% $Error %> <& /Elements/TitleBoxEnd &> % }
<& /Elements/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for $RT::rtname", title => 'Login' , contentbg=>"#cccccc" &> % unless ($RT::WebExternalAuth) {

Username:
Password:

<&/Elements/TitleBoxEnd&> % # From mason 1.0.1 forward, this doesn't work. in fact, it breaks things. % if (0) { % # The code below iterates through everything in the passed in arguments % # Preserving all the old parameters % # This would be easier, except mason is 'smart' and calls multiple values % # arrays rather than multiple hash keys % my $key; my $val; % foreach $key (keys %ARGS) { % if (($key ne 'user') and ($key ne 'pass')) { % if (ref($ARGS{$key}) =~ /ARRAY/) { % foreach $val (@{$ARGS{$key}}) { % } % } % else { % } % } %} % }

% }