[Da-tools-commits] ./da-tools/userdir-ldap-cgi-common r91: sort additionaly by host if $sortby != host

[Martin Zobel-Helas]

------------------------------------------------------------
revno: 91
committer: Martin Zobel-Helas <zobel at debian.org>
branch nick: userdir-ldap-cgi-common
timestamp: Sun 2008-05-18 18:37:17 +0200
message:
  sort additionaly by host if $sortby != host
modified:
  machines.cgi
-------------- next part --------------
=== modified file 'machines.cgi'
--- a/machines.cgi	2008-05-18 15:35:27 +0000
+++ b/machines.cgi	2008-05-18 16:37:17 +0000
@@ -197,9 +197,9 @@
   
   my @sorted;
   if ($sortorder eq "asc") {
-     @sorted = sort {$summary{$a}->{$sortby} cmp $summary{$b}->{$sortby}} keys(%summary);
+     @sorted = sort {($summary{$a}->{$sortby} cmp $summary{$b}->{$sortby}) || ($summary{$a}->{'host'} cmp $summary{$b}->{'host'})} keys(%summary)
   } else {
-     @sorted = sort {$summary{$b}->{$sortby} cmp $summary{$a}->{$sortby}} keys(%summary);
+     @sorted = sort {($summary{$b}->{$sortby} cmp $summary{$a}->{$sortby}) || ($summary{$a}->{'host'} cmp $summary{$b}->{'host'})} keys(%summary)
   }
   foreach $host (@sorted) {
     $hostdetails .= "<tr>";