% while ( my $QueueObj = $QueuesObj->Next ) {
% if ( $QueueObj->IsCc($UserObj->PrincipalId) ) {
<li><% $QueueObj->Name %></li>
% while ( my $QueueObj = $QueuesObj->Next ) {
% if ( $QueueObj->IsCc($UserObj->PrincipalId) ) {
<li><% $QueueObj->Name %></li>