to add a bit of framework to make it work in 2.1.4
 
 
-The string     <& /Elements/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for ". RT->Config->Get('rtname'), title => 'Login' &>
+The string     <& /Widgets/TitleBoxStart, width=> "40%", titleright => "RT $RT::VERSION for ". RT->Config->Get('rtname'), title => 'Login' &>
 
-should become  <& /Elements/TitleBoxStart, 
+should become  <& /Widgets/TitleBoxStart, 
                        width=> "40%",
                        titleright => loc("RT [_1] for [_2]",$RT::VERSION, RT->Config->Get('rtname')),
                        title => loc('Login'),
 
 %        Statistics::FormatDate($Statistics::PerDayDateFormat, $dates[0]) . " through " .
 %        Statistics::FormatDate($Statistics::PerDayDateFormat, $dates[$#dates-1]);
 
-<& /Elements/TitleBoxStart, title => $title, title_href => $RT::WebPath."/RTx/Statistics/OpenStalled/index.html?$QueryString"&>
+<& /Widgets/TitleBoxStart, title => $title, title_href => $RT::WebPath."/RTx/Statistics/OpenStalled/index.html?$QueryString"&>
 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH="100%">
 % if ($ShowHeader) {
 <& /RTx/Statistics/Elements/CollectionAsTable/Header, 
 <&  /RTx/Statistics/Elements/CollectionAsTable/Row, Format => \@RowFormat, i => $line, record => $record, maxitems => $maxitems &>
 % }
 </table>
-<& /Elements/TitleBoxEnd&>
+<& /Widgets/TitleBoxEnd&>
 
 <!--    <td>Show:</td>
     <td COLSPAN=2><SELECT NAME="status">
 
 
 
 %my $title = "New, Open and Stalled Tickets in " . join(', ', @queues);
-<& /Elements/TitleBoxStart, title => $title, title_href => $RT::WebPath."/RTx/Statistics/OpenStalled/index.html?$QueryString"&>
+<& /Widgets/TitleBoxStart, title => $title, title_href => $RT::WebPath."/RTx/Statistics/OpenStalled/index.html?$QueryString"&>
 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH="100%">
 % if ($ShowHeader) {
 <& /RTx/Statistics/Elements/CollectionAsTable/Header, 
 %    $values{Statistics_Totals} = $totals{"Totals"};
 <&   /RTx/Statistics/Elements/CollectionAsTable/Row, Format => \@BoldRowFormat, i => $line+1, record => $record, maxitems => $maxitems &>
 </table>
-<& /Elements/TitleBoxEnd&>
+<& /Widgets/TitleBoxEnd&>
 
 % use Data::Dumper;
 % Statistics::DebugLog("Dump of data array is " . Dumper(@data) . "\n");
 
 <form action="ModifyCustomers.html" method="post">
 <input type="hidden" name="id" value="<%$Ticket->id%>">
 
-<& /Elements/TitleBoxStart, title => loc('Edit Customer Links'), color => "#7f007b"&>
+<& /Widgets/TitleBoxStart, title => loc('Edit Customer Links'), color => "#7f007b"&>
 <& Elements/EditCustomers, Ticket => $Ticket, CustomerString => $CustomerString, ServiceString => $ServiceString &>
-<& /Elements/TitleBoxEnd &>
+<& /Widgets/TitleBoxEnd &>
 <& /Elements/Submit, color => "#7f007b", Label => loc('Save Changes') &>
 </form>