Changeset 32441

Timestamp:

2018-09-13T01:37:27+12:00 (6 years ago)

Author:

Georgiy Litvinov

Message:

Added create_shortname method to Solr as inherited method creates duplicate index field names (needed in case of using more than one analyzer on one field)

File:

• gs3-extensions/solr/trunk/src/perllib/solrbuildproc.pm (modified) (1 diff)

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

@@ -202 +202 @@
     
 }
+sub create_shortname {
+    my $self = shift(@_);
+
+    my ($realname) = @_;
+    my @realnamelist = split(",", $realname);
+    map {$_=~ s/^[a-zA-Z]+\.//;} @realnamelist; #remove namespaces
+    my ($singlename) = $realnamelist[0];
+
+    # try our predefined static mapping
+    my $name;
+    # we can't use the quick map, so join all fields back together (without namespaces), and try sets of two characters.
+    $realname = join ("", @realnamelist);
+    #try the first two chars
+    my $shortname;
+    if ($realname =~ /^[^\w]*(\w)[^\w]*(\w)/) {
+        $shortname = "$1$2";
+    } else {
+        # there aren't two letdig's in the field - try arbitrary combinations
+        $realname = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+        $shortname = "AB";
+    }
+    $shortname =~ tr/a-z/A-Z/;
+
+    #if already used, take the first and third letdigs and so on
+    my $count = 1;
+    while (defined $self->{'indexfieldmap'}->{$shortname}) {
+        if ($realname =~ /^[^\w]*(\w)([^\w]*\w){$count}[^\w]*(\w)/) {
+            $shortname = "$1$3";
+            $count++;
+            $shortname =~ tr/a-z/A-Z/;
+
+        }
+        else {
+            #remove up to and incl the first letdig
+            $realname =~ s/^[^\w]*\w//;
+            $count = 0;
+        }
+    }
+
+    return $shortname ;
+}
+
 
 sub index_field_mapping {