Changeset 708

Timestamp:

1999-10-18T08:44:56+13:00 (25 years ago)

Author:

sjboddie

Message:

fixed problem with titles beginning with tags or html elements

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/AZList.pm

@@ -134 +134 @@
     foreach $classification (@$classlistref) {
     my $title = $self->{'list'}->{$classification};
+    $title =~ s/^(&.{1,6};|<[^>]>|[^a-zA-Z0-9])//g; # remove any unwanted stuff
     $title =~ s/^(.).*$/$1/;
     $title =~ tr/[a-z]/[A-Z]/;