Changeset 25846 for gs3-extensions/solr/trunk/src/perllib/solrbuildproc.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/solrbuildproc.pm (modified) (4 diffs)

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

@@ -266 +266 @@
     my $gs2_docOID = $doc_obj->get_OID();
 
-
     my $start_doc;
     my $end_doc;
@@ -296 +295 @@
 
     # only output if working with doc level
-    my $text = $start_doc if ($sec_tag_name eq "");
-
+    # my $text = undef;
+    
+    my $text = ($sec_tag_name eq "") ? $start_doc : "";
+
+#     my $text = $start_doc if ($sec_tag_name eq "");
+      
     # get the text for this document
     my $section = $doc_obj->get_top_section();
@@ -318 +321 @@
         $start_sec .= "    <doc>\n";
         $start_sec .= "      <field name=\"docOID\">$sec_gs2_docOID</field>\n";
-
+    
         $end_sec    = "    </doc>\n";
         $end_sec   .= "  </add>\n"; 
@@ -441 +444 @@
         }
 
+        # Remove any leading or trailing white space
+        $new_text =~ s/\s+$//;
+        $new_text =~ s/^\s+//;
+    
+        
         if ($self->{'indexing_text'}) {
             # add the tag