Changeset 20420

Timestamp:

2009-08-28T12:06:34+12:00 (15 years ago)

Author:

kjdon

Message:

strip ex. off languagemetadata, and subcollection field

File:

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

gsdl/trunk/perllib/basebuildproc.pm

@@ -243 +243 @@
     my $self = shift (@_);
     my ($lang_meta, $langarr) = @_;
+    $lang_meta =~ s/^ex\.//; # strip ex. if there
     $self->{'lang_meta'} = $lang_meta;
     $self->{'langarr'} = $langarr;
@@ -718 +719 @@
         }
         else {
+        $field =~ s/^ex\.//; #strip ex. if present
         @metadata_values = @{$doc_obj->get_metadata($doc_obj->get_top_section(), $field)};
         }