Changeset 25846 for gs3-extensions/solr/trunk/src/perllib/solrbuilder.pm

Timestamp:

2012-06-28T11:11:31+12:00 (12 years ago)

Author:

sjm84

Message:

Some fixes and additions to the Solr perl code

File:

• gs3-extensions/solr/trunk/src/perllib/solrbuilder.pm (modified) (2 diffs)

gs3-extensions/solr/trunk/src/perllib/solrbuilder.pm

@@ -229 +229 @@
     foreach my $ifm (@{$self->{'build_cfg'}->{'indexfieldmap'}}) {
 
-    my ($field) = ($ifm =~ m/^.*->(.*)$/);
-
-    # Need special case for Long/Lat
-    # ... but for now treat everything as of type string
-
-    $schema_insert_xml .= "    "; # indent
-    $schema_insert_xml .= "<field name=\"$field\" ";
-    $schema_insert_xml .=   "type=\"text_en_splitting\" indexed=\"true\" ";
-    $schema_insert_xml .=   "stored=\"false\" multiValued=\"true\" />\n"; 
+        my ($field) = ($ifm =~ m/^.*->(.*)$/);
+
+        $schema_insert_xml .= "    "; # indent
+        $schema_insert_xml .= "<field name=\"$field\" ";
+
+        if($field eq "LA" || $field eq "LO")
+        {
+            $schema_insert_xml .=   "type=\"location\" ";
+        }
+        elsif ($field ne "ZZ" && $field ne "TX")
+        {
+            $schema_insert_xml .=   "type=\"string\" ";
+        }
+        else
+        {
+            $schema_insert_xml .= "type=\"text_en_splitting\" ";
+        }
+        $schema_insert_xml .=  "indexed=\"true\" stored=\"false\" multiValued=\"true\" />\n"; 
     }
 
@@ -544 +553 @@
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'},
            "", {}, {}, $self->{'buildproc'}, $self->{'maxdocs'}, 0, $self->{'gli'});
-
-
+    
     print $handle "</update>\n";