order shares alphabetically

git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@72 8392b6e1-25fa-0310-8288-cc32f8e212ea

diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm
index 44dbc03..651a107 100644 (file)
--- a/lib/BackupPC/SearchLib.pm
+++ b/lib/BackupPC/SearchLib.pm
@@ -19,7 +19,7 @@ sub getUnits() {
        my @ret;
 
        my $dbh = DBI->connect($dsn, $db_user, "", { RaiseError => 1, AutoCommit => 1 } );
-       my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares} );
+       my $sth = $dbh->prepare(qq{ SELECT id, share FROM shares ORDER BY share} );
        $sth->execute();
        push @ret, { 'id' => '', 'share' => '-'};       # dummy any