Changeset 9548

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

Location:

trunk/gsdl/perllib

Files:

• lucenebuilder.pm (modified) (1 diff)
• mgbuilder.pm (modified) (2 diffs)
• mgppbuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/lucenebuilder.pm

@@ -251 +251 @@
     # should we just have one entry with Language/en,es/ ??
     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 $language (@languages) {
+    foreach my $language (@languages) {
     my $not=0;
     if ($language =~ s/^\!//) {
         $not = 1;
     }
-    if ($not) {
-        push (@$indexexparr, "!Language/$language/");
+    if($not) {
+        push (@$indexexparr, "!$language_metadata/$language/");
     } else {
-        push (@$indexexparr, "Language/$language/");
+        push (@$indexexparr, "$language_metadata/$language/");
     }
     }

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/");
     }
     }

trunk/gsdl/perllib/mgppbuilder.pm

@@ -665 +665 @@
     # should we just have one entry with Language/en,es/ ??
     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 $language (@languages) {
+    foreach my $language (@languages) {
     my $not=0;
     if ($language =~ s/^\!//) {
         $not = 1;
     }
-    if ($not) {
-        push (@$indexexparr, "!Language/$language/");
+    if($not) {
+        push (@$indexexparr, "!$language_metadata/$language/");
     } else {
-        push (@$indexexparr, "Language/$language/");
+        push (@$indexexparr, "$language_metadata/$language/");
     }
     }