Changeset 16506 for gsdl/trunk/perllib/lucenebuildproc.pm

Timestamp:

2008-07-22T12:15:18+12:00 (15 years ago)

Author:

mdewsnip

Message:

Now adds gs2:docOID attributes into "<Sec>" tags as well, to prevent errors when indexing at section level.

File:

• gsdl/trunk/perllib/lucenebuildproc.pm (modified) (1 diff)

gsdl/trunk/perllib/lucenebuildproc.pm

@@ -138 +138 @@
 
     if ($sec_tag_name ne "")
-          {
-        my $secid = "gs2:id=\"".$self->{'num_sections'}."\"";
-        $text .= "\n<$sec_tag_name $secid >\n";
-          }
+    {
+        my $sec_gs2_id = $self->{'num_sections'};
+        my $sec_gs2_docOID = $gs2_docOID . "." . $section;
+        $text .= "\n<$sec_tag_name gs2:id=\"$sec_gs2_id\" gs2:docOID=\"$sec_gs2_docOID\">\n";
+    }
 
     # if we are doing subcollections, then some docs shouldn't be indexed.