Changeset 167

Timestamp:

06/22/04 09:33:26 (4 years ago)

Author:

svn

Message:

Ordering now actually works. Useful that.

Files:

• manage/trunk/CLI/CLI.pm (modified) (1 diff)

manage/trunk/CLI/CLI.pm

@@ -195 +195 @@
-
-                        if ($lhs and $rhs) {
+                                $lhs = $a; $lhs =~ s/^(\d+).*/$1/;
+                                $rhs = $a; $rhs =~ s/^(\d+).*/$1/;
+                                $lhs <=> $rhs;
-                        } elsif ($a =~ /^[A-Z]+$/) {
-                                if ($rhs) {