% if (defined $rep->{title}) {
% $rep->{title} =~ tr/_/ /;
% $rep->{title} =~ tr/\// /;
<h3><& SELF:title &><font size="-1"> <% $rep->{title} %></font></h3>
% } else {
<h3><& SELF:title &> </h3>
% }

<ul class="menulist">
% if ($rep->{leaf} eq "true") {

% my %tmp_names = ();
% my %tmp_urls = ();
% foreach $iter (sort {$b cmp $a} keys %{$rep->{urls}}) {
% if ($rep->{names}->{$iter} =~/(\d\d)(\d\d)(\d\d)/) {
%   $tmp_names{"$3$1$2"} = $mos[$1] . " $2, 20$3";
%   $tmp_urls{"$3$1$2"} = $rep->{urls}->{$iter};
% }
% } foreach $iter (sort {$b <=> $a} keys %tmp_names) {
 <li> <a href="/files/SS7/<% $rep->{URI} %>/<% $tmp_urls{$iter} %>"> <% $tmp_names{$iter} %></a>

% } } else {

% foreach $iter (sort {$b cmp $a} keys %{$rep->{urls}}) {

 <li> <a href="<% $r->uri %>?rep=<% $rep->{URI} . "/" . $rep->{urls}->{$iter} %>&app=SS7/Reports"> <% $rep->{names}->{$iter} %></a>

% }
% }
</ul>
</div>

<%method title>
SS7:
</%method>

<%once>
use Apps::SS7::Dir;
use Data::Dumper;
</%once>

<%init>
my @mos = ("","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","Oct","Nov","Dec");
my $item;
my $iter;
my $rep = Dir->get_list($ARGS{rep});
</%init>