Changeset 837 for trunk

Timestamp:

1999-12-13T16:55:43+13:00 (24 years ago)

Author:

davidb

Message:

added alpha_numeric search

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (2 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -89 +89 @@
 }
 
+sub alpha_numeric_cmp
+{
+    my ($self,$a,$b) = @_;
+
+    my $title_a = $self->{'list'}->{$a};
+    my $title_b = $self->{'list'}->{$b};
+
+    if ($title_a =~ m/^(\d+(\.\d+)?)/)
+    {
+    my $val_a = $1;
+    if ($title_b =~ m/^(\d+(\.\d+)?)/)
+    {
+        my $val_b = $1;
+        if ($val_a != $val_b)
+        {
+        return ($val_a <=> $val_b);
+        }
+    }
+    }
+    
+    return ($title_a cmp $title_b);
+}
+
 sub get_classify_info {
     my $self = shift (@_);
 
-    my @classlist = sort {$self->{'list'}->{$a} cmp $self->{'list'}->{$b};} keys %{$self->{'list'}};
+    my @classlist 
+    = sort { $self->alpha_numeric_cmp($a,$b) } keys %{$self->{'list'}};
 
     return $self->splitlist (\@classlist);
@@ -134 +158 @@
     foreach $classification (@$classlistref) {
     my $title = $self->{'list'}->{$classification};
+
     $title =~ s/^(&.{1,6};|<[^>]>|[^a-zA-Z0-9])//g; # remove any unwanted stuff
     $title =~ s/^(.).*$/$1/;