[MKDoc-commit] Audiences should be sorted by label not by name

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
Audiences should be sorted by label not by name

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/flo/User:
        Preferences.pm

-------------- next part --------------
Index: Preferences.pm
===================================================================
RCS file: /var/spool/cvs/mkd/flo/User/Preferences.pm,v
retrieving revision 1.11.2.9
retrieving revision 1.11.2.10
diff -Lflo/User/Preferences.pm -Lflo/User/Preferences.pm -u -r1.11.2.9 -r1.11.2.10
--- flo/User/Preferences.pm
+++ flo/User/Preferences.pm
@@ -674,7 +674,7 @@
     unless (exists $self->{_audiences_})
     {
 	my @auds   = load flo::Record::Audience( All => 1 );
-	@AUDIENCES = sort { $a->name cmp $b->name } @auds;
+	@AUDIENCES = sort { $a->label cmp $b->label } @auds;
 	$self->{_audiences_} = [@AUDIENCES];
     }