Changeset 9548 for trunk/gsdl/perllib/mgbuilder.pm

Timestamp:

2005-04-04T16:19:11+12:00 (19 years ago)

Author:

kjdon

Message:

for teh language subcollection stuff, can now specify language_metadata in teh config file - will use that metadata instead of ex.Language to match on for language

File:

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

trunk/gsdl/perllib/mgbuilder.pm

@@ -565 +565 @@
 
     my @languages = ();
+    my $language_metadata = "Language";
+    if (defined ($self->{'collect_cfg'}->{'language_metadata'})) {
+    $language_metadata = $self->{'collect_cfg'}->{'language_metadata'};
+    }
     @languages = split /,/, $language if (defined $language);
     foreach my $language (@languages) {
@@ -572 +576 @@
     }
     if($not) {
-        push (@$indexexparr, "!Language/$language/");
+        push (@$indexexparr, "!$language_metadata/$language/");
     } else {
-        push (@$indexexparr, "Language/$language/");
+        push (@$indexexparr, "$language_metadata/$language/");
     }
     }