$doimport=1;
$import_xlate=1;
-sub name_to_key
-{
-my( $r )=@_;
-
- $r=~tr/A-Z/a-z/;
- $r=~tr/a-z0-9//cd;
- return $r;
-}
-
sub rec_to_name
{
my( %rec )=@_;
if (defined $maxsize) {
my($fileno)=-1;
my($filename,$fileid);
- foreach $owner (sort keys %OWNS) {
+ foreach $owner (sort { $DB{$b}{"name"} cmp $DB{$a}{"name"}; } keys %OWNS) {
my( $child );
if ($fileno<0 || tell(OUT)>=$maxsize) {
my($printrecref)=(defined $maxsize ? \&format_href : \&format_record );
-foreach $owner (sort keys %OWNS) {
+foreach $owner (sort { $DB{$b}{"name"} cmp $DB{$a}{"name"}; } keys %OWNS) {
my( $child );
print OUT "<p>";