X-Git-Url: https://git.jankratochvil.net/?p=kewensis.git;a=blobdiff_plain;f=kewensis-collect.pl;h=ba61527b73003c6b25e06f8ca56d9d055e732403;hp=aba360db8e3b92703f937f85c9d6078896f1ec50;hb=95acaf4907648517bd0f10047d107464e137ca70;hpb=c34552151797af2bf9fdd40b52026bfbc027ccab

diff --git a/kewensis-collect.pl b/kewensis-collect.pl
index aba360d..ba61527 100755
--- a/kewensis-collect.pl
+++ b/kewensis-collect.pl
@@ -15,15 +15,6 @@ $debugmatch=0;
 $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 )=@_;
@@ -260,7 +251,7 @@ sub OUT_flush
 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) {
@@ -305,7 +296,7 @@ my($preinsert,$postinsert,%rec)=@_;
 
 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>";