--- register/prgsrc/register.cgi	2003/09/04 21:09:47	1.17
+++ register/prgsrc/register.cgi	2004/04/19 20:29:38	1.18
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2003/09/04 21:09:47 $
+$Date: 2004/04/19 20:29:38 $
 
 =head1 REVISION
 
-$Revision: 1.17 $
+$Revision: 1.18 $
 
 =cut
 
@@ -45,7 +45,7 @@ my ($SENDMAIL) = "mail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2003/09/04 21:09:47 $';
+my $date='$Date: 2004/04/19 20:29:38 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -529,7 +529,7 @@ sub htmlize {
 sub ListPeople {
     my %args = @_;
     my $sth = $args{'dbh'}->prepare("
-SELECT pid,Position FROM ClubPeople WHERE cid=$args{'cid'} ORDER BY Weight DESC");
+SELECT a.pid,a.Position FROM ClubPeople=a,People=b WHERE a.cid=$args{'cid'} and a.pid=b.pid ORDER BY a.Weight Desc, b.Name");
     $sth->execute;
 
     if (!$sth->rows) {