Changeset 20425

Timestamp:

2009-08-28T13:28:04+12:00 (15 years ago)

Author:

kjdon

Message:

made a subroutine for removing ex. Call this instead of doing it explicitly

File:

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

gsdl/trunk/perllib/classify/HFileHierarchy.pm

@@ -110 +110 @@
     $self->{'buttonname'} = $self->generate_title_from_metadata($metadata) unless ($self->{'buttonname'});
     # strip ex from metadata
-    $metadata =~ s/^ex\.//;
-    $metadata =~ s/,ex\./,/g;
+    $metadata = $self->strip_ex_from_metadata($metadata);
 
     my @meta_list = split(/,/, $metadata);
@@ -121 +120 @@
     }
     if (defined $self->{'sort'}) { # remove ex. namespace
-    $self->{'sort'} =~ s/^ex\.//;
+    $self->{'sort'} = $self->strip_ex_from_metadata($self->{'sort'});
     }